Page 1 sur 1
Changer le titre de la fenêtre Active
Publié:
06 Nov 2007 à 13:57par Michael DELIQUE
- Code : Tout sélectionner
Public Sub SetActiveWindowTitle_API(wTitle As String)
'Change le titre de la fentre windows active
%REM
'variableAPI pour la fonction SetActiveWindowTitle_API
Declare Function NEMSetWindowText Lib "nnotesws.dll" ( Byval hwnd As Long, Byval sText As String) As Integer
Declare Function NEMGetCurrentSubprogramWindow Lib "nnotesws.dll" () As Long
%END REM
On Error Goto ErreurHandle
Call NEMSetWindowText(NEMGetCurrentSubprogramWindow, wTitle)
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