DÉCLENCHER UN ÉVÈNEMENT LORSQ'UNE ACTION EST EFFECTUÉE UN CERTAIN NOMBRE DE FOIS

Signaler
Messages postés
962
Date d'inscription
samedi 19 janvier 2002
Statut
Membre
Dernière intervention
2 août 2010
-
Messages postés
28
Date d'inscription
samedi 4 mai 2002
Statut
Membre
Dernière intervention
14 août 2002
-
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/3514-declencher-un-evenement-lorsq-une-action-est-effectuee-un-certain-nombre-de-fois

Messages postés
28
Date d'inscription
samedi 4 mai 2002
Statut
Membre
Dernière intervention
14 août 2002

Merci du conseil ;) Je vais mettre ton code dans mon prog, ca l'améliorera un petit peu :)
Messages postés
72
Date d'inscription
mardi 26 février 2002
Statut
Membre
Dernière intervention
20 juin 2003

Bien joué ! Mais tu pourrais améliorer un peu la procédure en déclarant la variable, non pas au niveau module, mais au niveau de la fonction, en variable statique, et expliciter un type de donnée, pour occuper un minimum de mémoire (un programmeur cherche toujours à optimiser l'espace mémoire occupé par son programme). En l'occurence, le type 'Byte' suffit puisque la valeur maximale prise par la variable est 4. Egalement, on peut initialisé la variable à 0 dès qu'elle vaut 3, ce qui permet de supprimer un test, et donc de condenser le code. On obtient le code suivant :

Private Sub Button1_Click()
Static abc as Byte
abc=abc+1
If abc = 3 Then abc=0: MsgBox "c'est la troisième fois que tu cliques ici !"
End Sub

L'avantage de ces variables statiques est qu'elles concervent leur valeur d'un appel de la fonction à l'autre, et sont initialisée par défaut à 0. Bien sûr, avant de déclarer une variable en static, il faut s'assurer que la variable n'est utilisée que par la fonction où elle est déclarée.

@++ et bonne prog...

(: Sibo ;)
Messages postés
28
Date d'inscription
samedi 4 mai 2002
Statut
Membre
Dernière intervention
14 août 2002

Ben oue, mais g remarquer ke y'avait po grand chose pour les débutant ici, il est donc très difficil d'apprendre a faire du vb. Ce genre de code permet aux newbie (comme moi ;)) de comprendre le principe de base du VB
Messages postés
962
Date d'inscription
samedi 19 janvier 2002
Statut
Membre
Dernière intervention
2 août 2010
1
C'est pour les méga débutants :)