Question

在VB中如何判断用户是否按了窗口右上角的关闭按钮

如上所说，请高手指教一下，先谢谢了。

Answer 1

一楼说的不对，Cancel 是integer,那里冒出来Blooean值
应该是
Private Sub Form_Unload(Cancel As Integer)
Cancel = 1 '不让窗口关闭
MsgBox "你按了关闭按钮"
exit sub
End Sub

Answer 2

楼上的回答很好，可是这样导致了一个结果就是永远关闭不了窗口的···楼主不妨用这段代码
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
n = MsgBox("真的要退出么？", vbOKCancel, "hhe")
If n = 1 Then
End
Else
Cancel = True
End If
End Sub

Answer 3

1、可以在form_unload事件里进行判断。
2、在 form_unload 事件 写下如下代码可以防止窗口被关闭，又能检测的窗口关闭按钮是否被点击。

Answer 4

Private Sub Form_Unload(Cancel As Integer)
Cancel = True '不让窗口关闭
MsgBox "你按了关闭按钮"
End Sub