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

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