Arreter une procedure avec un boutou

Résolu/Fermé
Signaler
Messages postés
71
Date d'inscription
jeudi 21 février 2008
Statut
Membre
Dernière intervention
8 décembre 2011
-
Messages postés
14008
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
-
bonjours à tous
je suis en train de faire un executable en VB6 pour mes études
problématique:
je veux faire un mode pas à pas, avec un seul bouton je veux faire une action qui s'arrête à la fin, quand celle-ci est terminée je veux faire une autre action en reappuyant sur ce meme bouton et ainsi de suite.
merci d'avance pour votre aide
matth

3 réponses

Messages postés
14008
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
81
Salut
C'est simple :
Dans ta Sub évènement _Click, tu ajoutes une variable définie en Static, c'est à dire une variable qui ne perd pas sa valeur entre deux appels :
   Static iCompteur As Integer
et ensuite, au fur et à mesure que tu exécute tes ordres, tu incrémentes ce compteur
   iCompteur = iCompteur + 1
et un jeu de Select Case sélectionne ce que tu veux faire :
   Select Case iCompteur
      Case 0
         ' 1er passage
      Case 1
         ' 2ème passage
      ...
      Case 4012
         ' 4013ème passage
         ' On redémarre à zéro
         iCompteur = 0
   End Select

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

<hr />Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)
Messages postés
71
Date d'inscription
jeudi 21 février 2008
Statut
Membre
Dernière intervention
8 décembre 2011

merci je vais voir si sa marche
Messages postés
14008
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
81