Boucle interminable + arret de boucle

Question

bonsoir &#224; vous, alors voila j'ai fait une proc&#233;dure qui est la :

Sub animation()

Call testing

Application.OnTime Now + TimeValue("00:00:01"), "testing1"

Application.OnTime Now + TimeValue("00:00:02"), "testing2"

Application.OnTime Now + TimeValue("00:00:03"), "testing3"

End Sub



A celle ci je voudrais ajouter une boucle Do loop pour la rendre
interminable et je voudrais &#233;galement crer une proc&#233;dure parallele pour
pouvoir la stoper. Merci bien pour votre aide

cs_dragon · Answer

eh ... on appel &#231;a un thread en passant et en VBA faut oublier


------------------------------------------------- 
Dragon alias aussi Waxime mais bon, pas le gout de refaire un nouveau profil lol 
-------------------------------------------------

cs_CanisLupus · Answer

Salut,

En vb6 par ex tu peux faire comme &#231;a :

Dans un module tu colles 

Public Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

et ta boucle "interminable" peut se terminer avec l'appui de escape avec cet exemple

Do
'...
Loop While GetAsyncKeyState(27) = 0

27 &#233;tant le code de la touche escape.

Je n'ai pas essay&#233; en vba mais &#231;a doit pouvoir fonctionner aussi.

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

cs_dragon · Answer

ce qui m'a douter de dire la m&#234;me chose a &#233;t&#233; le nom de la m&#233;thode "Annimation" une annimation peut pas &#234;tre programmer comme &#231;a, sinon &#231;a ralentira tout le code

au pire, tu as toujours un timer qui pourrait faire ou sinon un activeX programmer en VB6.0 qui peut recevoir les commence marche et arr&#234;t

&#231;a d&#233;pend vraiment ce que tu veux faire


------------------------------------------------- 
Dragon alias aussi Waxime mais bon, pas le gout de refaire un nouveau profil lol 
-------------------------------------------------

Boucle interminable + arret de boucle

3 réponses

Discussions similaires