删除菜单,MDI主窗体的“关闭”菜单在最下方,这个代码写的粗糙了点,删除了主窗体的关闭菜单(右侧的关闭按钮),还有最下方的分割线。如果删除子窗体的菜单,最好判断一下菜单的文字,不过要小心英文系统下系统菜单是英文的Public Sub RemoveX(hWnd As Long) Dim hMenu As Long Dim menuItemCount As Long
hMenu = GetSystemMenu(hWnd, 0)
If hMenu Then menuItemCount = GetMenuItemCount(hMenu)
RemoveMenu hMenu, menuItemCount - 1, MF_REMOVE Or MF_BYPOSITION RemoveMenu hMenu, menuItemCount - 2, MF_REMOVE Or MF_BYPOSITION
Dim hMenu As Long
Dim menuItemCount As Long
hMenu = GetSystemMenu(hWnd, 0)
If hMenu Then
menuItemCount = GetMenuItemCount(hMenu)
RemoveMenu hMenu, menuItemCount - 1, MF_REMOVE Or MF_BYPOSITION
RemoveMenu hMenu, menuItemCount - 2, MF_REMOVE Or MF_BYPOSITION
DrawMenuBar hWnd
End If
End Sub
请问一下这是什么回事????