Private Sub QuestionToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles QuestionToolStripMenuItem1.Click TabControl1.TabPages.Remove(TabPage1) If compteurQuestion <= 100 Then 'Créer la base de la Question Question = New TabPage Question.Parent = TabControl1 Question.Text = compteurQuestion Question.BackColor = Color.Gray 'Créer l'énoncé de la question RichTextBoxQuestion = New RichTextBox RichTextBoxQuestion.Parent = Me.Question RichTextBoxQuestion.Location = New Point(12, 30) RichTextBoxQuestion.Size = New Size(582, 100) 'Créer les choix de réponse TabControlRep = New TabControl TabControlRep.Parent = Me.Question TabControlRep.Location = New Point(8, 155) TabControlRep.Size = New Size(395, 111) TabControlRep.TabPages.Add(compteurReponse) 'Éditeur de Choix de réponse RichTextBox = New RichTextBox RichTextBox.Parent = TabControlRep.SelectedTab RichTextBox.Dock = DockStyle.Fill 'Créer la sélection de la réponse Officiel ComboBox = New ComboBox ComboBox.Parent = Me.Question ComboBox.Location = New Point(8, 285) ComboBox.Size = New Size(395, 21) 'Pour question à Dévelloppement long RichTextBoxReponse = New RichTextBox RichTextBoxReponse.Parent = Me.Question RichTextBoxReponse.Location = New Point(409, 177) RichTextBoxReponse.Size = New Size(185, 129) compteurQuestion = compteurQuestion + 1 compteurTab = 1 Else MessageBox.Show(" Vous avez atteint le maximum de Question. ") End If End Sub
Private Sub ChoixDeRéponseToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ChoixDeRéponseToolStripMenuItem.Click TabControlRep.TabPages.Add(TabControlRep.TabCount + 1) RichTextBoxReponse = New RichTextBox RichTextBox.Parent = TabControlRep.SelectedTab RichTextBox.Dock = DockStyle.Fill End Sub
EDIT : Ajout des balises de code (la coloration syntaxique).
Explications disponibles ici : ICI Merci d'y penser dans tes prochains messages. |