Question

VB中如何禁用MDI窗体的最大化按钮

Answer 1

Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function FlashWindow Lib "user32" (ByVal hwnd As Long, ByVal bInvert As Long) As Long
Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long
Private Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long
Const WS_SYSMENU = &H80000
Const WS_MINIMIZEBOX = &H20000
Const WS_MAXIMIZEBOX = &H10000
Const GWL_STYLE = (-16)
Const SC_MAXIMIZE = &HF030&

Private Sub MDIForm_Load()
Dim TempLng As Long
Dim R As Integer
Dim MyMenu As Long
TempLng = GetWindowLong(Me.hwnd, GWL_STYLE)
TempLng = TempLng And Not WS_MAXIMIZEBOX
SetWindowLong Me.hwnd, GWL_STYLE, TempLng
FlashWindow Me.hwnd, True
FlashWindow Me.hwnd, False
MyMenu = GetSystemMenu(Me.hwnd, 0)
RemoveMenu MyMenu, SC_MAXIMIZE, R
End Sub