重新排列菜单栏上的菜单项

AutoCAD ActiveX/VBA

previous page next page
从菜单栏中删除菜单
更改菜单栏
创建和编辑下拉菜单和快捷菜单
 
ActiveX/VBA 开发人员手册 > 自定义工具栏和菜单 > 更改菜单栏 > 
重新排列菜单栏上的菜单项
 
 
 

要重新排列菜单栏上的菜单，请插入和删除菜单，使其达到所需的配置。

将第一个菜单移到菜单栏的末尾

本例删除菜单栏上的第一个菜单，然后将其作为最后一个菜单插入到菜单栏中。

Sub Ch6_MoveMenu()
    ' 定义一个变量来保存要移动的菜单
    Dim moveMenu As AcadPopupMenu
    Dim MyMenuBar As AcadMenuBar
    Set MyMenuBar = ThisDrawing.Application.menuBar
      
    ' 将 moveMenu 设置为等于菜单栏上

      
    ' 显示的第一个菜单

      
    Set moveMenu = MyMenuBar.Item(0)

      
      
    ' 从菜单栏中删除第一个菜单

      
    MyMenuBar.Item(0).RemoveFromMenuBar

      
      
    ' 将菜单添加回菜单栏上的

      
    ' 最后一个位置

      
    moveMenu.InsertInMenuBar (MyMenuBar.count)

      
End Sub
请将关于此页的评论发送给我们
previous page start next page