关于为菜单项和工具栏项创建状态行帮助 （VBA/ActiveX）

向菜单项添加状态行帮助

此示例创建一个名为“TestMenu”的新菜单，然后创建一个名为“Open”的菜单项。然后，为菜单项分配属性的状态行帮助。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