Activer ou Desactiver le Sablier

[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