| 编程中国 | 业界新闻 | 技术文章 | 视频教程 | 下载频道 | 程序源码 | 个人空间 | 编程论坛
全能ASP/PHP/ASP.NET主机,支持月付专业 MSSQL 数据库空间,支持月付专业 MySQL 数据库空间,支持月付买域名,送MP3、MP4
高端软件开发 = 年薪十万不是梦赛孚耐:软件保护加密专家身份认证令牌USB KEY买空间,免费送域名(厦门中资源)
共有 580 人关注过本帖
标题:[推荐]如何关闭表单并退出系统
收藏  订阅  推荐  打印 
tzhtang
Rank: 4
等级:高级会员
帖子:888
积分:9030
注册:2004-8-30
[推荐]如何关闭表单并退出系统

如果是用thisform.release来退出软件,只要在Release Event事件中加入 clear event 结束事件循环,就可以了。

当表单的Closable设置为.T.,也就是用户可以通过单击表单右上角的“×”关闭表单,此时必须要在表单的QueryUnload中加入clear event来结束事件循环。否则,将出现软件无法退出。

因为,用thisform.release退出软件时,触发的是Release Event,而用表单右上角的“×”关闭表单,触发的是QueryUnload。

当用户选择表单的退出按钮时,如果去提示用户,并允许用户取消退出,返回软件,在表单的QueryUnload事件中加入:

if main.runing=.t. if 1=messagebox('确认退出系统吗?',1,'提示') thisform.release else nodefaul endif endif

搜索更多相关主题的帖子: 表单  系统  推荐  
2005-3-7 09:50
关于我们 | 广告合作 | 编程中国 | 清除Cookies | Archiver | WAP | TOP

编程中国 版权所有,并保留所有权利。鲁ICP备08000592号
Powered by Discuz, Processed in 0.157988 second(s), 9 queries.
Copyright©2004-2008, BCCN.NET, All Rights Reserved