100 分问一个,超简单的问题

[kkgolf]

我想让程序退出时,让用户确认一下,代码如下
Private Sub Form_Unload(Cancel As Integer)
If MsgBox("真的要退出吗", vbYesNo + vbQuestion, "") = vbNo Then

Exit Sub
End If
End Sub
是这样写的吗?为什么我退行的时候,不管点"是"或"否",程序都会退出来!
请各位达人,帮一下忙...
问题解决,马上给分

[熊孩子开学喽]

Private Sub Form_Unload(Cancel As Integer)
If MsgBox("真的要退出吗", vbYesNo + vbQuestion, "") = vbNo Then Cancel = True
End Sub

[province_]

都正确，我来捡剩饭的。

[xiazh8282]

支持 rainnygo(儒雅メ书生)



^_^

[Summer006]

不让结束程序，就修改cancel为1即可。

[MicroHkXia]

代码是对了
有请问在Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)过程里
和Private Sub Form_Unload(Cancel As Integer)过程里 加代码都可以..
两者有什么区别呢??..

[okay2003]

用QueryUnload事件，因为它是标志即将发生Unload的事件。

[射天狼]

Private Sub Form_Unload(Cancel As Integer)
If MsgBox("真的要退出吗", vbYesNo + vbQuestion, "") = vbNo Then
Cancel = True
End If
End Sub

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
免费的学习、交流、源码、工具下载网站，欢迎大家访问！
http://www.j2soft.cn/

[Oreo.M]

来晚了！呵呵！

[chengqiu_123]

详细情况可以去MSDN看看~!

[coyihisaso]

rainstormmaster(暴风雨 v2.0) 是在你的事件中用代码修正你的逻辑错误
rainnygo(行雨)推荐了你应该用的事件方法
cuizm(射天狼 http://www.j2soft.cn/)的程序标准且易看懂
WallesCai(曾经沧海难为水,除却巫山不是云。此情可待成追忆,只是当时已惘然。) 的程序简约
IamDeane(冷冷的风(Deane)) 的程序啰嗦
推荐是猎人（射天狼）的程序，其它人您应该答谢，特别是第一个给你回帖的
以上就是方案，你自己看着办吧，希望你能学习到你想要的

[bbhere]

应该用QueryUnload
QueryUnload事件在unload事件之前

[zou19820704]

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If MsgBox("真的要退出吗", vbYesNo + vbQuestion, "") = vbNo Then
Cancel=True
Exit Sub
End If
End Sub

[samwzhang]

还是放在QueryUnload中比较好，一般如果放在Unload中的话可能会关闭掉一些资源的。

[clear_zero]

1.放在queryunload里面
2.cancel=1
就好了

[damofengbo]

都能实现

[itlive]

Private Sub Form_Unload(Cancel As Integer)
If MsgBox("真的要退出吗", vbYesNo + vbQuestion, "") = vbNo Then
Cancel = True
End If
End Sub

[paullbm]

Cancel = True

这一句是关键!

[IamDeane]

倒都是正确答案，我也顺便捎一个
Private Sub Form_Unload(Cancel As Integer)
Dim myval As Integer
myval = MsgBox("真的要退出给我搜吗?", vbYesNo)
'
If myval = vbYes Then

End
Else
Cancel = 1
End If
End Sub
我的比较麻烦，呵呵

[coyihisaso]

wyf2(创新):首先是执行QueryUnload事件,然后是terminate事件,最后才是unload事件
说错了，应该是执行卸载命令后先执行QueryUnload事件，然后Unload事件,最后是Terminate事件，如果执行结束命令不执行任何事件直接退出！

[nxzhhm]

Dim SureQ As Integer
SureQ = MsgBox("真的退出该系统吗(Y/N)？ ", vbYesNo + 32, "请确认...")
If SureQ = 6 Then
Cancel = 0
Else
Cancel = -1
End If