Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click If Button1.Tag = "1" Then Button1.Tag = "2" Else Button1.Tag = "1" TextBox1.Text = Button1.Tag End Sub
Private Sub Command1_Click()
If Command1.Tag = "Bonjour" Then Command1.Tag = "comment ça va ?" Else Command1.Tag = "Bonjour"
Text1.Text = Command1.Tag
End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionPrivate Sub Command1_Click() If Command1.Tag = "Bonjour" Then Command1.Tag = "comment ça va ?" Else Command1.Tag = "Bonjour" Text1.Text = Command1.Tag End Sub
Private Sub Command1_Click()ce devrait être très facilement transposable en VB.Net
Static ou As Integer, toto
toto = Array("un", "deux", "trois", "quatre", "cing", "six")
Text1.Text = toto(ou)
ou = ou + 1
If ou > UBound(toto) Then ou = 0
End Sub
Private Sub Command1_Click()
Static ou As Integer, maxi As Integer
maxi = 20
ou = ou + 1
Text1.Text = ou
If ou = maxi Then ou = 0
End Sub