概要 - メニュー項目とツールバー項目のステータス行ヘルプを作成する(VBA/ActiveX)

ステータス行のヘルプ メッセージはネイティブ ヘルプ サポートとして重要なものです。メニュー項目またはツールバー項目をハイライト表示したときに、簡単な説明メッセージがステータス行に表示されます。

すべてのメニュー項目およびツールバー項目のステータス行ヘルプは、項目の HelpString プロパティに含まれています。

メニュー項目またはツールバー項目を最初に作成したときは、HelpString プロパティは空の状態です。

メニュー項目にステータス行ヘルプを追加する

この例では、"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