遍历组件
既然所有的菜单都是派生自RibbonMenu.RibbonItem类型,所以这个类型的变量可以引用任何类型的组件,例如:
Dim
itm1 As RibbonMenu.RibbonItem如果要遍历容器中的所有控件,只能使用RibbonMenu.RibbonItem类型的变量,例如:
Dim
itm As RibbonMenu.RibbonItem如果要遍历特定类型的控件,可以用Typeof 判断控件类型,例如:
Dim
itm As
RibbonMenu.RibbonItem
For Each
itm
In
RibbonTabs("Table").Groups("Column").Items
If
Typeof itm
Is
RibbonMenu.Button
Then
itm.Enabled =
False
End If
Next
有关派生和判断类型的知识,在窗口设计的遍历控件一节有详细的介绍,大家可以温习一下。