CAD开发者社区 › 首页 ›AutoCAD二次开发指南› ActiveX 开发指南› ActiveX：开发人员指南› 自定义工具栏和菜单 › 查看内容

ActiveX 开发指南

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

2023-1-4 21:48| 发布者: admin| 查看: 548| 评论: 0|来自: AutoCAD

摘要: 状态行帮助消息是本机帮助支持的一个重要方面。这些是突出显示菜单或工具栏项时显示在状态行中的简单描述性消息。

状态行帮助消息是本机帮助支持的一个重要方面。这些是突出显示菜单或工具栏项时显示在状态行中的简单描述性消息。

所有菜单和工具栏项的状态行帮助都包含在该项的属性中。HelpString

首次创建菜单或工具栏项时，该属性为空。HelpString

向菜单项添加状态行帮助

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