Arreter boucle infinie avec echap

Question

bonjour serait il possible de creer une boucle infinie et pour la fermer appuyer sur echap.
j'ai essaye ca
Do until(key=vbechap)
' exemple
msgbox("Coucou")
doevents
loop


mais rien ne se produit 

quelqu'un pourrait il corriger ce petit bout de code
ps: je n'ai jamais programme avec do events et do until

(\___/)
(='.'=)
(")_(") ceci est un petit lapin copier/coller dans votre signature pour dominer le monde ^^

ricky84 · Answer

1> mettre la form en Keypreview=true
2> dans les déclaration de la form, mettre une variable public : Public Dummy as boolean
3> Dans keypress ou keydown de la form, faire un test sur la touche echap. je me souviens plus du code exact ni dans quel evenement il faut etre, mais ça doit donner un truc qui ressemble à : if e.keycode=VbKeyEscape then Dummy = true, j'ai mis en rouge ce qui est important pour la suite
4>Ta procédure :
Dummy=false 'pour etre certain qu'il n'est pas déja True
Do until(Dummy=true)
  ' Ton code
  Doevents
loop

barth62 · Answer

ce n'est pas une form que je fais mais je suis en vbs avec le bloc notes 


(\___/)
(='.'=)
(")_(") ceci est un petit lapin copier/coller dans votre signature pour dominer le monde ^^

Arreter boucle infinie avec echap

2 réponses

Votre réponse

Discussions similaires