m dy name dy 文件 f do form bfhf name bfhf 文件 f quit
DEFINE POPUP _medit MARGIN RELATIVE SHADOW COLOR SCHEME 4 DEFINE BAR _med_undo OF _medit PROMPT "撤消(\
MESSAGE "系统帮助" DEFINE BAR 2 OF 帮助 h PROMPT "关于(\ 在上面的主程序设计中,包含了打开启动画面、登录画面和程序菜单的设计, 以及设置程序运行环境参数和 Visual FoxPro 的主窗口(_Screen)的属
性。
二、如何隐藏 Visual FoxPro 的主窗口
要隐藏 Visual FoxPro 的主窗口,需要使用 Visual FoxPro 的的配置文 件 Config.fpw,该文件用于设置 Visual FoxPro 的运行环境,请参考下面 程序启动画面的设计,如图 1-4 所示。该表单的属性、方法设计请参考问题 3 的介绍,但需要注意的是,该表单的 ShowWindow 属性必须设置为 2(做为顶 层表单),如果使用缺省值 1(在 Visual FoxPro 主窗口中),那么在隐藏 Visual FoxPro 主窗口的同时,该表单也就一起同样被隐藏了。
图 1-4 版权画面 Begin 表单运行示例
到底是如何隐藏的呢?在 Visual FoxPro 的命令窗口中输入 Modify file Config.fpw,在打开的文本编辑器中,输入:SCREEN=OFF,然后按 Ctrl+W
键存盘退出,再把这个文件添加到项目管理器的 Other Files 中,如图 1-5 所示。
图 1-5 把 Config.fpw 加入到项目管理器的 Other Files 中
这样在连遍成 EXE 可执行程序的时候, Config.fpw 文件也就一同被打包到 了 EXE 文件中。再运行 EXE 文件的时候,首先出现的就是你自己所设计的程序 画面。 在 Config.fpw 中也可以进行其他一些常用项目的设置,如: 用于在 Visual FoxPro 启动时执行一个命令。如:
COMMAND=DO Myapp.APP
指定 Visual FoxPro 的文件查找路径。如:
PATH=DBFS; MENUS; FORMS
指定主窗口的标题。如:
TITLE="我的应用程序"
指定系统的默认路径。如:
DEFAULT=C:\VFP
三、如何处理“不能退出 FoxPro”的情况
由于在 Visual FoxPro 中要开始事务处理需要加入一个 READ EVENTS 语句,在想退出 Visual FoxPro 前,必须首先使用 CLEAR EVENTS 来结束 事务处理, 否则将提示 “不能退出 FoxPro” 我们知道, 。 在普通表单中, CLEAR EVENTS 可以放在表单的 Unload 事件中执行,但是对于 Visual FoxPro 主 窗口(_Screen),系统一般是不允许你修改其事件过程的,对此,Visual FoxPro 提供了一个 ON SHUTDOWN 命令, 该命令用于指定当试图退出 Visual FoxPro 时所要执行的命令。 首先来编写一个 QuitAll.prg 文件,代码如下:
IF MESSAGEBOX("确实要退出 FoxPro 吗?",4+32,"提示")=6 CLEAR EVENTS QUIT ENDIF &;&;结束事务处理 &;&;关闭 Visual FoxPro
在 Visual FoxPro 的命令窗口中输入:ON SHUTDOWN DO QuitAll.prg
单击主窗口的关闭按钮,这时将出现如图 1-6 所示的提示窗口,询问是否退 出 Visual FoxPro。
图 1-6 关闭 Visual FoxPro 时的提示画面
可以将 ON SHUTDOWN 命令加入到主程序中,请参考问题 2 的主程序介绍。
通过为 Visual FoxPro 主窗口表单 (_Screen) 指定事件过程, 如在 Unload 中加入 CLEAR EVENTS 和 QUIT 语句,也可以实现 ON SHUTDOWN 的功能,但是,为主窗口指定事件非常 的烦琐,详细方法请参考问题 16 的介绍。