关于提示信息的错误

[cudng]

如果我在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

咁我运行此表单就会弹出两次提示信息..如果我按下取消,就会出现异常,请问
点解会咁样呢?

[blackfox0322]

我的和你的不一样,我是写的一个象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

• 打赏
• 举报

回复 赞

[落单枫叶]

1、不需要else
2、把do aa.prg改为quit

• 打赏
• 举报

回复 赞

[落单枫叶]

忘了说清楚,是把click中的do aa.prg改为quit
quit是告诉程序要退出了,程序自然会去调用你编的退出程序.

• 打赏
• 举报

回复 赞

[落单枫叶]

另外,把public aa这一句去掉

• 打赏
• 举报

回复 赞