Arreter une procedure avec un boutou

Résolu/Fermé
cs_matth72 Messages postés 71 Date d'inscription jeudi 21 février 2008 Statut Membre Dernière intervention 8 décembre 2011 - 14 avril 2009 à 22:37
cs_Jack Messages postés 14006 Date d'inscription samedi 29 décembre 2001 Statut Modérateur Dernière intervention 28 août 2015 - 15 avril 2009 à 15:40
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

cs_Jack Messages postés 14006 Date d'inscription samedi 29 décembre 2001 Statut Modérateur Dernière intervention 28 août 2015 79
15 avril 2009 à 01:09
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)
3
cs_matth72 Messages postés 71 Date d'inscription jeudi 21 février 2008 Statut Membre Dernière intervention 8 décembre 2011
15 avril 2009 à 11:15
merci je vais voir si sa marche
0
cs_Jack Messages postés 14006 Date d'inscription samedi 29 décembre 2001 Statut Modérateur Dernière intervention 28 août 2015 79
15 avril 2009 à 15:40
0
Rejoignez-nous