请问怎么样去掉MDI窗体的最大化按钮？最好能保留最小化按钮。

Question

hMenu = GetSystemMenu(Me.hWnd, False)
Me.Top = 0
Me.Left = 0
Me.WindowState = 2
DeleteMenu hMenu, 4, &H400&  '最大化
DeleteMenu hMenu, 2, &H400& '移动
DeleteMenu hMenu, 1, &H400&  '大小
'DeleteMenu hMenu, 0, &H400&  '恢复

Answer 1

哦，大伙都午睡去了吗？neweguo(new)还在吗？

Answer 2

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 = &H20000
Const WS_MAXIMIZEBOX = &H10000
Const GWL_STYLE = (-16)Dim lWnd As Long
lWnd = GetWindowLong(Me.hwnd, GWL_STYLE)lWnd = lWnd And Not (WS_MINIMIZEBOX) 'remove maxButton
lWnd = lWnd And Not (WS_MAXIMIZEBOX) 'remove minButton
lWnd = SetWindowLong(Me.hwnd, GWL_STYLE, lWnd)

Answer 3

tyd163xx(我是VB初学者)　
你这个问题好像没有解决吗！
这个程序吧最大化和最小化都给Remove了！
怎样才能保留最小化的按钮呢？