CAD开发者社区 › 首页 ›AutoCAD二次开发指南› ActiveX 开发指南› ActiveX：开发人员指南› 自定义工具栏和菜单› 关于更改菜单栏（VBA/ActiveX） › 查看内容

ActiveX 开发指南

关于在菜单栏中插入菜单（VBA/ActiveX）

2023-1-4 22:35| 发布者: admin| 查看: 1269| 评论: 0|来自: AutoCAD

摘要: 若要在菜单栏中插入现有菜单，请使用 InsertMenuInMenuBar 或 InsertInMenuBar 方法。这两种方法都实现相同的目标 - 它们将现有菜单插入菜单栏中。

若要在菜单栏中插入现有菜单，请使用或方法。这两种方法都实现了相同的目标 - 它们将现有菜单插入到菜单栏中。InsertMenuInMenuBarInsertInMenuBar

这两种方法的区别在于调用它们的对象。该方法是从集合中调用的。使用此方法，可以将集合中的任何菜单插入到菜单栏上的指定位置。此方法需要输入要插入的菜单的名称以及要插入的菜单栏上的位置。InsertMenuInMenuBarPopupMenus

该方法直接从要插入的对象调用。此方法需要的唯一输入是菜单栏上的位置。不需要菜单的名称，因为您直接从要插入的对象调用该方法。InsertInMenuBarPopupMenu

您应该使用更适合您的应用程序的方法。

在菜单栏中插入菜单

此示例创建一个名为 TestMenu 的新菜单，并在其中插入一个菜单项。菜单项被分配了 OPEN 命令。然后菜单显示在菜单栏上。

Sub Ch6_InsertMenu()
 ' Define a variable for the current menu group
 Dim currMenuGroup As AcadMenuGroup
 Set currMenuGroup = ThisDrawing.Application. _
 MenuGroups.Item(0)

 ' Create a new menu
 Dim newMenu As AcadPopupMenu
 Set newMenu = currMenuGroup.Menus.Add("TestMenu")

 ' Declare the variables for the menu item
 Dim newMenuItem As AcadPopupMenuItem
 Dim openMacro As String

 ' Assign the macro string the VB equivalent of
 ' "ESC ESC _open " and create the menu item
 openMacro = Chr(3) + Chr(3) + "_open "
 Set newMenuItem = newMenu.AddMenuItem(newMenu.Count + 1, _
 "Open", openMacro)

 ' Display the menu on the menu bar
 currMenuGroup.Menus.InsertMenuInMenuBar "TestMenu", ""
End Sub