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