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

Andy83 2004-11-03 09:21:15
怎么在表单中添加菜单,我在新建中,建好了两个菜单,菜单1.mnx和菜单2.mnx,
还有,生成器中的常规选项中,怎么老是为灰色。
...全文
126 7 打赏 收藏 举报
写回复
7 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
十豆三 2004-11-04
  • 打赏
  • 举报
回复
顶层表单中的菜单调用注意事项

* 要将该菜单与你的顶层表单联系,
* 从你的顶层表单的 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 个参数你可自由地用于你的代码中。
十豆三 2004-11-04
  • 打赏
  • 举报
回复
如何建立一个带有菜单的顶层表单

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
...........
xclzteb 2004-11-04
  • 打赏
  • 举报
回复
楼上可以了。
wwle 2004-11-04
  • 打赏
  • 举报
回复
头撞屏幕,手桥键盘!
绝对没有错!
哈哈,玩笑哦
fj_jiangqi 2004-11-03
  • 打赏
  • 举报
回复
在菜单设计中有个生成,生成一下就有了。
-----------------------------
我流落在凄凉的世界里-孤苦伶仃
我过着动荡无助的生活-四处漂泊
我在死亡线上苦苦挣扎-度日如年
Andy83 2004-11-03
  • 打赏
  • 举报
回复
do 菜单名.mpr with this,.t.
哪里有mpr这个扩展名呀,

我这个软件没有问题呀,是在项目管理器,右击有一个生成器(也就是应用程序生成器),常规是灰色呀
LAIYANGPJ 2004-11-03
  • 打赏
  • 举报
回复
怎么在表单中添加菜单,我在新建中,建好了两个菜单,菜单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
******************
还有,生成器中的常规选项中,怎么老是为灰色。
**************
你的这个生成器是不是菜单设计器,如果是的话本人没碰过,是不是你的软件有问题????

相关推荐
发帖
VFP

2576

社区成员

VFP,是Microsoft公司推出的数据库开发软件,用它来开发数据库,既简单又方便。
社区管理员
  • VFP社区
加入社区
帖子事件
创建了帖子
2004-11-03 09:21
社区公告
暂无公告