状态行帮助消息是产品附带的帮助支持的一个重要方面。状态行帮助消息是一些简单的描述性信息,并且在亮显菜单项或工具栏项时,显示在状态行。所有菜单项和工具栏项的状态行帮助都包含在该项的 HelpString 特性中。
首次创建菜单项或工具栏项时,HelpString 特性是空的。
本例创建称为“TestMenu”的新菜单,然后创建称为“Open”的菜单项。随后将通过 HelpString 特性为菜单项指定状态行帮助。
Sub Ch6_AddHelp()
Dim currMenuGroup As AcadMenuGroup
Set currMenuGroup = ThisDrawing.Application.MenuGroups.Item(0)
' 创建新菜单
Dim newMenu As AcadPopupMenu
Set newMenu = currMenuGroup.Menus.Add _
("Te" + Chr(Asc("&")) + "stMenu")
' 向新菜单添加菜单项
Dim newMenuItem As AcadPopupMenuItem
Dim openMacro As String
' 给宏指定“ESC ESC _open”的 VBA 等价值
openMacro = Chr(3) + Chr(3) + "_open "
' 创建菜单项
Set newMenuItem = newMenu.AddMenuItem _
(newMenu.count + 1, Chr(Asc("&")) _
+ "Open", openMacro)
' 向菜单项添加状态行帮助
newMenuItem.HelpString = "Opens an AutoCAD drawing file."
' 在菜单栏上显示菜单
newMenu.InsertInMenuBar _
(ThisDrawing.Application.menuBar.count + 1)
End Sub