版主后, 请教,如何遍历配置栏的多级级菜单?比如到三级
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