Faire une pause

Signaler
Messages postés
75
Date d'inscription
lundi 4 février 2002
Statut
Membre
Dernière intervention
24 mars 2003
-
Messages postés
491
Date d'inscription
mardi 24 octobre 2000
Statut
Membre
Dernière intervention
18 novembre 2021
-
Salut

je recherche la methode pour faire une pause de 5 sec

merci :)

4 réponses

Messages postés
41
Date d'inscription
mardi 14 mai 2002
Statut
Membre
Dernière intervention
17 janvier 2003

Salut, il faut utiliser l'api sleep

Private Declare Sub sapiSleep Lib "kernel32" _
Alias "Sleep" _
(ByVal dwMilliseconds As Long)

Public sub Pause (TMPS as long) 'temps donné en milisecondes donc 5000 ds ton cas
sleep tmps
end sub

vala
0
Messages postés
41
Date d'inscription
mardi 14 mai 2002
Statut
Membre
Dernière intervention
17 janvier 2003

Private Declare Sub sapiSleep Lib "kernel32" _
Alias "Sleep" _
(ByVal dwMilliseconds As Long)

Public Sub Pause(TMPS As Variant) 'temps donné en milisecondes donc 5000 ds ton cas
Call sapiSleep(TMPS)
End Sub

Private Sub Command1_Click()
Pause 5000
MsgBox "toto"
End Sub

'désolé, y'avait p'tite erreur
0
Messages postés
30
Date d'inscription
vendredi 12 juillet 2002
Statut
Membre
Dernière intervention
15 mai 2009

Sans passer par une api et utiliser le Timer...

Private sub Pause (PauseTime)
Dim Start
Start=Timer
Do While Timer < Start + Pausetime
DoEvents
Loop
end sub

voala...
0
Messages postés
491
Date d'inscription
mardi 24 octobre 2000
Statut
Membre
Dernière intervention
18 novembre 2021
4
0