VF编译完的EXE文件为什么一运行就自动关闭了！谁有过类似的经历

[nickyli]

RT

[十豆三]

请参考：FAQ -

<我这样做了，可是为什么还是一闪而过？>
http://community.csdn.net/Expert/FAQ/FAQ_Index.asp?id=78093

[十豆三]

第一个运行的表单为顶层表单
并在运行表单的代码后加代码，如：
DO FORM 第一个运行的表单名
READ EVENTS

[TERRYYRRET]

开始时: READ EVENTS &&开启事务
结束时: CLEAR EVENTS &&结束事务

[JXLEE365]

VF不象其它开发工具那样隐含地开始事件循环，必须显式指定。这与它在DOS年代的READ是一脉相承的。

[itzhiren]

把第一个运行的表单设置为模式表单就可以了

[wang_shq]

你的主表单是无模式的，在运行主表单后要加的read events 把焦点转到主表单
在退出时除thisform.release外还要有clear events

[Super.Jiju]

教你一个绝对可以的方法

如果你是单独的表单
把Windowtype改成那个非默认值就可以了

建议用程序~！

* main.prg
*主程序
set sysmenu to default
set sysmenu on
set talk off
set safety off
set status off
set status bar off
set bell on
set delete on
set echo off
set cent on
set esca off

do setting
with _screen
.windowstate=2
.caption="Cost & Bounce"
.visible=.t.
.closable=.f.
.controlbox=.t.
.maxbutton=.t.
.minbutton=.t.
.movable=.t.
.top=0
.left=0
endwith
do form start
close all
read events
do clearup.prg

[Super.Jiju]

*程序名称 clearup.prg
*环境还原
set sysmenu to default
set sysmenu on
set talk on
set safety on
set stat bar on
set default to home()
close all
clear events

[Super.Jiju]

* 环境设置
*程序名称： setting.prg
set sysmenu off
set sysmenu to
set status bar off
set talk off
set notify off
set clock status
set palette off
set bell on set safety off
set escape on
set keycomp to windows
set carry on
set confirm on
set exact on
set near on
set ansi off
set lock on
set exclusive off
set multilocks on
set deleted on
set optimize on
set refresh to 0,5
set collate to 'stroke'
set default to sys(5)+curdir()
set path to sys(5)+curdir()
set sysformats off
set seconds on
set century off
set currency left
set currency to 'nt$'
set hours to 12

set decimals to 2
set fdow to 1
set fweek to 1
set mark to '.'
set separator to ','
set point to '.'