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 ' ToolBars
If a3.name.Contains("分割条")=True Or a3.name.Contains("Name")=True Or a3.name.Contains("退出")=True Then Continue For
If Typeof a3 Is RibbonMenu.MenuButton Then '判断控件是否是菜单
MessageBox.Show("A-" & a3.name )
......
End If
If Typeof a3 Is RibbonMenu.Button Then '判断控件是否是文本框
MessageBox.Show("B-" & a3.name )
End If
Next
Next
Next
如何把a3下加入的"菜单按钮"或"标准按钮"引用出来呢?请老师指点!
加好友 
发短信
Post By：2012/4/8 6:32:00 [显示全部帖子]
