Faire une pause

Salut

je recherche la methode pour faire une pause de 5 sec

merci :)

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
-------------------------------
Réponse au message :
-------------------------------

Salut

je recherche la methode pour faire une pause de 5 sec

merci :)

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

-------------------------------
Réponse au message :
-------------------------------

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
-------------------------------
Réponse au message :
-------------------------------

Salut

je recherche la methode pour faire une pause de 5 sec

merci :)

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...

-------------------------------
Réponse au message :
-------------------------------

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

-------------------------------
Réponse au message :
-------------------------------

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
-------------------------------
Réponse au message :
-------------------------------

Salut

je recherche la methode pour faire une pause de 5 sec

merci :)

Salut

Voir aussi

http://msdn.microsoft.com/fr-fr/library/system.threading.thread.sleep.aspx

A+
MANUANTIBES