关于提示信息的错误

cudng 2003-12-12 07:27:32
如果我在main下有一句,系想实现关闭屏幕时有提示性信息..
.
on shutdown do aa.prg(aa 为退出程序)
..
do form aa
read events

.

退出程序aa中的代码
public aa
aa=messagebox("真的退出本程序!",1,"提示")
if aa=1
clear events
close all
else
..(若按下取消,咁应该在这里填写什么呢?)
endif
若在表单aa在"退出"中CLICK ENENT中有语句
do aa.prg

咁我运行此表单就会弹出两次提示信息..如果我按下取消,就会出现异常,请问
点解会咁样呢?
...全文
16 4 打赏 收藏 举报
写回复
4 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
落单枫叶 2003-12-12
另外,把public aa这一句去掉
  • 打赏
  • 举报
回复
落单枫叶 2003-12-12
忘了说清楚,是把click中的do aa.prg改为quit
quit是告诉程序要退出了,程序自然会去调用你编的退出程序.
  • 打赏
  • 举报
回复
落单枫叶 2003-12-12
1、不需要else
2、把do aa.prg改为quit
  • 打赏
  • 举报
回复
blackfox0322 2003-12-12
我的和你的不一样,我是写的一个象98关机样的退出程序,呵,很久以前写的,不知还可不可以用,你参考一下,部分程序如下:
#define EWX_LOGOFF 0
#define EWX_SHUTDOWN 1
#define EWX_REBOOT 2
#define EWX_FORCE 4
#define EWX_POWEROFF 8
DECLARE integer ExitWindowsEx IN USER32.DLL AS Shut_Down INTEGER , INTEGER
LOCAL nAnswer
DO CASE
CASE THISFORM.Optiongroup1.Value = 1 &&关闭程序
IF MESSAGEBOX("你真的要退出本程序吗?",64+4,"提示信息")=6
DO QUITA &&QUITA 为退出时调用的PRG程序,用来释放变量和关闭数据库
CLEA EVENT
ENDI
CASE THISFORM.Optiongroup1.Value = 2 &&关闭计算机
CLEA EVENT
=Shut_Down( EWX_SHUTDOWN + EWX_FORCE , 0 )
CASE THISFORM.Optiongroup1.Value = 3 &&重新启动计算机
CLEA EVENT
=Shut_Down( EWX_REBOOT + EWX_FORCE , 0 )
CASE THISFORM.Optiongroup1.Value = 4 &&关闭所有程序用其它用户登录
CLEA EVENT
=Shut_Down( EWX_LOGOFF + EWX_FORCE, 0 )
ENDC
  • 打赏
  • 举报
回复
相关推荐
发帖
VFP
加入

2533

社区成员

VFP,是Microsoft公司推出的数据库开发软件,用它来开发数据库,既简单又方便。
社区管理员
  • VFP社区
申请成为版主
帖子事件
创建了帖子
2003-12-12 07:27
社区公告
暂无公告