bouton minimiser et maximiser ?
Le
Daniel
Bonsoir a tous
J'ai par erreur perdue dans le coin droit haut les trois boutons
pour fermer maximiser et minimiser ou comment les retrouver ?
J'ai par erreur perdue dans le coin droit haut les trois boutons
pour fermer maximiser et minimiser ou comment les retrouver ?
Poser une question
Private Declare Function FindWindowA Lib "User32" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetWindowLongA Lib "User32" _
(ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLongA Lib "User32" _
(ByVal hwnd As Long, ByVal nIndex As Long, _
ByVal dwNewLong As Long) As Long
Sub remet_X()
Dim hwnd As Long
hwnd = FindWindowA(vbNullString, Application.Caption)
SetWindowLongA hwnd, -16, GetWindowLongA(hwnd, -16) Or &H80000
End Sub
AV
"Daniel" 2R1ib.48925$