如何使MDI主窗体的最大化按钮变灰？

[lm517]

thank you!

[zlpanzy]

你可能得用Api了
不过有一个能达到你的“不能用最大化”的效果的方法：
在MDI主窗体的Resize事件里 写 me.height = ...
me.width =...
这样也可以

[whjwsy]

MDI只能最大化或最小化

[GinusAtCSDN]

MaximizeBox
获取或设置一个值，该值指示是否在窗体的标题栏中显示最大化按钮。

[lm517]

to yishuihanqing(易水寒):
你的是使主窗体的关闭按钮变灰，可我要的是最大化按钮变灰。

[yishuihanqing]

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
Private Declare Function DrawMenuBar Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function GetMenuItemCount Lib "user32" (ByVal hMenu As Long) As Long
Private Const MF_BYPOSITION = &H400&



Private Sub MDIForm_Load()

Dim hMenu As Long, nCount As Long

hMenu = GetSystemMenu(Me.hwnd, 0)

nCount = GetMenuItemCount(hMenu)

Call RemoveMenu(hMenu, nCount - 1, MF_BYPOSITION)

DrawMenuBar Me.hwnd

End Sub

[yishuihanqing]

给分啊，兄弟

[lm517]

to zlpanzy(安之):
你的方法不行，系统报错：当最大化或最小化时窗体不能移动或调整.

[yishuihanqing]

晕，没看清
将
Call RemoveMenu(hMenu, nCount - 1, MF_BYPOSITION)
改成：
Call RemoveMenu(hMenu, nCount - 3, MF_BYPOSITION)

可以禁止最大化按钮，但不会变成灰色，不知道是不是符合你的要求

[j4sxw]

UP

[exiong]

你的代码在Xp以上版本失效

[fangyds]

把这一句：
Call RemoveMenu(hMenu, nCount - 1, MF_BYPOSITION)
改成：
Call RemoveMenu(hMenu, nCount - 3, MF_BYPOSITION)