Page 1 sur 1
Wait
Publié:
06 Nov 2007 à 09:07par Michael DELIQUE
- Code : Tout sélectionner
Public Sub Wait_API(Byval wnbseconds As Integer)
'passer le nombre de secondes de pause
%REM
'Variable pour la fonction Wait_API
Declare Sub Sleep_API Lib "kernel32" (Byval dwMilliseconds As Long)
%END REM
On Error Goto ErreurWait_API
Call Sleep_API(Int(wnbseconds * 1000#))
Exit Sub
ErreurWait_API:
Msgbox "("+Cstr(Getthreadinfo (1))+" Call by "+Cstr(Getthreadinfo(10))+")"+Chr(10)+"Erreur " + Str(Err) + " : "+Chr(10) + Cstr(Error)+". "+Chr(10)+"Ligne N° "+Cstr(Erl),16," ERREUR !"
Exit Sub
End Sub