超高分!!VB的 MDI 窗体怎样 禁用还原按钮!!!!!!

来源：百度知道 编辑：UC知道 时间：2024/05/08 04:09:55
要求:
1.还原按钮变成灰色．
2．系统菜单也不能出现还原命令!

只要解决总是,本人从不吝啬,立即给分!!!
在最大化后,最大化按钮失效也可以

各位高手，窗口启动后就最大化，然后，按钮失效！

' 去除系统菜单里还原项用常量
Const SC_MAXIMIZE = &HF030
Const SC_MINIMIZE = &HF020
Const SC_MOVE = &HF010
Const SC_RESTORE = &HF120
Const SC_SIZE = &HF000
Const SC_CLOSE = &HF060

Const MF_BYCOMMAND = 0

' 去掉窗口的还原按钮常量
Const WS_MAXIMIZE = &H1000000
Const WS_MAXIMIZEBOX = &H10000
Const WS_MINIMIZE = &H20000000
Const WS_MINIMIZEBOX = &H20000
Const GWL_STYLE = -16

' 得到系统菜单句柄
Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long
' 删除系统菜单项
Private Declare Function DeleteMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long

' 得到窗口样式句柄
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
' 设置窗口样式句柄
Private Declare Function SetWindowLong Lib "user32&q