CAD开发者社区 › 首页 ›AutoCAD二次开发指南› ActiveX 开发指南› ActiveX：开发人员指南› 自定义工具栏和菜单› 关于创建和编辑下拉菜单和快捷菜单（VBA/ActiveX） › 查看内容

ActiveX 开发指南

关于将加速键分配给菜单项（VBA/ActiveX）

2023-1-4 22:23| 发布者: admin| 查看: 1223| 评论: 0|来自: AutoCAD

摘要: 要通过 AutoCAD ActiveX/VBA 为菜单项指定快捷键，请使用给定菜单项的“标签”特性。

要通过 AutoCAD ActiveX/VBA 为菜单项指定快捷键，请使用给定菜单项的特性。Label

若要指定加速键，请在要用作加速键的字符正前方的标签中插入与号（&）的 ASCII 等效项。例如，标签 Chr（Asc（“&”）） + “Edit” 将显示为“Edit”，字符“E”用作快捷键。

向菜单添加加速键

本示例为“TestMenu”和“Open”菜单添加快捷键。“s”用作“TestMenu”菜单的加速键，“O”用作“打开”菜单的加速键。

Sub Ch6_AddAMenuItem()
 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 "

 Set newMenuItem = newMenu.AddMenuItem _
 (newMenu.count + 1, Chr(Asc("&")) _
 + "Open", openMacro)

 ' Display the menu on the menu bar
 newMenu.InsertInMenuBar _
 (ThisDrawing.Application.menuBar.count + 1)
End Sub