VF辅导:VFP编程的雕虫小技

1.Windowing
现在的显示器一般都比较大，我们在编程的时候也喜欢设计更大的窗体。然而，VFP程序的默认窗口大小只有640×480，并且每次运行时都必须翻转窗口。事实上，只要把下面的API调用者放在主程序中，运行时窗口就会自动打开。

在win32api中声明Integer FindWindow Integer，string
在win32api中声明Integer show window Integer，Integer
null pointer = 0
foxhwnd = FindWindow(null pointer，“库存管理系统”)
foxgone = show window(foxhwnd，3)

2.菜单设计
如果要给菜单添加分割线，可以给菜单添加子菜单，名称为“\-”。
如果因为权限设置或者程序冲突预防需要屏蔽某些菜单项，可以先定义一个带有逻辑值的全局变量，然后将该菜单项要屏蔽的选项设置为变量为true时跳过，这样就可以通过改变变量值来控制是否屏蔽该菜单项。

3.设置文件运行目录
VFP程序一般分为执行文件和数据文件，备份时备份数据文件就够了。为了方便程序更新和数据备份，数据文件可以单独放在子目录中。由于编程调试时一般不设置程序运行目录，为了防止编译后的程序找不到数据文件，可以用下面两句话来指定数据文件在DBF子目录中。
将默认值设置为sys(5)+curdir()
将路径设置为sys(5)+curdir()+′DBF′

4.获取Windows路径
如果要操作注册表，首先要找到Windows路径。使用以下命令返回Windows路径。
GetEnv("WinDir ")

5.用窗口关闭按钮退出程序
VFP程序运行时，点击窗口右上角的关闭按钮，会显示“不能退出Visual FoxPro”的警告窗口，非常烦人。如果想解决这个问题，可以在主程序中添加一句话
on shutdown do q.prg
，然后在项目中创建新的q.prg程序。程序的内容就是退出前确认的语句，仅此而已。