2,749
社区成员
发帖
与我相关
我的任务
分享注册表单中退出的代码怎么写
注册表单中退出的代码怎么写
一个程序，需要注册成正版软件，算法以写好，当运行主文件时，提示注册，如果点注册，则执行注册表单，如果点退出，这段代码怎么写，我试过用thisform.release不行，只不过是退出当前表，主表还存在，用什么语句，才能完全退出所有窗口呢，求解。
一个程序，需要注册成正版软件，算法以写好，当运行主文件时，提示注册，如果点注册，则执行注册表单，如果点退出，这段代码怎么写，我试过用thisform.release不行，只不过是退出当前表，主表还存在，用什么语句，才能完全退出所有窗口呢，求解。
...全文
请发表友善的回复…
发表回复
liyzzyil 2013-12-25
- 打赏
- 举报
5楼正解，一山还比一山高，谢谢，问题解决了
十豆三 2013-12-25
- 打赏
- 举报
你的注册表单设为顶层表单(ShowWindow 为 2)，然后主程序代码如下：
Do Form 注册表单.Scx
Read Events
Quit
退出时：
Clear Events
十豆三 2013-12-25
- 打赏
- 举报
你的表单不是顶层表单？
直接
Quit
wwwwb 2013-12-25
- 打赏
- 举报
是在编译后的程序中运行？如果是，设计1个表单，设为顶层，上述代码应该可以了
liyzzyil 2013-12-25
- 打赏
- 举报
_screen.activeform.tag="0"
ask=messagebox("确实要退出系统吗？",4+32+256,"退出")
if ask=6
close all
clear all
release all
clear events
else
_screen.activeform.tag="1"
endif
这样都不行，提示不能退出VFP，
1楼的方法也不行，试过了
都市夜猫 2013-12-25
- 打赏
- 举报
clear events
quit
