Adición de separadores a un menú
Creación y modificación de menús desplegables y contextuales
Creación de submenús en cascada
Para asignar la tecla rápida a un elemento de menú mediante AutoCAD ActiveX/VBA, utilice la propiedad Label de ese elemento. Para especificar una tecla rápida, inserte el equivalente ASCII de un signo & en la etiqueta justo antes del carácter que se utilizará como acelerador. Por ejemplo, la etiqueta Chr(Asc("&")) + "Edit" se mostrará como “Editar”, con el carácter “E” utilizado como tecla rápida.
Adición de teclas rápidas a menús
En este ejemplo se repite el ejemplo de Adición de opciones a un menú emergente, con la adición de las teclas rápidas a los menús “TestMenu” y “Open”. La “s” y la “O” se utilizan respectivamente como teclas rápidas de los menús “TestMenu” y “Open”.
Sub Ch6_AddAMenuItem()
Dim currMenuGroup As AcadMenuGroup
Set currMenuGroup = ThisDrawing.Application.MenuGroups.Item(0)
' Create the new menu
Dim newMenu As AcadPopupMenu
Set newMenu = currMenuGroup.Menus.Add _
("Te" + Chr(Asc("&")) + "stMenu")
' Add a menu item to the new menu
Dim newMenuItem As AcadPopupMenuItem
Dim openMacro As String
' Assign the macro the VBA equivalent of "ESC ESC _open "
openMacro = Chr(3) + Chr(3) + "_open "
Set newMenuItem = newMenu.AddMenuItem _
(newMenu.count + 1, Chr(Asc("&")) _
+ "Open", openMacro)
' Display the menu on the menu bar
newMenu.InsertInMenuBar _
(ThisDrawing.Application.menuBar.count + 1)
End Sub