以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  传统菜单如何遍历呢？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=49604)
--  作者：ndxfke
--  发布时间：2014/4/21 11:13:00
--  传统菜单如何遍历呢？

做了个传统菜单，不知道如何来遍历其下所有子项。
--  作者：Bin
--  发布时间：2014/4/21 11:14:00
--  
哪里的菜单?
--  作者：Bin
--  发布时间：2014/4/21 11:14:00
--  
http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=17549&skin=0


--  作者：Bin
--  发布时间：2014/4/21 11:15:00
--  
http://www.foxtable.com/help/topics/1926.htm
--  作者：ndxfke
--  发布时间：2014/4/21 11:15:00
--  
快速访问栏
--  作者：Bin
--  发布时间：2014/4/21 11:16:00
--  
看3楼
--  作者：ndxfke
--  发布时间：2014/4/21 11:35:00
--  

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

 

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

 

 

 

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
--  作者：ndxfke
--  发布时间：2014/4/21 11:40:00
--  

先别回，我刚错楼层了。
--  作者：ndxfke
--  发布时间：2014/4/21 11:47:00
--  

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
--  作者：Bin
--  发布时间：2014/4/21 11:50:00
--  
例如里面有ComboBox  

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