就是把右上角的X取消或者不可用！能用编程来实现吗？
如果能话请给出代码！先谢谢了

Delphi 中是这样处理的：

在close 事件中添加：Action:=CaNone;

OK了！

VB中可能和这差不多吧！

Private Declare Function GetSystemMenu Lib "User32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long Private Declare Function DeleteMenu Lib "User32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long Private Declare Function AppendMenu Lib "User32" Alias "AppendMenuA" (ByVal hMenu As Long, ByVal wFlags As Long, ByVal wIDNewItem As Long, ByVal lpNewItem As Any) As Long Private Declare Function GetMenuString Lib "User32" Alias "GetMenuStringA" (ByVal hMenu As Long, ByVal wIDItem As Long, ByVal lpString As String, ByVal nMaxCount As Long, ByVal wFlag As Long) As Long Private Declare Function SendMessage Lib "User32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Const WM_NCLBUTTONDBLCLK = &HA3 Const WM_NCLBUTTONDOWN = &HA1 Const HTCAPTION = 2 Const MF_STRING = &H0& Const MF_BYCOMMAND = &H0& Const SC_CLOSE = &HF060

Private hMenu As Long Private CloseStr As String '记录Close MenuItem的字串

'将"关闭"的那一个MenuItem 加回来 Private Sub Command1_Click() Call AppendMenu(hMenu, MF_STRING, SC_CLOSE, CloseStr)

'令"X"能出现Enable的颜色 Call SendMessage(hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&) End Sub

Private Sub Form_Load() hMenu = GetSystemMenu(Me.hwnd, 0) CloseStr = String(255, 0)

'SC_CLOSE指的便是"关闭"的那一个MenuItem ID Call GetMenuString(hMenu, SC_CLOSE, CloseStr, 256, MF_BYCOMMAND) CloseStr = Left(CloseStr, InStr(1, CloseStr, Chr(0)) - 1)

Call DeleteMenu(hMenu, SC_CLOSE, MF_BYCOMMAND) End Sub

斑主太厉害了，俺看不懂E文！

多谢！已经在试中
遇到问题还会来问的

不知道我说的那种能不能用？

这里是vb ，你说的能用吗

窗体右上角的X是什么?

"X"就是关闭按钮！

使用 Form_QueryUnload：

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If UnloadMode < 2 Then
Cancel = True
End If
End Sub

详细请搜索 Form_QueryUnload 的用法
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If UnloadMode < 2 Then
'Tishi = MsgBox("是否关闭？", vbYesNo + vbQuestion, "提示信息")
'If Tishi = vbYes Then
'Unload Me
'Else:
Cancel = True
'End If
End If
End Sub