乐筑天下

搜索
欢迎各位开发者和用户入驻本平台 尊重版权,从我做起,拒绝盗版,拒绝倒卖 签到、发布资源、邀请好友注册,可以获得银币 请注意保管好自己的密码,避免账户资金被盗
查看: 251|回复: 14

将PopMenu插入菜单栏

[复制链接]

71

主题

928

帖子

8

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1230
发表于 2004-11-5 19:50:32 | 显示全部楼层 |阅读模式
好吧,我现在被踩了,所以我会问,
有谁知道如何在菜单栏中插入下拉菜单?
我能够通过VBA成功加载我的菜单,但无论我做什么,我都无法将其插入到The Menbar中。
任何帮助都非常感谢
谢谢
马克

本帖以下内容被隐藏保护;需要你回复后,才能看到!

游客,如果您要查看本帖隐藏内容请回复
回复

使用道具 举报

71

主题

928

帖子

8

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1230
发表于 2004-11-5 20:10:25 | 显示全部楼层

如果您已经达到下拉次数的限制,则不会显示新的下拉次数,我不记得该限制是什么......
无论如何,一旦您有了PopupMenus集合,您就可以添加菜单,然后是AddMenuItems,然后是InsertInMenuBar。
回复

使用道具 举报

154

主题

1274

帖子

8

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1936
发表于 2004-11-5 20:48:06 | 显示全部楼层
实际上只涉及到一个下拉菜单,
我知道如何访问下拉菜单集合,并且我正在使用InsertinMenuBar属性,但是我仍然没有成功插入它。这是目前为止的代码
谢谢Jeff
  1. Sub Load_MyCompany_Menu()
  2. Dim MenuGroup As AcadMenuGroup
  3. Dim SelectedMenuGroup As String
  4. Dim Retval As Variant
  5. On Error Resume Next
  6.                   
  7. SelectedMenuGroup = "Path\Filename.mnc"
  8. Set MenuGroup = ThisDrawing.Application.MenuGroups.Load(SelectedMenuGroup, False)
  9. If MenuGroup Is Nothing Then
  10. Retval = MsgBox("The MyCompany menu is already loaded", vbInformation, "MyCompany")
  11. Exit Sub
  12. Else
  13. Retval = MsgBox("The MyCompany menu has been successfully loaded", vbInformation, "Filename")
  14. End If
  15. End Sub

回复

使用道具 举报

154

主题

1274

帖子

8

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1936
发表于 2004-11-5 22:44:57 | 显示全部楼层
Mark,
看看这是否有助于您解决问题.....
  1. Sub addMenuToToolBar()
  2. Dim MenuGroup As AcadMenuGroup
  3. Dim MenuPops As AcadPopupMenu
  4. Set MenuGroup = ThisDrawing.Application.MenuGroups.Item("Mymenu")
  5. On Error Resume Next
  6. MenuGroup.Menus.Add ("TestMenu") 'This is the name of a Popup in your menu
  7. Set MenuPops = MenuGroup.Menus.Item("TestMenu")
  8. On Error GoTo 0
  9. MenuPops.InsertInMenuBar 12 'insert at spot 12 in the bar
  10. End Sub

回复

使用道具 举报

1

主题

17

帖子

2

银币

初来乍到

Rank: 1

铜币
21
发表于 2004-11-5 23:42:55 | 显示全部楼层
菜单流行的限制是16...至少在菜单中,我没有以编程方式测试限制
回复

使用道具 举报

154

主题

1274

帖子

8

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1936
发表于 2004-11-6 09:18:02 | 显示全部楼层
嘿,基思
不要怀疑你,但你确定吗?
哦,我想你指的是16个跨菜单栏?如果是这样,那么我相信你是对的,但我认为999是实际的POP菜单时期。
回复

使用道具 举报

1

主题

17

帖子

2

银币

初来乍到

Rank: 1

铜币
21
发表于 2004-11-6 09:21:35 | 显示全部楼层
太好了,我会试试的杰夫,非常感谢你!
我明白了,我得到了这个系列,但我没有告诉VBA把它加入流行系列。
标记
回复

使用道具 举报

154

主题

1274

帖子

8

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1936
发表于 2004-11-6 09:46:14 | 显示全部楼层
我的想法是我们还需要声明一个变量来保存我们当前的菜单,这样它们就不会被覆盖。我在做支持路径模块时学到了这一课。
回复

使用道具 举报

1

主题

17

帖子

2

银币

初来乍到

Rank: 1

铜币
21
发表于 2004-11-6 10:50:50 | 显示全部楼层

您可以根据需要定义任意多个弹出菜单,可以想象有一千个或更多…但是,当通过定义的MNU或MNS显示时,AutoCAD在菜单栏上仅显示16个
除此之外,您只需彼此交换弹出菜单即可。
回复

使用道具 举报

154

主题

1274

帖子

8

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1936
发表于 2004-11-6 11:32:28 | 显示全部楼层
好吧,那么,如果一个是基本菜单,而一些是部分菜单呢
您所说的是,一个菜单栏上只能有16个
我认为有999的限制,但这是每个菜单文件还是在AutoCAD中,以及所有POP的组合
标记
回复

使用道具 举报

发表回复

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

QQ|关于我们|小黑屋|乐筑天下 繁体中文

GMT+8, 2025-3-16 15:07 , Processed in 0.450029 second(s), 72 queries .

© 2020-2025 乐筑天下

联系客服 关注微信 帮助中心 下载APP 返回顶部 返回列表