循环遍历 vb.net 中的元素答案

【问题标题】：Looping though elements in vb.net循环遍历 vb.net 中的元素
【发布时间】：2014-10-25 15:21:10
【问题描述】：

有没有一种方法可以循环使用基于数字的名称的多个元素，更改它们的属性？

示例：

这是我的表单上的一组示例元素：

Element1
Element2
Element3
Element4
Element5

这就是我想的那种事情：

For i = 1 To 5
    Element + i .BackColor = Color.Maroon 
Next

这只是因为我有大量元素，我想在应用程序运行期间更改它们的属性。

感谢您的任何回答。

【问题讨论】：

元素是什么控件？

标签： vb.net

【解决方案1】：

当然，如果不是正确的，请将 Me.Controls 替换为另一个控件集合。

标签示例：

For i = 1 To 5
  Dim lb = TryCast(GameInterface.Controls("Element" & i.ToString), Label)
  If lb IsNot Nothing Then lb.BackColor = Color.Maroon 
Next

【讨论】：

我对 vb.net 比较陌生，所以我只能说这些元素是标签。所以这应该工作？？
你告诉我，它们是标签还是其他控件？
它们是标签，抱歉，问号有误导性
那么如果它们存在于表单的控件集合中，那么这将起作用 - 你试过了吗？
那么您的控件不在表单的集合中，或者名称不像您告诉我的那样，是名称“Element1”等...？

【解决方案2】：

如果是表格上的标签，那么试试这个：用父控件替换父控件

Private Sub SetControls()
        Dim xControl As Control
        For Each xControl parent.Controls
            If (TypeOf xControl Is Label ) Then
                xControl.backcolor= Color.Maroon
            End If
        Next xControl
End Sub

【讨论】：