Evenement double clic ..

Résolu
Psyc0x57x Messages postés 13 Date d'inscription   Statut Membre Dernière intervention   -  
pijaku Messages postés 12263 Date d'inscription   Statut Modérateur Dernière intervention   -
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*
A voir également:

3 réponses

Réponse 1 / 3
Yoda
 
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+
1
Psyc0x57x Messages postés 13 Date d'inscription   Statut Membre Dernière intervention  
 
Ha je vais voir, et essayer ce que cela donne. Si je n'arrive pas je reviendrai parce que j'aurais d'autre idée mais je pense mal m'y prendre..

En tout cas merci pour cette réponse rapide et claire.

A+ !
0
Psyc0x57x Messages postés 13 Date d'inscription   Statut Membre Dernière intervention  
 
Merci cela a fonctionné :)
0
Réponse 2 / 3
Psyc0x57x Messages postés 13 Date d'inscription   Statut Membre Dernière intervention  
 
Oups (désolé j'ai validé sans relire.. désolé pour les fautes d'orthographe ^^" ..)
0
Réponse 3 / 3
pijaku Messages postés 12263 Date d'inscription   Statut Modérateur Dernière intervention   2 761
 
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
0
Psyc0x57x Messages postés 13 Date d'inscription   Statut Membre Dernière intervention  
 
Non ce n'est pas une textbox. Mon professeur d'algorithme a souhaité que nous utilisions un Label.. Merci quand même. Et pour répondre à votre question, la virgule doit être bloqué pour ne pas avoir de souci du genre 2 virgules par inadvertance par exemple..
0
pijaku Messages postés 12263 Date d'inscription   Statut Modérateur Dernière intervention   2 761
 
Bon, suffit de remplacer, dans mon code, TextBox1 par Label1.Caption...

la virgule doit être bloqué pour ne pas avoir de souci du genre 2 virgules par inadvertance par exemple..
Avec le code que je t'ai donné, le bouton virgule n'est pas bloqué et tu ne peux saisir qu'une seule virgule. Mais bon si tu ne veux pas essayer...
0

Discussions similaires

cellule lié excel ouverture automatique
woutz -
Eric -

8 réponses
Clic molette qui ne marche pas
louxtix -
SomGuy -

4 réponses
comment ecrire un double cote " "
helmii -
[Dal] -

3 réponses
Disparition de l'onglet "événements" sur les Groupes FB
WisseWam -
WisseWam -

2 réponses
double clic donne proprietes !
sa.niceman -
Tintin -

33 réponses