Déclencher un évènement lorsq'une action est effectuée un certain nombre de fois

Commenter

Contenu du snippet

Par exemple, vous avez un bouton nommé "button1" et vous voulez déclencher un évènement lorsque l'utilisateur à cliqué 3 fois dessus

Source / Exemple : 


'déclarer une variable avec le nom que vous voulez, il est important qu'elle soit déclarée
'avant le bouton
dim abc

'Editez le bouton
Private Sub button1_Click()
'On increment la variable abc de 1 à chaque clique sur le bouton
abc = abc + 1
'si abc = 3 alors on envoie la message box suivante, on peut mettre n'importe quel
'évènement, comme démarrer une application avec "shell"
If abc = 3 Then MsgBox "c'est la troisième fois que tu clique ici !"
'Si l'utilisateur reclique après l'évènement précédent, abc devient supérieur à 4
'donc on lui attribu la valeur de 1, il reste encore 2 clique avant de relancé l'évènement
'précédent
If abc > 3 Then abc = 1
'voila c finit
End Sub

Conclusion :


Ecrivez-moi pour me dire si c'est asser détailler ou non, ou si j'ai fait une erreure ......

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (lolokill666)