Arrêter un programme en cours avec un bouton ANNULER

Question

Lorsque je clique sur un bouton j'ai un programme qui se lance avec une boucle WHILE (à l'intérieur j'ouvre des BDD et je fais des comparaisons entre elles). Des fois j'ai des boucles qui durent trop longtemps et j'aimerais interrompre en cours de route le programme en cliquant sur un bouton ANNULER.
Je ne sais pas si je suis très clair mais tout élément de réponse et le bien venu.
Merci

cs_guifr · Answer

C'est facile, créé pour cela une variable de type Boolean, genre "Abort", et lors de la boucle vérifie sa valeur, si elle passe à "True", alors sors de la boucle avec un "exit While"; un click sur le bouton annuler fait passer la valeur Abort à True. Lors de l'appel de la boucle n'oublie pas de redéfinir la valeur à False !
La petite astuce, c'est que ta boucle risque fort de bloquer les autres actions de ton programme, et l'action sur le bouton ne sera prise en compte qu'une fois sorti de la boucle...
A cela, une solution simple, insère un "DoEvents" au millieu de la boucle, juste avant la structure "if" vérifiant l'état de Abort par exemple...
Je ne l'ai pas précisé, mais "Abort" doit être une variable de type Public ou Global bien sûr !

cs_labout · Answer

labout
Il suffit de creer une variable public  par exemple Cont
dans la zone déclaration

dans le code du traitement
cont=true
do while cont
 DoEvents
loop

sur le click du bouton annuler
cont=false

@+

Arrêter un programme en cours avec un bouton ANNULER

2 réponses

Discussions similaires