你是否遇到过这样的情形,当你不断的试着关闭你的VFP应用程序,而得到的回答是“不能退出Visual FoxPro”。为什么?因为应用程序仍然在事件循环中。如果在程序中有事件循环( READ EVENTS 命令), 在退出事件循环前,你就不能退出 VFP。
怎么办,只要你在编程时作如下处理,就可以很好地解决这个问题。
1、写一个名为 FileExit.prg 的程序,程序代码如下:
if messagebox('您真的要退出本系统吗?',4+32+256,'退出确认')<>6
retu
endif
do whil txnlevel()>0
rollback
enddo
clea even
do while _screen.formcount>0
_screen.forms(1).release
enddo
QUIT
2、在主程序中加命令代码:
on shutdown do FileExit
|