为菜单项指定加速键

From AutoCAD ActiveX/VBA

previous page next page

向菜单添加分隔符

创建和编辑下拉菜单和快捷菜单

创建级联子菜单

ActiveX/VBA 开发人员手册 > 自定义工具栏和菜单 > 创建和编辑下拉菜单和快捷菜单 >

为菜单项指定加速键

要通过 AutoCAD ActiveX/VBA 为菜单项指定加速键，请使用给定菜单项的 Label 特性。要指定加速键，请在标签中要成为加速键的字符前直接插入 & 的 ASCII 等价值。例如，标签 Chr(Asc("&")) + "Edit" 将显示为“Edit”，并使用字符“E”作为加速键。

向菜单添加加速键

本例重复了向弹出式菜单添加菜单项中的样例，为“TestMenu”菜单和“Open”菜单添加加速键。使用“S”作为“TestMenu”菜单的加速键，使用“O”作为“Open”菜单的加速键。

Sub Ch6_AddAMenuItem()

    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)
                ' 在菜单栏上显示菜单
          newMenu.InsertInMenuBar _
                       (ThisDrawing.Application.menuBar.count + 1)
      End Sub

previous page start next page