关于提示信息的错误

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

咁我运行此表单就会弹出两次提示信息..如果我按下取消,就会出现异常,请问
点解会咁样呢?
...全文
67 4 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
落单枫叶 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

2,748

社区成员

发帖
与我相关
我的任务
社区描述
VFP,是Microsoft公司推出的数据库开发软件,用它来开发数据库,既简单又方便。
社区管理员
  • VFP社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧