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

Share the Post:
Share on facebook
Share on twitter
Share on linkedin

Overview

Recent Articles: