怎样在程序中运行菜单？

如何建立一个带有菜单的顶层表单

1、建一个顶层表单(表单的ShowWindow为2)作为主表单，在此表单的Init事件中：do 菜单名.mpr with this,.t.（此表单即为菜单所在的表单）
2、建一个菜单，要把菜单的 <常规选项>中 <顶层表单>和 <替换>选中。操作如下：
  打开你的菜单，点击VFP菜单的“显示”（View）－>“常规选项”（General Options）－>选中“顶层表单”（Top-Level Form），位置（Location）设置成“替换”（Replace）
  点击VFP菜单中的“菜单”（Menu）－>“生成”（Generate）－>出现窗口后，点击“生成”（Generate）。

3、其它子表单的ShowWindow为1 (即“在顶层表单中”)，并且WindowsType的值为1(即模式表单)。

4、建一个程序（prg）为项目的主文件。在这个程序中调用一个主表单，Prg的内容参考如下：
CLOSE DATA
_screen.visible=.f.
set date to YMD
SET CENTURY ON
SET HOURS TO 24
set safe off
set talk off
set sysmenu to
set exclusive on
set event on
...........
do form 表单A  &&表单A为你的主表单名
Read Events
...........

5、这样当执行程序时，菜单和主表单为活动的，当执行一个子表单时，菜单为不可选，即不活动。
（VFP6不能通过此方法来让菜单为不活动，VFP6可以设置菜单中“跳过（Skip For）”再结合变量即可实现，
跳过设置方法：在菜单设计窗口，点击最后面选项下的小按钮，弹出选项对话框，其中有一项“跳过（Skip For）”的选项，如果“跳过（Skip For）”表达式的值是.T.，则菜单不可用。这个表达式可以是个全局变量或全局数组。）
跳过方法：
禁用菜单：
SET SKIP OF MENU 你的菜单名 .T.

恢复菜单的使用：
SET SKIP OF MENU 你的菜单名 .F.

 

do menu.mpr

read event