189 8069 5689
1、窗体属性ControlBox=False则不显示关闭、最大化、最小化按钮
为东山等地区用户提供了全套网页设计制作服务，及东山网站建设行业解决方案。主营业务为成都网站设计、网站建设、东山网站设计，以传统方式定制建设网站，并提供域名空间备案等一条龙服务，秉承以专业、用心的态度为用户提供真诚的服务。我们深信只要达到每一位用户的要求，就会得到认可，从而选择与我们长期合作。这样，我们也可以走得更远！
2、如果还想保留最大化、最小化按钮，仅仅不允许关窗口，可以
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Cancel = True
End Sub
复制以下代码就可以实现将窗口右上方的“关闭”按钮设为禁用
Option Explicit
Private Declare Function GetSystemMenu Lib "user32"_
(ByVal hwnd As Long, ByVal bRevert As Long) As Long
Private Declare Function GetMenuItemCount Lib "user32"_
(ByVal hMenu 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 DrawMenuBar Lib "user32"_
(ByVal hwnd As Long) As Long
Private Const MF_BYPOSITION = H400
Private Const MF_REMOVE = H1000
Private Sub DisableX()
Dim hMenu As Long
Dim nCount As Long
hMenu = GetSystemMenu(Me.hWnd, 0)
nCount = GetMenuItemCount(hMenu)
'Get rid of the Close menu and its separator
Call RemoveMenu(hMenu, nCount - 1, MF_REMOVE Or MF_BYPOSITION)
Call RemoveMenu(hMenu, nCount - 2, MF_REMOVE Or MF_BYPOSITION)
'Make sure the screen updates
'our change DrawMenuBar Me.hWnd
End Sub
Private Sub Form_Load()
DisableX
End Sub
Private Sub Form_Click()
'We need a way out, since the X button'doesn't work :-)
Unload Me
End Sub
设置ControlBox为False是可以的，不过全部按钮都会消失（包括最小化，最大化）
用API可以单独把关闭按钮干掉……
'VB.NET Code
Public Class Form1
Private Declare Function GetSystemMenu Lib "User32 " (ByVal hwnd As Integer, ByVal bRevert As Long) As Integer
Private Declare Function RemoveMenu Lib "User32 " (ByVal hMenu As Integer, ByVal nPosition As Integer, ByVal wFlags As Integer) As Integer
Private Declare Function DrawMenuBar Lib "User32 " (ByVal hwnd As Integer) As Integer
Private Declare Function GetMenuItemCount Lib "User32 " (ByVal hMenu As Integer) As Integer
Private Const MF_BYPOSITION = H400
Private Const MF_DISABLED = H2
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim hMenu As Integer, nCount As Integer
hMenu = GetSystemMenu(Me.Handle.ToInt32, 0)
nCount = GetMenuItemCount(hMenu)
'Debug.Print(nCount)
Call RemoveMenu(hMenu, nCount - 1, MF_DISABLED Or MF_BYPOSITION)
DrawMenuBar(Me.Handle.ToInt32)
End Sub
End Class
'VB6 code =============================================================
Private Declare Function GetSystemMenu Lib "User32 " (ByVal hwnd As Long, ByVal bRevert As Long) As Integer
Private Declare Function RemoveMenu Lib "User32 " (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long
Private Declare Function DrawMenuBar Lib "User32 " (ByVal hwnd As Long) As Long
Private Declare Function GetMenuItemCount Lib "User32 " (ByVal hMenu As Long) As Long
Private Const MF_BYPOSITION = H400
Private Const MF_DISABLED = H2
Private Sub Form1_Load()
Dim hMenu As Long, nCount As Long
hMenu = GetSystemMenu(Me.hWnd, 0)
nCount = GetMenuItemCount(hMenu)
'Debug.Print nCount
Call RemoveMenu(hMenu, nCount - 1, MF_DISABLED Or MF_BYPOSITION)
DrawMenuBar Me.hWnd
End Sub
FormBorderStyle选为None，没有标题栏
form 的 controlbox 属性为false
'禁用关闭菜单
ModifyMenu GetSystemMenu(Me.hwnd, 0), SC_CLOSE, MF_GRAYED, 7, "不允许关闭"
将菜单ID为SC_CLOSE设置为菜单索引7的菜单项，并禁用关闭菜单
'恢复禁用的关闭菜单
ModifyMenu GetSystemMenu(Me.hwnd, 0), 7, MF_ENABLED, SC_CLOSE, "允许关闭"
将菜单的索引为7的菜单项重新设置回菜单ID，并启用关闭菜单