Foxtable(狐表) → 用户栏目 → 专家坐堂 → 请教：如何遍历菜单得到狐表所有菜单项目的名称？


  共有4530人关注过本帖树形打印复制链接

主题：请教：如何遍历菜单得到狐表所有菜单项目的名称？
帅哥哟，离线，有人找我吗？
y2287958
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：4840 积分：35094 威望：0 精华：0 注册：2008/8/31 22:44:00 		请教：如何遍历菜单得到狐表所有菜单项目的名称？  发帖心情 Post By：2019/8/22 7:53:00 [显示全部帖子]

如题。
以下代码可以得到第一级项目的名称，如何获得全部菜单项目的名称？
For Each rb As RibbonMenu.Tab In RibbonTabs
    For Each gp As RibbonMenu.Group In RibbonTabs(rb.name).Groups
        For Each itm As RibbonMenu.RibbonItem In RibbonTabs(rb.name).Groups(gp.Name).Items
            Output.Show(rb.name & "-" & gp.Name & "-" & itm.Name)
        Next
    Next
Next
 回到顶部
帅哥哟，离线，有人找我吗？
y2287958
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：4840 积分：35094 威望：0 精华：0 注册：2008/8/31 22:44:00 		  发帖心情 Post By：2019/8/22 10:00:00 [显示全部帖子]

折腾了很久，未搞定。
定义了一个“全部菜单项目”的函数，代码如下。
Dim rb As RibbonMenu.Tab = args(0)
Dim gp As RibbonMenu.Group = args(1)
Dim itm As RibbonMenu.RibbonItem = args(2)
For Each rb In RibbonTabs
    'Output.Show(rb.name)
    For Each gp In rb.Groups
        'Output.Show(gp .name)
        For Each itm In gp.Items
            'Output.Show(itm .name)
            'Output.Show(rb.name & "-" & gp.Name & "-" & itm.Name)
            '--------在递归中实现
            Functions.Execute("全部菜单项目",rb,gp,itm)
            'For Each itm2 As RibbonMenu.RibbonItem In itm.Items
            'Output.Show(itm2.Name)
            'Next
            ''---------
        Next
    Next
Next

调用时出现了死循环项目闪退，没折了，请蓝帮忙。
 回到顶部
帅哥哟，离线，有人找我吗？
y2287958
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：4840 积分：35094 威望：0 精华：0 注册：2008/8/31 22:44:00 		  发帖心情 Post By：2019/8/22 10:21:00 [显示全部帖子]

提示：
---------------------------
错误
---------------------------
编译错误:'Items' is not a member of 'RibbonMenu.RibbonItem'.


错误代码：For Each itm2 As RibbonMenu.RibbonItem In itm.Items
---------------------------
确定   
---------------------------
 回到顶部
帅哥哟，离线，有人找我吗？
y2287958
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：4840 积分：35094 威望：0 精华：0 注册：2008/8/31 22:44:00 		  发帖心情 Post By：2019/8/22 10:50:00 [显示全部帖子]

问题是：这个函数的代码都过不去

 回到顶部
帅哥哟，离线，有人找我吗？
y2287958
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：4840 积分：35094 威望：0 精华：0 注册：2008/8/31 22:44:00 		  发帖心情 Post By：2019/8/22 11:16:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下：1566443644(1).png
图片点击可在新窗口打开查看
这是我定义函数的代码，这个代码就不能成功创建函数，也就无法到后面的进入函数了。

实在是搞不定，啰嗦了。
 回到顶部
帅哥哟，离线，有人找我吗？
y2287958
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：4840 积分：35094 威望：0 精华：0 注册：2008/8/31 22:44:00 		  发帖心情 Post By：2019/8/22 11:53:00 [显示全部帖子]

算了，我换思路吧

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 5 次数据查询