将PopMenu插入菜单栏

Jeff_M · 发表于 2004-11-5 19:50:32

好吧，我现在被踩了，所以我会问，
有谁知道如何在菜单栏中插入下拉菜单？
我能够通过VBA成功加载我的菜单，但无论我做什么，我都无法将其插入到The Menbar中。
任何帮助都非常感谢
谢谢
马克

本帖以下内容被隐藏保护；需要你回复后，才能看到！

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

Jeff_M · 发表于 2004-11-5 20:10:25

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

Keith · 发表于 2004-11-5 20:48:06

实际上只涉及到一个下拉菜单，
我知道如何访问下拉菜单集合，并且我正在使用InsertinMenuBar属性，但是我仍然没有成功插入它。这是目前为止的代码
谢谢Jeff

copy


Sub Load_MyCompany_Menu()
Dim MenuGroup As AcadMenuGroup
Dim SelectedMenuGroup As String
Dim Retval As Variant
On Error Resume Next
                   
SelectedMenuGroup = "Path\Filename.mnc"
Set MenuGroup = ThisDrawing.Application.MenuGroups.Load(SelectedMenuGroup, False)
If MenuGroup Is Nothing Then
 Retval = MsgBox("The MyCompany menu is already loaded", vbInformation, "MyCompany")
 Exit Sub
Else
 Retval = MsgBox("The MyCompany menu has been successfully loaded", vbInformation, "Filename")
End If
End Sub

Keith · 发表于 2004-11-5 22:44:57

Mark，
看看这是否有助于您解决问题.....

copy


Sub addMenuToToolBar()
Dim MenuGroup As AcadMenuGroup
Dim MenuPops As AcadPopupMenu
Set MenuGroup = ThisDrawing.Application.MenuGroups.Item("Mymenu")
On Error Resume Next
MenuGroup.Menus.Add ("TestMenu") 'This is the name of a Popup in your menu
Set MenuPops = MenuGroup.Menus.Item("TestMenu")
On Error GoTo 0
MenuPops.InsertInMenuBar 12 'insert at spot 12 in the bar
End Sub