主题：传统菜单如何遍历呢？

做了个传统菜单，不知道如何来遍历其下所有子项。

快速访问栏

借鉴案例来做，发现历出来的不是 "快捷访问栏"菜单项，而是，功能区的。

 

没闹明白，功能区和快捷访问菜单遍历的区别。

 

 

 

For Each a1 As RibbonMenu.Tab In RibbonTabs
    For Each a2 As RibbonMenu.group In a1.Groups
        For Each a3 As RibbonMenu.RibbonItem In a2.Items
            If Typeof a3 Is RibbonMenu.Button Then
                MessageBox.show(a3.Name)
            End If
        Next
    Next
Next

先别回，我刚错楼层了。

Bin,

 

这个只挖到了第一层，还可以再往下挖不？ 代码该怎么写。求教

 

Dim itm As RibbonMenu.RibbonItem
For Each itm In QAT.Items
      If Typeof itm Is RibbonMenu.Button Then
           output.show(itm.name)
      End If
Next

OK，最上面这一层菜单名，我知道了咋获取了。

 

但，第二层、第三层就不知道怎么弄了。因为这块不太常用，帮助介绍也很略。

 

比如有如下菜单，我要遍历全部。怎么写代码，

 

 

此主题相关图片如下：11.png

难者不会，没帮助和例子借鉴。实在不好啃呐..我发例子了。

大神出手，我在菜单里多加些可能用的组件，希望一次性帮我多解决点难题。

 

先谢了！

 

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:系统菜单.rar

OK,

 

好用。