主题：关于vf程序退出的问题
lianyan99
[专家分：0] 发布于 2011-01-13 12:38:00
请问如何实现在程序窗口处点击“X”可以退出vf。（最好给一段代码，谢谢！）[em2]
回复列表 （共6个回复）
沙发
qjbzjp [专家分：8830] 发布于 2011-01-13 18:36:00
在表单的QueryUnload事件中加入命令：Quit
板凳
wuzhouhong [专家分：10890] 发布于 2011-01-14 11:09:00
在启动程序中输入：
ON shutdown Quit
3 楼
lianyan99 [专家分：0] 发布于 2011-01-14 15:04:00
[quote]在表单的QueryUnload事件中加入命令：Quit[/quote]
我的主程序中有READ events语句，所以我在QueryUnload事件中加入命令
clear events
quit
谢谢！
4 楼
lianyan99 [专家分：0] 发布于 2011-01-14 15:08:00
[quote]在启动程序中输入：
ON shutdown Quit[/quote]
首先要谢谢你的帮助。
我的启动程序是：
SET DEFAULT TO 目录
DO FORM XXXX.scx
READ events
用“ON shutdown Quit”是不行的，加clear events好像也不行。我在网上也找了些资料，还是没有成功。不知道在启动程序中该如何写好该段语句？请指导！
5 楼
lianyan99 [专家分：0] 发布于 2011-01-14 16:03:00
再问一下，在该种退出方式下，如何弹出一个是否退出的判断的对话框呢？
6 楼
qjbzjp [专家分：8830] 发布于 2011-01-14 19:09:00
ON SHUTDOWN do myquit
PROCEDURE myquit
IF MESSAGEBOX(" 确实要退出“×××系统吗”？ ",4,"退出系统警示")=6
clear events
QUIT
ENDIF
ENDPROC
我来回复
您所在位置：社区首页 — Visual Foxpro讨论区 — 关于vf程序退出的问题