Page 1 sur 1
Message D'erreur Version API
Publié:
05 Nov 2007 à 16:46par 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