Changer le titre de la fenêtre Active

[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