菜鸟问题，如何在退出程序时，做提示！（一定给分，谢谢）
我想在用户退出程序时，给出提示“是否真的退出？yes确定，no 返回。”，怎么办？ 问题点数：50、回复次数：13Top
1 楼zyl910（编程的乐趣在于编程控制硬件，与用图形学实现绚丽效果）回复于 2002-02-27 14:50:39 得分 0
Private Sub Form_Unload(Cancel as integer)
If MsgBox("……",vbYesNo,"……")=vbNo Then Cancel=true
End Sub
Top
2 楼huangpin（hp）回复于 2002-02-27 14:52:15 得分 0
If MsgBox("提示：你真的要离开系统吗！", vbOKCancel, "退出系统") = vbOK Then EndTop
3 楼huangpin（hp）回复于 2002-02-27 14:52:37 得分 0
If MsgBox("提示：你真的要离开系统吗！", vbOKCancel, "退出系统") = vbOK Then EndTop
4 楼huangpin（hp）回复于 2002-02-27 14:53:24 得分 0
If MsgBox("提示：你真的要离开系统吗！", vbOKCancel, "退出系统") = vbOK Then EndTop
5 楼pengnick（pengnick）回复于 2002-02-27 14:54:03 得分 0
Private Sub Form_Unload(Cancel as integer)
If MsgBox("",vbYesNo,"")=vbNo Then Cancel=true
End Sub
Top
6 楼ferrytang（欢迎你）回复于 2002-02-27 14:54:40 得分 0
Private Sub MDIForm_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If MsgBox("你要退出本系统吗", vbQuestion + vbYesNo, "询问") = vbNo Then
Cancel = 1
End If
End Sub
Top
7 楼ferrytang（欢迎你）回复于 2002-02-27 14:57:22 得分 25
QueryUnload事件中处理比较好
在unload事件中已经卸载了部分成员了Top
8 楼ferrytang（欢迎你）回复于 2002-02-27 15:00:19 得分 25
QueryUnload 事件
在一个窗体或应用程序关闭之前发生。当一个 MDIForm 对象关闭时，QueryUnload 事件先在 MDI 窗体发生，然后在所有 MDI 子窗体中发生。如果没有窗体取消 QueryUnload 事件，该 Unload 事件首先发生在所有其它窗体中，然后再发生在 MDI 窗体中。当一个子窗体或一个 Form 对象关闭时，在那个窗体中的 QueryUnload 事件先于该窗体的 Unload 事件发生。
语法
Private Sub Form_QueryUnload(cancel As Integer, unloadmode As Integer)
Private Sub MDIForm_QueryUnload(cancel As Integer, unloadmode As Integer)
QueryUnload 事件语法包括下列部分：
部分 描述
cancel 一个整数。将此参数设定为除 0 以外的任何值，可在所有已装载的窗体中停止 QueryUnload 事件，并阻止该窗体和应用程序的关闭。
unloadmode 一个值或一个常数，如返回值中所描述的，它指示引起 QueryUnload 事件的原因。
返回值
unloadmode 参数返回下列值：
常数 值 描述
vbFormControlMenu 0 用户从窗体上的“控件”菜单中选择“关闭”指令。
vbFormCode 1 Unload 语句被代码调用。
vbAppWindows 2 当前 Microsoft Windows 操作环境会话结束。
vbAppTaskManager 3 Microsoft Windows 任务管理器正在关闭应用程序。
vbFormMDIForm 4 MDI 子窗体正在关闭，因为 MDI 窗体正在关闭。
vbFormOwner 5 因为窗体的所有者正在关闭，所以窗体也在关闭。
Top
9 楼DeityFox（逃之11）回复于 2002-02-27 15:02:52 得分 0
同意楼上Top
10 楼daryl715（上善若水）回复于 2002-02-27 15:40:34 得分 0
to ferrytang
你都说了啊，留给小弟几句啊，：-）Top
11 楼dbcontrols（泰山__抛砖引玉）回复于 2002-02-27 16:00:40 得分 0
同意楼上Top
12 楼dbcontrols（泰山__抛砖引玉）回复于 2002-02-27 16:01:34 得分 0
同意楼上Top
13 楼Richard2001（Richard）回复于 2002-02-27 16:08:09 得分 0
to ferrytang
你都说了啊，留给小弟几句啊，：-）
Top
相关问题
关键词
得分解答快速导航
相关链接
广告也精彩
反馈
