Page 1 sur 1
Le print LS version API
Publié:
06 Nov 2007 à 14:05par Michael DELIQUE
- Code : Tout sélectionner
Public Sub Print_API(wMessage As String)
'equivalent du Print en LS : affiche du text dans la barre de statut notes
%REM
'variableAPI pour la fonction Print_API
Declare Function NEMPostStatus Lib "nnotesws.dll" (Byval szText As String) As Long
%END REM
On Error Goto ErreurHandle
Call NEMPostStatus(wMessage)
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 !"
End Sub