删除MDIForm系统菜单的最大最小项时产生的错误
jiajy 2003-08-20 12:54:14 Private Declare Function DeleteMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long
Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Boolean) As Long
Private Declare Function DrawMenuBar Lib "user32" (ByVal hwnd As Long) As Long
Sub MDIForm_Load()
Dim hMenu As Long
hMenu = GetSystemMenu(Me.hwnd, False)
call DeleteMenu(hMenu, SC_MAXIMIZE, MF_BYCOMMAND)
call DeleteMenu(hMenu, SC_MINIMIZE, MF_BYCOMMAND)
call DrawMenuBar(Me.hwnd)
end sub
函数DeleteMenu,DrawMenuBar执行都成功,但是最大最小菜单项还存在,为什么???