如何去掉子窗体的关闭按钮.右上角的那个X
2006-05-10 10:36
781 查看
如何去掉子窗体的关闭按钮.右上角的那个X
Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long
Private Declare Function GetMenuItemCount Lib "user32" (ByVal hMenu 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 Const MF_BYPOSITION = &H400&
Private Const MF_DISABLED = &H2&
Public Sub DisableX(Frm As Form)
Dim hMenu As Long, nCount As Long
'获得窗口系统菜单的菜单句柄
hMenu = GetSystemMenu(Frm.hwnd, 0)
'得到hMenu指定的菜单的菜单项数目
nCount = GetMenuItemCount(hMenu)
'将系统菜单的最后一个菜单项移走(最后一个菜单项是 'Close')
Call RemoveMenu(hMenu, nCount - 1, MF_DISABLED Or MF_BYPOSITION)
'重画系统菜单
DrawMenuBar Frm.hwnd
End Sub
Private Sub Command1_Click()
End
End Sub
Private Sub Form_Load()
DisableX Me
End Sub
-------------------------------------------------------------------------------------------------------------------------
在窗體的屬性窗口中,有一項為controlbox設置為false即可
Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long
Private Declare Function GetMenuItemCount Lib "user32" (ByVal hMenu 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 Const MF_BYPOSITION = &H400&
Private Const MF_DISABLED = &H2&
Public Sub DisableX(Frm As Form)
Dim hMenu As Long, nCount As Long
'获得窗口系统菜单的菜单句柄
hMenu = GetSystemMenu(Frm.hwnd, 0)
'得到hMenu指定的菜单的菜单项数目
nCount = GetMenuItemCount(hMenu)
'将系统菜单的最后一个菜单项移走(最后一个菜单项是 'Close')
Call RemoveMenu(hMenu, nCount - 1, MF_DISABLED Or MF_BYPOSITION)
'重画系统菜单
DrawMenuBar Frm.hwnd
End Sub
Private Sub Command1_Click()
End
End Sub
Private Sub Form_Load()
DisableX Me
End Sub
-------------------------------------------------------------------------------------------------------------------------
在窗體的屬性窗口中,有一項為controlbox設置為false即可
相关文章推荐
- 如何去掉MFC单文档右上角的关闭按钮
- VB2005中如何禁用窗体右上角的关闭按钮?
- 如何去掉MFC单文档右上角的关闭按钮
- 如何让对话框右上角那个关闭按钮(X)变灰
- 如何手动关闭tomcat服务,不在Eclipse中的server里按那个红色按钮关。
- winform去掉右上角关闭按钮
- C# 如何窗体去掉上面的最大化,最小化合关闭以及实现无边框窗体拖动
- C#中如何去除或屏蔽窗体默认的关闭按钮
- 如何去掉ie里面的关闭按钮,和屏蔽ALT+F4 (转载)
- 如何判断IE窗口关闭和让IE6.0右上角的“关闭”按钮失效
- VB 编程中如何使窗口右上角的关闭按钮(X)失效
- java-如何去掉JFrame上的最大化最小化和关闭按钮
- 关于窗体右上角的关闭按钮
- c# 去掉Form窗口关闭按钮,保留窗体栏
- Java-如何去掉JFrame上的最大化最小化和关闭按钮(转)
- MFC中去掉窗口右上角的关闭按钮
- C#中winform中区分Close()和点击窗体右上角关闭按钮来关闭窗体
- 【技术积累】【C#】Disable Windows窗体右上角的关闭按钮
- C#中如何去除窗体默认的关闭按钮
- 如何取消窗体标题栏关闭按钮