在VB中屏蔽关闭按钮的方法[@more@]
'禁止关闭按钮的API声明:
Public Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long
Public Declare Function GetMenuItemCount Lib "user32" (ByVal hMenu As Long) As Long
Public Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long
vb开始按钮代码
Public Const MF_BYPOSITION = &H400&
Public Const MF_REMOVE = &H1000&
'禁止关闭按钮的函数
Public Sub DisableClose(hwnd As Long, Optional ByVal MDIChild As Boolean)
Dim hSysMenu As Long
Dim nCnt As Long
Dim cID As Long
hSysMenu = GetSystemMenu(hwnd, False)
If hSysMenu = 0 Then Exit Sub
nCnt = GetMenuItemCount(hSysMenu)
If MDIChild Then
cID = 3
Else
cID = 1
End If
If nCnt Then
RemoveMenu hSysMenu, nCnt - cID, MF_BYPOSITION Or MF_REMOVE End If  End Sub