Intercepter un évenement depuis une boucleRésolu

Question

Bonjour,
Je réalise un programme de transmission de fichiers via le port série, tout ca marche bien, pas de problème à ce niveau et j'utilise VB 6.0
Mais je voudrais pouvoir stopper le transfert à tout moment, genre un bouton "annuler" qui mettrait fin au transfert en cours, mais je ne sais pas trop comment faire vue que pour transmettre un fichier, je suis dans une boucle:

TANT QUE je ne suis pas a la fin du fichier
    transmettre ...
FIN TANT

J'ai essayé de mettre dans cette boucle un Command1.Refresh pour avoir "accès à chaque passage dans la boucle, mais cela ne semble pas fonctionner 
En gros, j'aimerais savoir comment intercepter un évenement sur un bouton alors que je suis en train de "mouliner" dans une boucle !
Si quelqu'un à une idée, ou même une solution, je le remercie d'avance !

MadM@tt · Accepted Answer

A moins d'utiliser du multi-thread, ton programme ne peut executer qu'une commande à la fois.
Donc tant que tu es dans ta boucle, rien d'autre ne peut s'executer. C'est pourquoi les clic sur le bouton sont "stockés" quelque part, puis lorsque la boucle (et meme la fonction qui contient la boucle) est terminée, les evenements "Click" vont etre déclenchés.

Pour pouvoir palier à ça, il faut utiliser DoEvents dans ta boucle, qui va permettre de faire "une pause" dans l'execution de ta boucle pour executer d'autres codes. ça va ralentir ta boucle un peu mais bon.

StopAction = False
TANT QUE je ne suis pas a la fin du fichier OU StopAction = True
    transmettre ...
    doevents
FIN TANT

Et dans l'evenement click du bouton :
StopAction=True

Ne pas oublier de déclarer StopAction as Boolean dans la form :
Dim StopAction as Boolean

- MadMatt -
Vb System Library

Spoolega · Answer

Merci bien MadMatt ! 
ca répond tout à fait a mon problème, merci ^^

cs_MPi · Answer

Je ne suis pas certain d'être bien réveillé, mais ne serait-ce pas plutôt
TANT QUE je ne suis pas a la fin du fichier ET StopAction = False
    transmettre ....

MPi

MadM@tt · Answer

Arf oui completement, j'ai confondu avec un JUSQU'A QUE
Tu as completement raison toutes mes excuses ^^

- MadMatt -
Vb System Library

cs_MPi · Answer

Pas de problème...
Ça me rassure de voir voir que je suis bien réveillé ... ¦¬)
... malgré le peu d'heures de sommeil ...

MPi

Intercepter un évenement depuis une boucle

5 réponses

Votre réponse

Discussions similaires