Creaci髇 de mensajes de ayuda en la l韓ea de estado para elementos de men鷖 y de barras de herramientas

From AutoCAD ActiveX

previous page next page

Modo de designación de objetos únicos

Personalización de barras de herramientas y menús

Adición de entradas al menú contextual

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

Creación de mensajes de ayuda en la línea de estado para elementos de menús y de barras de herramientas

Un aspecto importante del sistema original de asistencia son los mensajes de ayuda de la línea de estado. Se trata de sencillos mensajes descriptivos que aparecen en la línea de estado al resaltar un elemento de menú o de barra de herramientas. La ayuda de la línea de estado correspondiente a todos los menús y barras de herramientas se encuentra en la propiedad HelpString del propio elemento.

Cuando se crea por primera vez un elemento de menú o de barra de herramientas, la propiedad HelpString está vacía.

Adición de ayuda de línea de estado a un elemento de menú

En este ejemplo se crea un nuevo menú denominado “TestMenu” y a continuación se crea un elemento de menú denominado “Open.” Después se asigna al elemento de menú ayuda de la línea de estado, mediante la propiedad HelpString.

Sub Ch6_AddHelp()

    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 "
                      ' Create the menu item
          Set newMenuItem = newMenu.AddMenuItem _
                             (newMenu.count + 1, Chr(Asc("&")) _
                              + "Open", openMacro)
                ' Add the status line help to the menu item
           newMenuItem.HelpString = "Opens an AutoCAD drawing file."
                ' Display the menu on the menu bar
          newMenu.InsertInMenuBar _
                       (ThisDrawing.Application.menuBar.count + 1)
      End Sub

previous page start next page