如何遍历 Windows 窗体上的组件？

Question

我在使用 VB.NET 中的 .NET Compact Framework 3.5 的系统上使用 VisualStudio 2008，并且有一个包含几个组件的表单，即计时器和消息框。我的应用程序的一部分是一个子程序，它遍历表单中的所有控件并调整 Front 或 BackColor 等属性，以便我们可以按需重新设计整个应用程序。

在遍历这些控件时，我还想遍历组件并在表单上设置消息框的一些属性。我尝试使用 For Each 访问 Me.components.Components 但该集合似乎是私有的。

For Each comp As Object in Me.components
  <do something>
Next comp

有没有办法遍历组件？

编辑：

我错误地认为 me.components.Component 是私有的。使用Me.components.Components 我得到以下错误：

“组件”不是“System.ComponentModel.IContainer”的成员。

Answer 1

你可以用这个循环遍历计时器： ....

For Each c As Object In Me.components.Components
        If TypeOf c Is Timer Then
            Dim tim As Timer = CType(c, System.Windows.Forms.Timer)
            tim.Interval = 12345
        End If
    Next

将 .Interval = 12345 更改为您想要对计时器执行的操作。

....并通过其他控件：

For Each ctrl As Control In Me.Controls
        If (ctrl.GetType() Is GetType(TextBox)) Then
            Dim txt As TextBox = CType(ctrl, TextBox)
            txt.BackColor = Color.LightYellow
        End If
    Next

用控件类型更改TextBox

还有.BackColor = Color.LightYellow 与您想对控件进行的任何操作。

不幸的是，我不知道如何使用 MesseageBoxes :(