Faire une pause

cs_Xime Messages postés 75 Date d'inscription lundi 4 février 2002 Statut Membre Dernière intervention 24 mars 2003 - 18 juil. 2002 à 10:49
ManuAntibes Messages postés 491 Date d'inscription mardi 24 octobre 2000 Statut Membre Dernière intervention 18 novembre 2021 - 11 août 2011 à 09:41
Salut

je recherche la methode pour faire une pause de 5 sec

merci :)

4 réponses

cs_dido Messages postés 41 Date d'inscription mardi 14 mai 2002 Statut Membre Dernière intervention 17 janvier 2003
18 juil. 2002 à 11:05
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
cs_dido Messages postés 41 Date d'inscription mardi 14 mai 2002 Statut Membre Dernière intervention 17 janvier 2003
18 juil. 2002 à 11:09
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
tarzent Messages postés 30 Date d'inscription vendredi 12 juillet 2002 Statut Membre Dernière intervention 15 mai 2009
25 juil. 2002 à 11:46
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
ManuAntibes Messages postés 491 Date d'inscription mardi 24 octobre 2000 Statut Membre Dernière intervention 18 novembre 2021 5
11 août 2011 à 09:41
0
Rejoignez-nous