[Fait][API] faire disparaître les boutons maximize minimize restore [FAQ]

[cafeine]

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Option Explicit
 
Private Declare Function SetWindowLongA Lib "user32" _
  (ByVal hWnd As Long, ByVal nIndex As Long, _
  ByVal dwNewLong As Long) As Long
 
Private Declare Function GetWindowLongA Lib "user32" _
  (ByVal hWnd As Long, ByVal nIndex As Long) As Long
 
Const WS_MINIMIZEBOX = &H20000
Const WS_MAXIMIZEBOX = &H10000
Const GWL_STYLE = (-16)
 
Function RetireRestoreMaximize(ByVal hWndx As Long)
' hWndx est le handle de la fenêtre à modifier ...    
Dim L As Long
 
    L = GetWindowLongA(hWndx, GWL_STYLE)
    L = L And Not (WS_MINIMIZEBOX)
    L = L And Not (WS_MAXIMIZEBOX)
    L = SetWindowLongA(hWndx, GWL_STYLE, L)
 
End Function

[Philippe JOCHMANS]

Je viens de tester, c'est nikel, fonctionne à la fois pour les formulaires et la fenêtre application.

Starec

[zarkod]

attention pour que cela fonctionne il faut faire l'appel à RetireRestoreMaximize après le Me.Show, sinon il est sans effet