Private Sub CommandButton1_Click() Static n As Integer n = n + 1 TextBox1.Text = "lecture " & n End Sub Private Sub TextBox1_Change() If TextBox1.Text <> "" Then ListBox1.AddItem TextBox1.Text End If TextBox1.Text = "" End Sub
Private Sub CommandButton1_Click() Static n As Integer n = n + 1 TextBox1.Text = "lecture " & n & vbCr End Sub Private Sub TextBox1_Change() If TextBox1.Text <> "" Then ListBox1.AddItem Left(TextBox1.Text, InStr(TextBox1.Text, vbCr) - 1) End If TextBox1.Text = "" End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question