为菜单项和工具栏项创建状态行帮助

AutoCAD ActiveX/VBA

 
为菜单项和工具栏项创建状态行帮助
 
 
 

状态行帮助消息是产品附带的帮助支持的一个重要方面。状态行帮助消息是一些简单的描述性信息,并且在亮显菜单项或工具栏项时,显示在状态行。所有菜单项和工具栏项的状态行帮助都包含在该项的 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