Page 1 sur 1
Activer ou Desactiver le Sablier
Publié:
05 Nov 2007 à 16:54par Michael DELIQUE
- Code : Tout sélectionner
Sub WaitCursor_API(nbActif As Integer)
'active ou desactive le cuseur d'attente (sablier)
%REM
'variableAPI pour la fonction DisableWaitCursor_API
Declare Function NEMEnableWaitCursor Lib "nnotesws.dll" () As Long
Declare Function NEMDisableWaitCursor Lib "nnotesws.dll" () As Long
%END REM
On Error Goto ErreurHandle
If nbActif = True Then
Call NEMEnableWaitCursor
Else
Call NEMDisableWaitCursor
End If
Exit Sub
ErreurHandle:
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