décompte de bouttonRésolu

Question

Bonsoir, voilà mon probleme... j'ai une form avec 12 boutons dessus. Je voudrais que la personne commence par cliquer sur 4 boutons, nimporte lesquels et que rendu au quattrieme, un msgbox apparaisse. ensuite qu'il clique sur 3 autres boutons et encore un msgbox et ainsi de suite. Mais il faudrait également prendre en compte le fait que lorsque le bouton est cliqué, il devient inactif on ne peut le prendre 2 fois.

Merci davance pour votre aide!

68manu · Accepted Answer

remplace par

dim balise as long
balise=4


et compteur=compteur+1


ca devrait aller mieux !


A+

_____________________
No problems, only soluces

jrivet · Answer

Salut,

Alors il te faut regarder la propriété Enabled des bouton pour les rendre inactif (True ou False)

Pour compter le nombre de bouton cliquer une variable globale à ton formulaire devrait suffire.

Quel est le code utilisé actuellement?

@+: Ju£i€n
Pensez: Réponse acceptée

mighnion · Answer

Bonjour,

Il te suffit de déclarer une variable global de récupération de clic et de mettre un peu de code dans chaque bouton.

dim i as integer 'variable globa!

'Dans chaque bouton sur evenement click
i += 1 'On incrémente à chaque fois que l'on clic

If i=4 then 'On test pour savoir s'il on a atteint 4 clic

msgbox("Message")  'On envoie un message à l'utilisateur
i=0                           'on reinitialise la variable de comptage
LeBouton.enabled=false  'On rend le bouton inaccessible
End if

l'étérnité c'est long, surtout sur la fin!!

68manu · Answer

Bonjour, 

petite modification au code de mighnion...

il te faut deux variables globales pour realiser le truc. Sinon tu as un souci pour gerer la deuxieme partie de ton travail :
Je te propose plutot

Dim compteur as integer
Dim balise as integer =4

Comme suggere par mighnion, dnas chaque evenement mettre ce code :

compteur+=1
If compteur=balise then
Msgbox("Message")
balise=3 ' si cette balise doit descendre a chaque fois, preferer balise -=1
' c'est la balise qui doit etre reinitialisee.
compteur=0
lebouton.enabled=false
end if

voili voilou
_____________________
No problems, only soluces

mighnion · Answer

ha oui j'avais oublié cette partie la du probleme. Merci 68manu

68manu · Answer

de rien mighnion, c'est toi qui a trouve la solution,
j'ai juste complete. Pas de merite

_____________________
No problems, only soluces

DjMedz · Answer

Merci tout le monde, alors jessaie ca et je vous redis si tout est correct :)

68manu · Answer

Oublies pqs de faire reponse accceptee si c'est juste !!!

_____________________
No problems, only soluces

DjMedz · Answer

il y a un petit bug dans le code... dans la déclaration de la variable, Dim balise as integer =4, vb ne laccepte pas elle est en rouge.. et celle ci aussi  compteur+=1   ??? désolé de vous embêtez avec mes petit probleme :)

merci

Décompte de boutton

9 réponses

Votre réponse

Discussions similaires