Question

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

示例：

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

Element1
Element2
Element3
Element4
Element5

这是我想到的事情：

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

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

感谢您的回答。

Answer 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

Answer 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

循环使用vb.net中的元素

2 个答案: