主题：[求助]如何遍历某一容器内的所有控件？

O了，谢谢唐兄！

For Each ctr As WinForm.Control In e.Form.Controls("TabControl1").TabPages(0).Children
msgbox(ctr.Name)
Next

遍历组件

既然所有的菜单都是派生自RibbonMenu.RibbonItem类型，所以这个类型的变量可以引用任何类型的组件，例如：

Dim itm1 As RibbonMenu.RibbonItem
Dim itm2 As RibbonMenu.RibbonItem
itm1 = RibbonTabs("Common").Groups("ClipBoard").Items("Paste")
itm2 = RibbonTabs("Print").Groups("QuickSetting").Items("OnlySelected")

如果要遍历容器中的所有控件，只能使用RibbonMenu.RibbonItem类型的变量，例如：

Dim itm As RibbonMenu.RibbonItem
For Each itm In RibbonTabs("Table").Groups("Table").Items
    itm.Enabled = False
Next

如果要遍历特定类型的控件，可以用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

有关派生和判断类型的知识，在窗口设计的遍历控件一节有详细的介绍，大家可以温习一下。