以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]如何遍历自己设计的菜单下的功能区,功能组及item  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=48678)

--  作者:loongtai
--  发布时间:2014/4/3 9:58:00
--  [求助]如何遍历自己设计的菜单下的功能区,功能组及item
如题,如何遍历用户自己设计的菜单的功能区,功能组以及功能组下面的item?
for each  menu as RibbonMenu.tab in Ribbontabs
output.show(menu.name)
next

显示的结果是:
Common
Table
Project
Print
Other

而我期望显示的是:

图片点击可在新窗口打开查看此主题相关图片如下:qq截图20140403095728.jpg
图片点击可在新窗口打开查看
质量
技术
生产

--  作者:Bin
--  发布时间:2014/4/3 10:02:00
--  
For Each  menu As RibbonMenu.tab In Ribbontabs
    
    output.show(menu.text)
Next


前提要到用户菜单下执行,你在系统菜单下执行 只会遍历系统菜单

--  作者:loongtai
--  发布时间:2014/4/3 10:53:00
--  
试了下,在用户菜单下是可以的。
那有没有什么方法能在处于系统菜单下时也能遍历用户菜单?比如说Ribbontabs前面加个什么表示为用户菜单。
For each menu as Ribbontab.menu in ***.Ribbontabs
因为在设计时要用到这一功能,每次都回到用户菜单下去操作那就麻烦了。
[此贴子已经被作者于2014-4-3 10:53:37编辑过]

--  作者:Bin
--  发布时间:2014/4/3 11:05:00
--  
不可以,只能遍历当前菜单.
--  作者:Bin
--  发布时间:2014/4/3 11:09:00
--  
有个变量,可以判断是当前是否系统菜单, 判断一下可以避免执行报错.


if SystemMenu then

else

end if