| « | August 2025 | » | | 日 | 一 | 二 | 三 | 四 | 五 | 六 | | | | | | 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 14 | 15 | 16 | 17 | 18 | 19 | 20 | 21 | 22 | 23 | 24 | 25 | 26 | 27 | 28 | 29 | 30 | 31 | | | | | | | |
|
公告 |
| 暂无公告... |
| Blog信息 |
|
blog名称:fermos_blog
日志总数:73
评论数量:261
留言数量:30
访问次数:396707
建立时间:2005年3月27日 |
| |
|
 避免VFP中出现“Cannot Quit Visual FoxPro”
软件技术
fermos的博客 发表于 2005/7/16 7:26:17 |
| 避免VFP中出现“Cannot Quit Visual FoxPro”
2000-08-14 13:43:21
一、出现“Cannot Quit Visual FoxPro”的原因 第一种原因是：在执行了read event后，read event事件处于活动状态，此时，试图使用系统窗口的关闭按钮退出Visual FoxPro（或Visual FoxPro编写的应用，以下同），则会出现“Cannot Quit Visual FoxPro”。 在Visual FoxPro3.0中，即使read event事件处于活动状态时，也可以调用Quit直接退出。但是，在Visual FoxPro5.0中，当read event事件处于活动状态时调用Quit则不行，就会出现“Cannot Quit Visual FoxPro”。应先执行clear event关闭read event事件，然后才能正常退出。 另一种原因是：在Visual FoxPro5.0中，如果在还有活动表单的情况下，无论使用系统窗口的关闭按钮，还是调用Quit，都会出现“Cannot Quit Visual FoxPro”。这时，要正常退出，必须先关闭活动的表单。 二、避免出现“Cannot Quit Visual FoxPro”的方法 要避免出现“Cannot Quit Visual FoxPro”，在欲退出之前，要先执行clear event。在Visual FoxPro5.0中还要先关闭活动的表单。 在Visual FoxPro3.0中，在程序的开头可以加上 ON SHUTDOWN QUIT 这样，在欲退出Visual FoxPro时，程序自动直接调用Quit退出，避免出现“Cannot Quit Visual FoxPro”。 在Visual FoxPro5.0中，程序的开头可以加上类似以下的程序 ON SHUTDOWN DO MyQuit PROC MyQuit CLEAR Event IF—SCREEN.cFormCount>0 DIME TmpForm[—SCREEN.FormCount] FOR i=1 TO —SCREEN.FormCount TmpForm[i]=—SCREEN.Forms(i) ENDFOR FOR i=1 TO —SCREEN.FormCount TmpForm[i].Release ENDFOR ENDIF QUIT 这样，在欲退出Visual FoxPro时，程序先自动清除read event事件，关闭所有的表单，然后调用Quit正常退出。 摘自《赛迪网》 贾书民/文 |
|
|