好久没动VF6。0，现在不知道怎么用，望各们高手赐教

[Andy83]

怎么在表单中添加菜单，我在新建中，建好了两个菜单，菜单1.mnx和菜单2.mnx,
还有，生成器中的常规选项中，怎么老是为灰色。

[LAIYANGPJ]

怎么在表单中添加菜单，我在新建中，建好了两个菜单，菜单1.mnx和菜单2.mnx,
*****************
1、建一个顶层表单表单属性SHOWWINDOW设为2，表单的Init事件中：
do 菜单名.mpr with this,.t.
2、文件-->打开-->修改-->显示-->常规选项-->顶层表单(位置设置成"替换")
菜单-->生成
3、其它子表单的ShowWindow属性为1
4、你的主程序代码:
CLOSE DATA
_screen.visible=.f.
do form 你刚才建的表单
Read Events
******************
还有，生成器中的常规选项中，怎么老是为灰色。
**************
你的这个生成器是不是菜单设计器,如果是的话本人没碰过,是不是你的软件有问题????

[Andy83]

do 菜单名.mpr with this,.t.
哪里有mpr这个扩展名呀,

我这个软件没有问题呀，是在项目管理器，右击有一个生成器（也就是应用程序生成器），常规是灰色呀

[fj_jiangqi]

在菜单设计中有个生成，生成一下就有了。
-----------------------------
我流落在凄凉的世界里-孤苦伶仃
我过着动荡无助的生活-四处漂泊
我在死亡线上苦苦挣扎-度日如年

[wwle]

头撞屏幕，手桥键盘！
绝对没有错！
哈哈，玩笑哦

[xclzteb]

楼上可以了。

[十豆三]

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

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

3、其它子表单的ShowWindow为“在顶层表单中”，并且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
...........

[十豆三]

顶层表单中的菜单调用注意事项

* 要将该菜单与你的顶层表单联系,
* 从你的顶层表单的 INIT 中用以下语法执行该菜单:

* 语法: DO WITH [,|][]

* oFormRef - 表单对象引用 (一般是 THIS)
* cMenuname - 菜单名字 (这在添加菜单时是必须的 - 参见下面说明)
* lRename - 更名你的表单的 Name 属性
* lUniquePopups - 决定是否为弹式菜单生成唯一标识

* 示例:

* PROCEDURE Init
* DO mymenu.mpr WITH THIS,.T.
* ENDPROC

* 如果你计划运行你的顶层表单的多个实例,使用第二个选项参数. 逻辑值参数 lRename 将修改你的
* 表单的 name 属性为传递给菜单的同一个名字,在你的代码中如果你直接用名字引用表单可能会造
* 成冲突.

* 也能也需要在表单释放时移去菜单,这样它不会保持在内存中,除非你想在稍后时间在一个新表单中激活它.

* 如果你在上例中传递可选的参数 lRename 为 .T.,
* 你可以在表单的 Destroy 事件中象以下显示的那样,方便地移去菜单.
* 在使用顶层表单的多个实例时,该方案是理想的.

* 示例:

* PROCEDURE Destroy
* RELEASE MENU (THIS.Name) EXTENDED
* ENDPROC

* 用 Append/Before/After 定位选项:

* 你可能会在通用选项对话框中设置 Location 选项来添加一个菜单到一个已存在的顶层表单.
* 要这样做, 你必须传递相关的新菜单的名字. 在这里需要第二个参数. 如果你最初以 lRename
* 参数 = .T.创建菜单, 那么你可以象下面一样用代码更新菜单:

* 示例:

* DO mymenu2.mpr WITH THISFORM,THISFORM.name
*
* 使用 lUniquePopups:

* 如果你在你的应用程序中多次运行该菜单, 如相同的顶层表单的多个实例, 你应该以 .T. 传递
* lUniquePopups 参数,这样会生成唯一弹式菜单名以避免可能的冲突.

* 示例:

* PROCEDURE Init
* DO mymenu.mpr WITH THIS,.T.,.T.
* ENDPROC
*
* 注意: 在 DO WITH [,|][]
* 中一共可以传递九个参数,但菜单中只使用了三个.第 4-9 个参数你可自由地用于你的代码中。