Asignaci髇 de tecla r醦ida a una opci髇 de men�

previous page next page

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

Manual del desarrollador de ActiveX y VBA > Personalización de barras de herramientas y menús > Creación y modificación de menús desplegables y contextuales >

Asignación de tecla rápida a una opción de menú

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

previous page start next page