专注收集记录技术开发学习笔记、技术难点、解决方案
网站信息搜索 >> 请输入关键词:
您当前的位置: 首页 > VFP

vfp 编译后运行时,为何主界面仅一闪就过

发布时间:2010-05-24 21:38:09 文章来源:www.iduyao.cn 采编人员:星星草
vfp 编译后运行时,为什么主界面仅一闪就过?
各位高手:我做的程序编译时未提示错误,存在c盘,点击该程序后,主界面仅一闪就过去了。(程序编译前运行时可以在主界面停留3秒)
主表单load:
CLOSE table all
PUBLIC khm,khbh,bddks,lcSys16,lc_defpath
***********mbwj &&建立存储安装路径的全局变量
lcSys16=SYS(16,0) &&返回正在执行的程序文件名。
IF OCCURS( '', lcSys16)>1 &&返回一个字符表达式''在另一个字符表达式(路径)中出现的次数
lc_defpath=right(left(lcSys16,rat( "",lcSys16)),8) &&取得不含文件名的路径
ELSE
lc_defpath=right(left(lcSys16,at( "",lcSys16,1)),8)
ENDIF
SET defa to (lc_defpath) &&设置路径
SET escape on &&ESC设定
WAIT wind "正在连接数据,请稍候... " nowait
ON error mywriteshowerr(error(),message(),message(1),program(),lineno(1)) &&捕获、写、显示错误
3秒,然后调出口令菜单。)主界面的load:
unload:
SET defa to (lc_defpath) &&设置路径
DO form 口令2.scx 
_screen.Visible=.F.
主表单中timer的interval:=3*1000
release thisform  
请高手指教,谢谢!

------解决方案--------------------
LOAD 事件代码放在主程序(MAIN.PRG)中:
*--- MAIN.PRG
DO FORM 主表单.SCX
READ EVENTS &&此处必不可少
------解决方案--------------------
参考如下: 

主程序: 
DO FORM Main.SCX 
READ EVENTS 
CLOSE DATABASES ALL 
QUIT 

表单Main.SCX的退出时 
clear events 

表单Main.SCX的ShowWindow属性设为2
友情提示:
信息收集于互联网,如果您发现错误或造成侵权,请及时通知本站更正或删除,具体联系方式见页面底部联系我们,谢谢。

其他相似内容:

热门推荐: