如何屏蔽掉窗体中的关闭按钮X?
来源:百度文库 编辑:神马文学网 时间:2024/06/13 14:09:24
问:如何屏蔽掉窗体中的关闭按钮X?
答:可以使用API函数将窗体菜单中的 关闭 项灰掉,因为菜单同关闭按钮是关联的,这样关闭
按钮也会不可用。具体代码如下:
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 Declare Function EnableMenuItem Lib "user32" _
(ByVal hMenu As Long, ByVal wIDEnableItem As Long, _
ByVal wEnable As Long) As Long
Const SC_CLOSE = &HF060
Private Sub Form_Load()
Dim hMenu As Long
hMenu = GetSystemMenu(Me.hwnd, 0)
RemoveMenu hMenu, &HF060, &H200&
Debug.Print EnableMenuItem(hMenu, SC_CLOSE, 1)
End Sub
答:可以使用API函数将窗体菜单中的 关闭 项灰掉,因为菜单同关闭按钮是关联的,这样关闭
按钮也会不可用。具体代码如下:
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 Declare Function EnableMenuItem Lib "user32" _
(ByVal hMenu As Long, ByVal wIDEnableItem As Long, _
ByVal wEnable As Long) As Long
Const SC_CLOSE = &HF060
Private Sub Form_Load()
Dim hMenu As Long
hMenu = GetSystemMenu(Me.hwnd, 0)
RemoveMenu hMenu, &HF060, &H200&
Debug.Print EnableMenuItem(hMenu, SC_CLOSE, 1)
End Sub
如何屏蔽掉窗体中的关闭按钮X?
VB示例:VB中使窗体右上角的X按钮失效
如何去掉JFrame上的最大化最小化和关闭按钮
js解决如何在iframe框架加个打开和关闭的按钮(转载)
JavaScript实现窗体屏蔽并打开一个新的窗口
在程序中怎么样判断子窗体是否打开和怎么样关闭子窗体的问题?
登录成功后关闭登录窗体显示主窗体的三种方法
监听浏览器关闭按钮点击事件
如何屏蔽ip地址?
Excel中的窗体控件和ActiveX控件
综合布线系统中的屏蔽技术
如何建立立体按钮
如何屏蔽 Google AdSense 广告
如何屏蔽 Google AdSense 广告
如何关闭系统共享
如何消除MDI主窗体在创建MDI子窗体时的闪烁
生活中的潜规则 x
教你如何屏蔽flash广告!!
如何屏蔽本机的IP地址?
如何屏蔽集成显卡? - 已回答 - 天涯问答
如何屏蔽本机的ip地址?
教你如何屏蔽flash广告
如何屏蔽本机的ip地址
电脑硬盘坏道如何屏蔽