Wait

[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