VFB编程的雕虫小技

VFB编程的雕虫小技

  1.将窗口最大化
  现在显示器一般都比较大,我们编程序时也喜欢把表单设计得大一点,但VFP程序运行时默认的窗口大小却只有640×480,每次运行都要最大化窗口。其实只要把下面一段API调用程序放在主程序中,运行时窗口就会自动最大化了。
  declare integer FindWindow IN win32api integer,string
  declare integer ShowWindow IN win32api integer,integer
  NullPointer=0
  FoxHWND= FindWindow(NullPointer,″库存管理系统″)
  FoxGone=ShowWindow(FoxHWND,3)
  2.菜单设计
  如果菜单中要加入一条分隔线,可以在菜单中添一条子菜单,菜单名称为“\-”就可以了。
  如果由于权限设置或防止程序冲突需要屏蔽某些菜单项,可以先定义一个逻辑值的全局变量,然后将需屏蔽的菜单项的选项设置成该变量为真时跳过,这样你就可以通过对该变量值的变化控制菜单项是否屏蔽。
  3.设置文件运行目录
  VFP程序一般分执行文件和数据文件,备份时只要把数据文件备份就可以了。为了便于程序更新和数据备份,可将数据文件单独置于子目录中。由于编程及调试时一般都不设置程序运行目录,为了避免编译后程序找不到数据文件,可用下面两句指定数据文件在DBF子目录中。
  set default to sys(5)+curdir()
  set path to sys(5)+curdir()+′dbf′
  4.取得Windows路径
  如果要对注册表进行操作,你就要先找Windows的路径,用下面的命令可以返回Windows的路径。
  GetEnv(“WinDir”)
  5.用窗口关闭按钮退出程序
  VFP程序运行时点击窗口右上角的关闭按钮会显示一个“不能退出 Visual FoxPro”的警告窗口,很讨厌。如果要解决这个问题可以在主程序中加一句
  on shutdown do q.prg
  然后在项目中新建q.prg程序,程序内容为前面退出时确认那段语句,这样就搞定了。(江苏 高晓嵩)

本文出自:《电脑报》1999年02月8日第06期