comment faire un délai en VB6

Question

je voudrais pouvoir lancer une instruction, attendre quelques secondes en lancer une autre attendre.... et ainsi de suite pour interragire avec un logiciel assez lent.
merci de votre aide.
Pascal

cs_neodante · Answer

:big) Neodante :big) 

API Sleep:

Declare Sub Sleep Lib "kernel32" Alias "Sleep" (ByVal dwMilliseconds As Long)

Y a plus qu'à mettre le nombre de millisecondes ...
@+

hvb · Answer

et si tu veux pas que ton prog se fige :

Private Declare Function GetTickCount Lib "kernel32" () As Long

'fonction pour xxx millisecondes
Public Function hb_sleep(millisecondes As Long)
Dim attente As Long
attente = GetTickCount + millisecondes
Do Until GetTickCount >= attente
DoEvents
Loop
End Function

tu appeles ensuite la fonction comme ceci :

hb_sleep(xxx)

ou xxx est le nbr de millisecondes de la pause necessaire

mais ca bouffe de la ressource vu que boucle infini ^^

Hvb aka Batto

hvb · Answer

infinie... jusqu'a la fin de la pause lol...

et declare le en sub et pas en tant que function comme je l'ai ecrit...
etant donné qu'elle ne revoit rien, c'est plus propre. (j'ai betement copier un vieux code que j'ai posté ici)

Hvb aka Batto

pcastain · Answer

merci a vous deux
je vais essayer
Pascal

cs_neodante · Answer

:big) Neodante :big) 

You're welcome !!!
@+

fortuel · Answer

Salut,

Si ça peut t'aider, je me suis inventé une petite fonction:

Public Function fDoWait(intPause As Integer)
'*************************************
' Pause de ? seconds en cas de besoin...
'*************************************
Dim intDureePause  As Integer
Dim lngDebut       As Long

    intDureePause = intPause
    lngDebut = Timer
    Do While Timer < lngDebut + intDureePause
        DoEvents
    Loop

End Function

Fortuel

Comment faire un délai en VB6

6 réponses

Discussions similaires