[Visual Basic] Problème compteur de click sur un boutton
Fermé
Timezer
Messages postés
3
Date d'inscription
samedi 6 avril 2013
Statut
Membre
Dernière intervention
6 avril 2013
-
Modifié par Timezer le 6/04/2013 à 15:57
lermite222 Messages postés 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 - 6 avril 2013 à 20:08
lermite222 Messages postés 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 - 6 avril 2013 à 20:08
A voir également:
- Visual click avis
- Microsoft visual c++ runtime - Guide
- Visual petanque - Télécharger - Sport
- Visual paradigm - Télécharger - Gestion de données
- Visual basic download - Télécharger - Langages
- Auto click - Télécharger - Divers Utilitaires
5 réponses
f894009
Messages postés
17185
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
15 avril 2024
1 702
6 avril 2013 à 18:12
6 avril 2013 à 18:12
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
Timezer
Messages postés
3
Date d'inscription
samedi 6 avril 2013
Statut
Membre
Dernière intervention
6 avril 2013
6 avril 2013 à 18:39
6 avril 2013 à 18:39
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.
Timezer
Messages postés
3
Date d'inscription
samedi 6 avril 2013
Statut
Membre
Dernière intervention
6 avril 2013
Modifié par Timezer le 6/04/2013 à 18:56
Modifié par Timezer le 6/04/2013 à 18:56
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 ;)
f894009
Messages postés
17185
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
15 avril 2024
1 702
6 avril 2013 à 18:44
6 avril 2013 à 18:44
Re,
TextBox11.Text = 1 si c'est cela que vous avez mis, c'est normal. Cherchez l'erreur!!!!
TextBox11.Text = 1 si c'est cela que vous avez mis, c'est normal. Cherchez l'erreur!!!!
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
lermite222
Messages postés
8702
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 190
Modifié par lermite222 le 6/04/2013 à 20:08
Modifié par lermite222 le 6/04/2013 à 20:08
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 .
