杭州交通信息网魔兽世界7.2玩的好累:vfp的问题,高手指教!
来源：百度文库 编辑：杭州交通信息网 时间：2024/04/29 20:13:16
望详细答复,不胜感激!
连编的主文件是一个表单
没有READ EVENTS时,运行exe一闪而过
我在load 和activate event都写了
READ EVENTS
CLEAR EVENTS
exe能运行了,但不能提示"不能退出vf"
我做的退出按钮也没反应了
(quitue=messagebox("真的要退出",20,"提示")
if quitue=6
release thisform
endif
return)
怎么办啊?
连编的主文件是一个表单
没有READ EVENTS时,运行exe一闪而过
我在load 和activate event都写了
READ EVENTS
CLEAR EVENTS
exe能运行了,但不能提示"不能退出vf"
我做的退出按钮也没反应了
(quitue=messagebox("真的要退出",20,"提示")
if quitue=6
release thisform
endif
return)
怎么办啊?
你最好新建一个简单的主程序，放在设计器的“代码”中，并设为主程序，其代码如下：
_SCREEN.Visible = .F. &&本句要在下面表单的ShowWindow属性为“2—顶层表单”的前提下才有效
do form （你的表单）
read events
另外，在你表单的“退出”按钮“click”代码最后加入clear events 即可
呵呵，简单的办法。
1，在主程序
do **.scx(or do **.prg)下面加
read events
2，可以在表单的"release"事件里面加如下代码：
close all
quit