Para incluir un menú existente en la barra de menús, utilice los métodos InsertMenuInMenuBar o InsertInMenuBar. Ambos métodos cumplen el mismo objetivo: insertar un menú existente en la barra de menús.
La diferencia entre estos dos métodos radica en el objeto desde el que se llaman. El método InsertMenuInMenuBar se llama desde la colección PopupMenus. Con este método se pueden insertar los menús de una colección en una ubicación específica de la barra de menús. Requiere como entrada el nombre del menú que se desea insertar y la posición de la barra de menús donde se desea colocar.
El método InsertInMenuBar se llama directamente desde el objeto PopupMenu que se desea insertar. La única entrada que requiere este método es la posición en la barra de menús. No es necesario introducir el nombre del menú ya que se está llamando al método directamente desde el objeto.
Utilice el método que sea más idóneo para la aplicación que esté utilizando.
Inserción de menús en la barra de menús
Este ejemplo crea un menú llamado TestMenu e inserta en él un elemento de menú. Se asigna al elemento el comando ABRIR. Después se muestra el menú en la barra de menús.
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