[Visual Basic] Problème compteur de click sur un boutton
Timezer
Messages postés
3
Date d'inscription
Statut
Membre
Dernière intervention
-
lermite222 Messages postés 8724 Date d'inscription Statut Contributeur Dernière intervention -
lermite222 Messages postés 8724 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour à tous,
J'essaye de concevoir un logiciel, et installer un compteur de click sur mon bouton 2. Ce nombre s'afficherait alors dans ma textbox11. Voici le code :
Private Sub TextBox11_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox11.TextChanged
Dim i As Integer
i = 0
If "je click sur le bouton 2" Then
i = i + 1
End If
TextBox11.Text = i
End Sub
Mon problème, c'est que je ne sais pas dire :"je click sur le boutton2"
Merci de votre aide !
J'essaye de concevoir un logiciel, et installer un compteur de click sur mon bouton 2. Ce nombre s'afficherait alors dans ma textbox11. Voici le code :
Private Sub TextBox11_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox11.TextChanged
Dim i As Integer
i = 0
If "je click sur le bouton 2" Then
i = i + 1
End If
TextBox11.Text = i
End Sub
Mon problème, c'est que je ne sais pas dire :"je click sur le boutton2"
Merci de votre aide !
A voir également:
- Avis visual click
- Visual petanque - Télécharger - Sport
- Visual c++ 2019 - Guide
- Visual paradigm - Télécharger - Gestion de données
- Visual watermark - Télécharger - Photo & Graphisme
- Visual basic - Télécharger - Langages
5 réponses
Bonjour,
le code est a mettre "dans" le bouton pour afficher dans la textebox:
a vous d'adapter pour vb.net
Public i As Integer
Private Sub Bouton_Click()
i = i + 1
TextBox11.Text = i
End Sub
Bonne suite
le code est a mettre "dans" le bouton pour afficher dans la textebox:
a vous d'adapter pour vb.net
Public i As Integer
Private Sub Bouton_Click()
i = i + 1
TextBox11.Text = i
End Sub
Bonne suite
Bonjour, merci de votre réponse,
J'ai mis ce que vous m'avez dit,
la première fois que je clique sur le bouton, il m'affiche bien "1", mais après j'ai beau cliqué sur le bouton, la textbox m'affiche toujours 1 :/
Voici le programme de mon bouton :
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
i = i + 1
TextBox11.Text = 1
TextBox2.Focus()
TextBox2.Select()
If TextBox2.Text < TextBox4.Text Then
TextBox3.ForeColor = Color.Blue
TextBox3.Text = "C'est plus grand"
TextBox8.Text = TextBox2.Text
TextBox2.Text = ""
End If
If TextBox2.Text > TextBox4.Text Then
TextBox3.ForeColor = Color.Red
TextBox3.Text = "C'est moins grand"
TextBox6.Text = TextBox2.Text
TextBox2.Text = ""
End If
If TextBox2.Text = TextBox4.Text Then
My.Computer.Audio.Play(My.Resources.applaudissements, AudioPlayMode.Background)
TextBox3.ForeColor = Color.Lime
TextBox3.Text = "C'est gagné"
TextBox10.Text = TextBox2.Text
Button3.Visible = True
Button2.Enabled = False
AcceptButton = Button3
TextBox2.Text = ""
End If
End Sub
J'ai mis "Public i As Integer" juste en dessous de form1.
J'ai mis ce que vous m'avez dit,
la première fois que je clique sur le bouton, il m'affiche bien "1", mais après j'ai beau cliqué sur le bouton, la textbox m'affiche toujours 1 :/
Voici le programme de mon bouton :
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
i = i + 1
TextBox11.Text = 1
TextBox2.Focus()
TextBox2.Select()
If TextBox2.Text < TextBox4.Text Then
TextBox3.ForeColor = Color.Blue
TextBox3.Text = "C'est plus grand"
TextBox8.Text = TextBox2.Text
TextBox2.Text = ""
End If
If TextBox2.Text > TextBox4.Text Then
TextBox3.ForeColor = Color.Red
TextBox3.Text = "C'est moins grand"
TextBox6.Text = TextBox2.Text
TextBox2.Text = ""
End If
If TextBox2.Text = TextBox4.Text Then
My.Computer.Audio.Play(My.Resources.applaudissements, AudioPlayMode.Background)
TextBox3.ForeColor = Color.Lime
TextBox3.Text = "C'est gagné"
TextBox10.Text = TextBox2.Text
Button3.Visible = True
Button2.Enabled = False
AcceptButton = Button3
TextBox2.Text = ""
End If
End Sub
J'ai mis "Public i As Integer" juste en dessous de form1.
OUPS
Je suis désolé, j'ai fait une faute de frappe, j'ai mis un "1" à la place du "i"
Le compteur met désormais correctement.
Merci f894009 ;)
Je suis désolé, j'ai fait une faute de frappe, j'ai mis un "1" à la place du "i"
Le compteur met désormais correctement.
Merci f894009 ;)
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Bonjour, bonjour Fxx
sans variable..
A+
Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)
Note: Je ne répond pas aux MP pour les questions techniques. Et ma boule de cristal est cassée .
sans variable..
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox1.Text = Val(TextBox1.Text) + 1
End Sub
A+
Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)
Note: Je ne répond pas aux MP pour les questions techniques. Et ma boule de cristal est cassée .
