以文本方式查看主题

-  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
--  
还真是的,现在测试确实为零,多谢了。

之前不知道是怎么测试的!图片点击可在新窗口打开查看