如何得到vba制作的自定义菜单的菜单句柄？

murphyr · 发表于 2004-3-31 21:45:00

我想在自定义下拉菜单实现像win98的垂直渐变条，
Sub Menu()'转载的
   '定义变量
   Dim NewMenuGroup As AcadMenuGroup    '群组
   Dim NewMenu As AcadPopupMenu    '列
   Dim NewMenuItemName As AcadPopupMenuItem    '菜单项
   Dim Menuseparator As AcadPopupMenuItem    '分隔条
   Dim NewMenuItemName1 As AcadPopupMenu    '菜单项
   Dim subMenuItem
   '子菜单
   '定义下拉菜单群组
   Set NewMenuGroup = ThisDrawing.Application.MenuGroups.Item(0)
   '创建下拉菜单列
   Set NewMenu = NewMenuGroup.Menus.Add("螺母")
   '创建下拉菜单项
   Set NewMenuItemName1 = NewMenu.AddSubMenu(NewMenu.Count + 1, "螺母1")
   Set subMenuItem = NewMenu.Item(0).SubMenu.AddMenuItem(1, "螺母1", "-vbarun uf1 ")
   Set subMenuItem = NewMenu.Item(0).SubMenu.AddMenuItem(2, "螺母1", "-vbarun uf2 ")
   Set subMenuItem = NewMenu.Item(0).SubMenu.AddMenuItem(3, "螺母1", "-vbarun uf3 ")
   Set subMenuItem = NewMenu.Item(0).SubMenu.AddMenuItem(4, "螺母1", "-vbarun uf4 ")
   Set NewMenuItemName1 = NewMenu.AddSubMenu(NewMenu.Count + 2, "螺    母")
   Set subMenuItem = NewMenu.Item(1).SubMenu.AddMenuItem(1, "六角螺母", "-vbarun uf5 ")
   Set subMenuItem = NewMenu.Item(1).SubMenu.AddMenuItem(2, "开槽螺母", "-vbarun uf6 ")
   Set subMenuItem = NewMenu.Item(1).SubMenu.AddMenuItem(3, "圆    螺    母", "-vbarun uf7 ")
   Set subMenuItem = NewMenu.Item(1).SubMenu.AddMenuItem(4, "蝶形螺母", "-vbarun uf8 ")
   Set NewMenuItemName1 = NewMenu.AddSubMenu(NewMenu.Count + 3, "销类零件")
   Set subMenuItem = NewMenu.Item(2).SubMenu.AddMenuItem(1, "圆柱销", "-vbarun uf9 ")
   Set subMenuItem = NewMenu.Item(2).SubMenu.AddMenuItem(2, "圆锥销", "-vbarun uf10 ")
   Set subMenuItem = NewMenu.Item(2).SubMenu.AddMenuItem(3, "开口销", "-vbarun uf11 ")
   Set subMenuItem = NewMenu.Item(2).SubMenu.AddMenuItem(4, "A型销轴", "-vbarun uf12 ")
   Set NewMenuItemName = NewMenu.AddSeparator(NewMenu.Count + 4)
   Set NewMenuItemName = NewMenu.AddMenuItem(NewMenu.Count + 6, "退    出", "-vbarun uf60 ")
   '显示新菜单
   NewMenu.InsertInMenuBar (ThisDrawing.Application.MenuBar.Count + 1)


End Sub
上述是网上仁兄的借用的
我使用SetBitmap加入图片，我想得到句柄，不知如何得到