devxlogo

Suppress Max and Min buttons in MDI forms

Suppress Max and Min buttons in MDI forms

Unlike regular forms, forms don’t expose the MinButton and MaxButton properties and these buttons are always displayed. You can suppress these buttons using the following code:

Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" _    (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As LongPrivate Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" _    (ByVal hwnd As Long, ByVal nIndex As Long) As LongConst WS_MINIMIZEBOX = &H20000Const WS_MAXIMIZEBOX = &H10000Const GWL_STYLE = (-16)Private Sub MDIForm_Load()    SetWindowLong Me.hwnd, GWL_STYLE, GetWindowLong(Me.hwnd, _        GWL_STYLE) And Not (WS_MAXIMIZEBOX Or WS_MINIMIZEBOX)End Sub

devx-admin

Share the Post: