VFP6.0连编后运行一闪而过
一下是我的主程序的代码:doform开始.scxsetexactonsetconfirmoffsetescapeonsetsafetyonsetstatusoffsets...
一下是我的主程序的代码:
do form 开始.scx
set exact on
set confirm off
set escape on
set safety on
set status off
set scoreboard off
set decimals to 3
set talk off
set sysformats on
set century on
set date to ansi
zoom window screen max
close all
release window 常用
set sysmenu to
_screen.caption="欢迎使用XXX公司市场营销管理信息系统"
_screen.minbutton=.f.
_screen.maxbutton=.f.
read even
我的程序是可以正常执行了
在我连编成可执行文件后,关闭了VFP,再点生成的.exe文件,程序会一闪就不在了。请问是哪里出了问题?
照你们说的改了下,就是主表单的activate事件我加入了read events
但是会让主表单一直停留,不会释放,是否该加句clear events
或者是thisform.release? 展开
do form 开始.scx
set exact on
set confirm off
set escape on
set safety on
set status off
set scoreboard off
set decimals to 3
set talk off
set sysformats on
set century on
set date to ansi
zoom window screen max
close all
release window 常用
set sysmenu to
_screen.caption="欢迎使用XXX公司市场营销管理信息系统"
_screen.minbutton=.f.
_screen.maxbutton=.f.
read even
我的程序是可以正常执行了
在我连编成可执行文件后,关闭了VFP,再点生成的.exe文件,程序会一闪就不在了。请问是哪里出了问题?
照你们说的改了下,就是主表单的activate事件我加入了read events
但是会让主表单一直停留,不会释放,是否该加句clear events
或者是thisform.release? 展开
4个回答
展开全部
1.用main.prg作主程序,包老运含环境保存和设置语句,全局变量的申明和赋值山握,最后调用主侍唯梁表单 do form main_form.
2.在主表单加入一个退出按钮。退出按钮的Click事件代码为:
thisform.release
clear events
3.主表单的activate事件代码为:
read events.
还有一个问题就是必须在VF的主程序的最后加入READ EVENTS语句,否则编译之后就会一闪而过
2.在主表单加入一个退出按钮。退出按钮的Click事件代码为:
thisform.release
clear events
3.主表单的activate事件代码为:
read events.
还有一个问题就是必须在VF的主程序的最后加入READ EVENTS语句,否则编译之后就会一闪而过
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
一楼的没错。
如果清腊按照楼主的思路哪正谨,不做别的改动,只要移动一下语句的位李基置即可:
set exact on
set confirm off
set escape on
set safety on
set status off
set scoreboard off
set decimals to 3
set talk off
set sysformats on
set century on
set date to ansi
zoom window screen max
close all
release window 常用
set sysmenu to
_screen.caption="欢迎使用XXX公司市场营销管理信息系统"
_screen.minbutton=.f.
_screen.maxbutton=.f.
do form 开始.scx 将开始的这句移到此位置即可
read even
如果清腊按照楼主的思路哪正谨,不做别的改动,只要移动一下语句的位李基置即可:
set exact on
set confirm off
set escape on
set safety on
set status off
set scoreboard off
set decimals to 3
set talk off
set sysformats on
set century on
set date to ansi
zoom window screen max
close all
release window 常用
set sysmenu to
_screen.caption="欢迎使用XXX公司市场营销管理信息系统"
_screen.minbutton=.f.
_screen.maxbutton=.f.
do form 开始.scx 将开始的这句移到此位置即可
read even
本回答被提问者和网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
将“开始”表单WINDOWTYPE改为1 模式表单即可。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
应在Init事件中加入read events
在unlod中加入clear events 这个先旦旦散别加先加上面的,看看行模氏不行迟尘,
在unlod中加入clear events 这个先旦旦散别加先加上面的,看看行模氏不行迟尘,
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询