Message D'erreur Version API

[Michael DELIQUE]

Code : Tout sélectionner

Sub DisplayError_API(wMessage As String, wnbErreur, wnbType As Integer)
   'NEMDisplayError1 - affiche est message d'erreur depuis NSTRINGS.DLL basé sur un nombre avec la possibilté d'ajouter un text
   'NEMDisplayError - comme NEMDisplayError1 mais sans texte additionnel dans le message
   
%REM
'variableAPI pour la fonction DisplayError_API
Declare Function NEMDisplayError Lib "nnotesws" (Byval wType As Integer) As Integer
Declare Function NEMDisplayError1 Lib "nnotesws" (Byval wType As Integer, Byval szMessage As String) As Integer
%END REM
   
   On Error Goto ErreurHandle
   
   If wnbType = 1 Then
      If Trim(wMessage) = "" Then
         Call NEMDisplayError(wnbErreur)
      Else
         Call NEMDisplayError1(wnbErreur, wMessage)
      End If      
   Else
      Call NEMDisplayError(wnbErreur)
   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