Evenement double clic .. Résolu/Fermé

Question

Bonjour, bonsoir, enfin tout dépend de l'heure à laquelle vous lirez ce message !

Donc voilà, mon petit soucis sur visual basic 6.0 est le suivant:

Je dois faire une calculette, j'ai programmer l'ensemble des boutons, mais le bouton virgule est un problème. 

Supposons que l'utilisateur fait un double clic sur le bouton virgule c'est un soucis puisqu'il y a une double virgule dans l'écran *Super*.

Et j'aimerais empêcher l'utilisateur de ré-appuyer sur la virgule une fois appuyé, par exemple:

Variable 1 (virgule utilisé -> bouton virgule bloqué)
Clic sur bouton d'opération (genre + - X ou /)
Variable 2 (virgule utilisé -> bouton virgule bloqué)
bouton "="

si le résultat a une virgule alors le bouton virgule est bloqué..

Je ne sais pas si cela est assez clair...
Sinon je peux essayer de ré-expliquer.

Merci par avance :) et bonne journée/soirée/matinée...

*GamerTagXbox-> Psyc0x57x*

Psyc0x57x · Answer

Oups (désolé j'ai validé sans relire.. désolé pour les fautes d'orthographe ^^" ..)

Yoda · Answer

Bonsoir,

Moi je ferai comme ça:

Quand tu appuies sur virgule, tu bloques le bouton tout de suite après.

Private Sub Button_Virgule_Click()
Button_Virgule.locked=True
'suite de la procédure
'
End Sub

Quand tu appuies sur les boutons + - * / = , tu débloques la virgule

Private Sub Button_Plus_Click()
Button_Virgule.locked=False
'suite de la procédure
'
End Sub

Pareil pour les boutons - * / et =

A+

pijaku · Answer

Bonjour,

Pourquoi "bloquer" le bouton virgule?
Sur ma calculatrice, quand j'appuie sur virgule, le bouton ne se bloque pas...

Une méthode consiste à n'afficher une virgule que s'il n'y en a pas déjà une.
Dans ce code, je suppose que l'affichage se fait dans un textbox TextBox1 :
Private Sub Button_Virgule_Click() 
If InStr(TextBox1, ",") <> 0 Then TextBox1.SetFocus: Exit Sub
TextBox1 = TextBox1 & ","
TextBox1.SetFocus
End Sub

Evenement double clic ..

3 réponses

Discussions similaires