以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- [求助] 怎么在自己制作的菜单目录树中,包含那些暂时没有应用、没有显示菜单栏呢? (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=153012) |
-- 作者:龙潭春早 -- 发布时间:2020/7/28 18:33:00 -- [求助] 怎么在自己制作的菜单目录树中,包含那些暂时没有应用、没有显示菜单栏呢? 想遍历菜单,制作一个 包含所有菜单 的菜单目录树。 主菜单的功能区、程序菜单、快速访问栏,以及快捷菜单,都已经正常的实现了。 但是对于暂时没有应用、没有显示的菜单,如配置栏,上、下工具栏,功能区组等,按照类似的方法,却实现不了。 虽然现在暂时没有应用、没有显示这些菜单,但是希望制作出来的目录树能包含这些菜单(的名称),以方便将来增加这些菜单的时候,能够自动的生成相应的目录树。 现在的问题是,要怎么判断这些菜单的有无,并给出代码呢? 之前,用了判断遍历的变量是否为空: If itm is Nothing then 或者,判断相应的集合数量是否为零: if xxx.Items.Count = 0 then xxx 分别为 ConfigBar、TopToolBar、BottomToolBar,以及用 RibbonTabGroups替换上面的 xxx.Items 但是在命令窗口执行的时候,都没有动静。 用output.show(itm.Name),或者用 output.show(xxx.Items.Count),也都没有任何反应。 要怎么做好呢? |
-- 作者:有点蓝 -- 发布时间:2020/7/28 20:13:00 -- 我测试没有问题 Output.Show(ConfigBar.Items.Count) For Each itm As object In ConfigBar.Items Output.Show(itm.name) Next 如果没有添加过ConfigBar,并且在用户菜单模式下。Output.Show(ConfigBar.Items.Count)肯定为0 |
-- 作者:龙潭春早 -- 发布时间:2020/8/2 15:09:00 -- 还真是的,现在测试确实为零,多谢了。 之前不知道是怎么测试的!
|