不能退出 Visual FoxPro.docx

《不能退出 Visual FoxPro.docx》由会员分享，可在线阅读，更多相关《不能退出 Visual FoxPro.docx（4页珍藏版）》请在三一办公上搜索。

1、不能退出 Visual FoxPro不能退出 Visual FoxPro信息 是否曾不断的试着关闭你的应用程序, 而得到的回答是不能退出? 在这里成为故事. 你开发了一个应用程序并将它交会给你的用户. 一切正常. 但是突然你接到一个电话. 用户试着关闭应用程序, 但所得到的信息是: 不能退出Visual FoxPro (参见图 1). 为什么? 因为应用程序仍然在事件循环中. 图 1: 恐怖的不能退出信息 在应用程序某一地方, 你可能有类似下面的代码: DO MainMenu.MPR READ EVENTS 一但在程序中发布了事件循环( READ EVENTS 命令), 在退出事件循环前,你就

2、不能退出 VFP. 要清除事件循环,发布一条 CLEAR EVENTS 命令. 只要用户想关闭应用程序时(如,从系统菜单中选择了关闭或退出:),你可以正常的执行一条 CLEAR EVENTS. 但是如果用户试着单击窗口标题栏中的关闭按钮时,会发生什么情况呢? 或者用户在应用程序仍然运行着的时候关闭 Windows 又会怎样? 在这些情况下, 应用程序没有机会执行 CLEAR EVENT. 事件循环仍然是活动的, 因此出现了不能退出 VFP 的信息. 要避免这一点, 可使用 ON SHUTDOWN 命令. 该命令的运行方式与 VFP 的其它 On 命令(如 ON ERROR)一样, 它指定一个当

3、确定的事件发生时要执行的行动. 在这种情况下, 事件是以任何方式试图关闭应用程序. 因此你所要做的只是执行 ON SHUTDOWN CLEAR EVENTS. 应该在应用程序开始时 - 发布 READ EVENTS 之前. 一但你这样做了, 用户决不会再次见到不能退出信息. 当用户单击窗口标题样中的关闭按钮时, 程序将执行 ON SHUTDOWN 代码, 这将会退出事件循环并将控制返回 READ EVENTS 后面的代码. 什么也没有发生 好了, 还不完全. 现在试着在 VFP 开发环境中运行一个 .APP. 关闭该 .APP. 然后试着退出 Visual FoxPro. 当你用文件菜单中的退

4、出时,没有什么问题, 但在命令窗口打入 QUIT 或单击窗口标题栏的关闭按钮时. 结果是相同的: 什么也没有发生,没有退出 VFP ,没有错误提示. 为什么? 因为 ON SHUTDOWN 命令任然在起作用,因此在关闭 VFP 时,VFP 只是简单地执行一条 CLEAR EVENTS, 这对开发环境没有作用并且也没有程序在运行. 要避免这一点, 返回到应用程序中, 并添加另一个 ON SHUTDOWN 命令. 这一次, 仅仅是不带任何子句的 ON SHUTDOWN. 将它放入清理代码中, 就是说, 在 READ EVENTS 后面的某处. 它的作用是取消原来的 ON SHUTDOWN. 这一对

5、命令 - ON SHUTDOWN CLEAR EVENTS 和 ON SHUTDOWN - 是想雅致地关闭应用程序的最小要求. 但是, 根据应用程序的结构,你可能需要做更多的事. 清理 在我们自己的应用程序中, 文件菜单中的退出菜单项,在发布 CLEAR EVENTS命令前执行某些特定的清除代码. 特别地, 遍历所有已打开表单(通过 _SCREEN 的 Forms 集合), 关闭各个表单. 在这样做的同时, 提示用户处理未保存的修改. 在样做可以让用户决定是否取消关闭应用程序, 以避免因清除事件循环而仍在屏幕上留下一些打开的表单. 无论用户是采用何种方法关闭应用程序,程序需要经过相同的处理过程

6、. 要达到这一点, 我们放入以上处理到一个我们叫做 FileExit 的过程中. 文件菜单的的退出菜单项简单地用 DO FileExit 调用该过程. 在 ON SHUTDOWN 命令中也一样. 换句话说,现在不是 ON SHUTDOWN CLEAR EVENTS, 而是 ON SHUTDOWN DO FileExit. 采用这种方法, 无论用户采用什么方法关闭程序,关闭处理总是相同的. 不能退出 VFP 和错误处理 如果你想跳过历史和推理, 直接看本文的最后一节. 在我的一般错误处理例程中, 我允许用户 忽略 - 并继续 或退出程序. 这些按钮出现在一个使用一个自由表 errors.dbf

7、来显示并记录错误的表单上. 在此我主要论述我的 退出程序 按钮, 因为它是最令我头痛的事之一. 使用 退出 按钮的理由可能是显而易见的, 那就是允许用户退出应用程序现时不至于因 忽略 而引发因第一个错误而产生的连锁错误. 例如, 因为一个错误的变量定义值而产生的错误, 显示了错误提示表单, 而且用户 忽略 错误. 而接着的代码在一个 SQL 查询中使用该未定义的变量, 这样将再次显示错误提示表单, 接着是使用先前的 SQL 创建的游标而造成的错误 (该游标并不存在) .等等. 因此显然需要一个 退出程序 按钮. 在退出按钮的 click 事件中, 我通常只是这样做: CLEAR ALL QUI

8、T 但是因多种原因这不能很好的工作. 最常见的是显示 不能退出 Visual FoxPro. 因此我在 KB 中查找是否有什么处理方法, 并找到: Q172455 - ExitFox.exe 克服 不能退出 Visual FoxPro 错误 这个 MS 中的某人写的小程序很好地说明和处理了该问题, 但是它依赖于满足特定的条件. 我想要每次都能无条件退出程序. 因此我用 WinAPI 来找出一个实用的方案. 我的新的 cmdExitEXE.Click 事件: * cmdExitEXE.Click * * 概述: 直接干掉/退出 EXE, 不管环境情况 * Close Data Clear DLLs Declare ExitThread in Win32API ExitThread 这样它看起来每一次都能正确地工作, 几乎没有讨厌的付作用. 编码! Jim Hapenney