tz_seafly 发表于 2006-9-7 20:48:00

在用VBA开发时，如何在窗体上创建菜单栏呢？

在用VBA开发时，如何在窗体上创建菜单栏呢？急需帮忙解决，谢谢！

中世纪骑士 发表于 2006-9-8 10:02:00

创建菜单栏这个简单的问题我替高手给你回答：
Sub AddMenuItem()
    Dim currMenuGroup As AcadMenuGroup
    Set currMenuGroup = ThisDrawing.Application.MenuGroups.Item(0)
   
    创建新菜单
   
Dim newMenu As AcadPopupMenu
    Set newMenu = currMenuGroup.Menus.Add("新菜单")
添加菜单内容
Dim newMenuItem As AcadPopupMenuItem
    Dim macro As String
    macro = Chr(vbKeyEscape) + Chr(vbKeyEscape)   '相当于按下两次Esc键
Dim menuItemOpen As AcadPopupMenuItem
    Set menuItemOpen = newMenu.AddMenuItem(newMenu.Count + 1, "打开", macro & "_open ")
这里写了个“打开”文件的菜单，你要做别的，改改部分代码即

alin 发表于 2006-9-8 10:33:00

I think he want to create menus in user forms.

aipzyz 发表于 2006-10-1 16:46:00

中世纪骑士       可以和我联系吗?QQ:81234115
页: [1]
查看完整版本: 在用VBA开发时，如何在窗体上创建菜单栏呢？