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
加好友 
发短信
Post By：2025/3/7 16:23:00 [显示全部帖子]
