以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  如何遍历配置栏的多级菜单  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=195766)
--  作者：acc
--  发布时间：2025/3/7 15:55:00
--  如何遍历配置栏的多级菜单
版主后, 请教,如何遍历配置栏的多级级菜单?比如到三级


谢谢!
--  作者：有点蓝
--  发布时间：2025/3/7 16:23:00
--  
http://www.foxtable.com/webhelp/topics/1132.htm

For Each a As RibbonMenu.RibbonItem In ConfigBar.Items
    If TypeOf a Is RibbonMenu.MenuButton Then
        Dim aa As RibbonMenu.MenuButton = a
        Output.Show(aa.text)
        For Each b As RibbonMenu.RibbonItem In aa.Items
            If TypeOf b Is RibbonMenu.MenuButton Then
                Dim bb As RibbonMenu.MenuButton = b
                Output.Show(bb.text)
                For Each c As RibbonMenu.RibbonItem In bb.Items
                    \'        ……
                Next
            End If
        Next
    End If
Next