如何制作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:19

不会弄，想学学

账号		自动登录	找回密码
密码			注册