Bonjour,
J'ai besoin dans un petit programme de faire des pauses en attendant que certains processus soient finis. J'ai regarder pas mal de forum et de tuto sur le sujet qui utilisent tous soit un timer soit un System.Threading.Thread.Sleep() mais qui ne me conviennent pas : durant l'attente, le programme ne réagit plus du tout. Finalement j'ai trouvé ceci
en appelant la fonction hbwait, tout marche très bien. Mais à présent je voudrais pouvoir annuler ou mettre en pause cette fonction quand on appuie sur un bouton... et là je coince ! Il faut sans doute détecter l'évènement "j'appuie sur telle touche" et sortir de la boucle mais en terme de code, je ne vois pas du tout ce qu'il faut écrire (je débute)... Un p'tit coup de main (et de code) serait le bienvenu, merci d'avance
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8 Friend Sub hbwait(ByVal ms_to_wait As Long) Dim endwait As Double endwait = Environment.TickCount + ms_to_wait While Environment.TickCount < endwait System.Threading.Thread.Sleep(1) Application.DoEvents() End While End Sub
Partager