Private Declare Function DeleteMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long
Private Declare Function GetSystemMenu Lib "user32" (ByVal hWnd As Long, ByVal bRevert As Long) As Long
Private Declare Function ModifyMenu Lib "user32" Alias "ModifyMenuA" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long, ByVal wIDNewItem As Long, ByVal lpString As String) As Long
将上述代码写在“通用”块内,之后将Form_Load()事件代码改写如下即可(两种方法都可以)
Private Sub Form_Load()
ModifyMenu GetSystemMenu(Me.hWnd, 0), &HF060&, 3, 0, "禁止关闭"
End Sub
或者
Private Sub Form_Load()
DeleteMenu GetSystemMenu(Me.hWnd, 0), &HF060&, 0
End Sub
温馨提示:内容为网友见解,仅供参考