如何制作4级子菜单？？

elite · 发表于 2006-8-14 16:07:00

例如
菜单——子菜单——子子菜单——子子子菜单——子子子子菜单
这样的4级菜单怎么用vba程序实现？

onlypony · 发表于 2006-8-15 14:15:00

我也想知道,书上都是做到二级,自己尝试了一下三级菜单,结果总是出错,过往的大侠有谁知道呀,帮楼主顶一下了~

Lesnacklie · 发表于 2006-8-16 08:24:00

怎么办到底怎么办呢，伤脑筋

dongfang_t · 发表于 2007-7-23 16:11:00

不懂

yusicad · 发表于 2007-7-23 18:52:00

CAD中有个自己订制的菜单,ACAD.MENU
你用记事本打开,然后编辑子菜单开始用

烟雨.江南 · 发表于 2007-7-24 09:01:00

建立多级子菜单应该没什么问题。试试下面这个过程吧。
Sub testMenu()
Dim menug As AcadMenuGroup, pmenu As AcadPopupMenu, pmi As AcadPopupMenuItem
Set menug = ThisDrawing.Application.MenuGroups(0)
Set pmenu = menug.Menus.Add("Test0")
Set pmi = pmenu.AddSubMenu(0, "Test1").AddSubMenu(0, "Test2").AddSubMenu(0, "Test3").AddMenuItem(0, "Test4", "(princ ""Hello!"") ")
Call pmenu.InsertInMenuBar(0)
End Sub

dongfang_t · 发表于 2007-7-24 09:59:00

要是用菜单宏制做子菜单应当怎么弄?
ID_MNMacro [Test1]^C^C-vbarun;f:/VBAmenu/Test1.dvb!mdlMain.AutoTitleBar;这个命令只能实现菜单,如何实现这个菜单下的子菜单我就不会了.
用菜单宏感觉能简单些

woxing1987 · 发表于 2012-2-5 16:14:00

不会弄，想学学

如何制作4级子菜单？？

发表回复

精选推荐