|
- '*************************************************************************
- '**模 块 名:Form1
- '**说 明:魔灵圣域 版权所有2008 - 2009(C)
- '**创 建 人:郭卫
- '**日 期:2008-03-20 10:30:32
- '**修 改 人:
- '**日 期:
- '**描 述:
- '**版 本:V1.0.0
- '*************************************************************************
- Option Explicit
- 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 Const SC_SIZE = &HF000&
- Private Const MF_REMOVE = &H1000&
- Private Declare Function DeleteMenu Lib "User32" (ByVal hMenu As Long, _
- ByVal nPosition As Long, _
- ByVal wFlags As Long) As Long
- Private Declare Function SetWindowLong Lib "User32" Alias "SetWindowLongA" _
- (ByVal hWnd As Long, ByVal nIndex As Long, _
- ByVal dwNewLong As Long) As Long
- Private Declare Function GetWindowLong Lib "User32" Alias "GetWindowLongA" _
- (ByVal hWnd As Long, ByVal nIndex As Long) As Long
- Private Const WS_MINIMIZEBOX = &H20000
- Private Const WS_MAXIMIZEBOX = &H10000
- Private Const SC_CLOSE = &HF060
- Private Const GWL_STYLE = (-16)
- '得到菜单的项目数
- Private Declare Function GetMenuItemCount Lib "User32" (ByVal hMenu As Long) As Long
- Private Const MF_BYPOSITION = &H400&
- Private Sub Form_Load()
- Dim MdiMenuHwnd As Long
- Dim hMenu As Long
- '使MDI父窗体的最大化按钮变灰
- hMenu = GetWindowLong(Me.hWnd, GWL_STYLE)
- 'hMenu = hMenu And Not (WS_MINIMIZEBOX) '使最小化按钮变灰
- hMenu = hMenu And Not (WS_MAXIMIZEBOX) '使最大化按钮变灰
- hMenu = SetWindowLong(Me.hWnd, GWL_STYLE, hMenu)
- '删除MDI父窗体菜单中的最大化菜单、最小化菜单和关闭菜单
- MdiMenuHwnd = GetSystemMenu(hWnd, False)
- DeleteMenu MdiMenuHwnd, 4, &H400& '删除最大化菜单
- 'DeleteMenu MdiMenuHwnd, 3, &H400& '删除最小化菜单
- '注意:如果两个都要删除的话必须先删除最大化才可实现
- '屏蔽掉拖拉鼠标窗体
- RemoveMenu MdiMenuHwnd, SC_SIZE, MF_REMOVE
- '屏蔽关闭按钮和菜单
- '第一个是删除关闭菜单并使关闭按钮变灰
- hMenu = GetMenuItemCount(MdiMenuHwnd)
- DeleteMenu MdiMenuHwnd, hMenu - 1, MF_BYPOSITION
- '这个是删除菜单分界线
- hMenu = GetMenuItemCount(MdiMenuHwnd)
- DeleteMenu MdiMenuHwnd, hMenu - 1, MF_BYPOSITION
- End Sub
复制代码
[ 本帖最后由 icecept 于 2009-2-19 01:13 编辑 ] |
评分
-
查看全部评分
|