宝宝脖子淹破皮用什么:如何屏蔽掉窗体中的关闭按钮X?

来源:百度文库 编辑:偶看新闻 时间:2024/04/28 11:56:36

如何屏蔽掉窗体中的关闭按钮X

问:如何屏蔽掉窗体中的关闭按钮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