如何在Visual Studio的Visual Basic中使用for循环编辑多个标签

Question

这是我的代码：

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    Dim randVal As Integer
    Dim label As String
    Dim val As Integer
    Dim stringVal As String
    For i As Integer = 1 To 256 Step 1
        val = i
        stringVal = CStr(val)
        label = "Label" + stringVal
        randVal = CInt(Math.Floor((20 - 1 + 1) * Rnd())) + 1
        label.BackColor = Color.Green
    Next

End Sub

我收到一个错误，该字符串没有属性BackColor。

如何在不单独调用的情况下编辑所有字符串？

Answer 1

您正在尝试访问不存在的属性。

Visual Basic中的String类型具有两个属性。 参见此处（ https://msdn.microsoft.com/zh-cn/library/system.string_properties(v=vs.110).aspx ）

如果您尝试更改标签的背景颜色，则需要引用具有该属性的标签名称。

例如：（我假设您想更改标签上的文本和颜色）

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
  Dim randVal As Integer
  Dim labelText As String
  Dim val As Integer
  Dim stringVal As String
  For i As Integer = 1 To 256 Step 1
      val = i
      stringVal = CStr(val)
      labelText = "Label" + stringVal
      randVal = CInt(Math.Floor((20 - 1 + 1) * Rnd())) + 1
      labelName.BackColor = Color.Green
  Next
End Sub

话虽如此，您也可以使用标签属性来更改标签的文本。 labelName.Text =“标签” + stringVal

以下是一些参考资料（ 如何更改文本颜色。简单吗？ ）

另外，这是标签属性的链接（ https://msdn.microsoft.com/zh-cn/library/system.windows.forms.label_properties(v=vs.110).aspx ）

和您的Buttons属性（ https://msdn.microsoft.com/zh-cn/library/system.windows.forms.button(v=vs.110).aspx ）

Answer 2

错误消息是正确的：字符串上没有名为BackColor的属性。

但是，Button上有一个BackColor属性，看起来好像您在尝试单击Button对象时设置背景颜色。 如果是这样，则需要先掌握Button对象，然后才能设置颜色。 通过将对象作为参数“发送者”传递到您的处理程序中，事件处理程序使此操作（中等）变得容易。 唯一的问题是，它作为对象而不是作为按钮发送，因此您首先必须将其转换为所需的类型，如下所示：

Dim button As Button
button = DirectCast(sender, Button)

然后，您可以设置颜色：

button.BackColor = Color.Green

另外，如果要设置按钮的文本，则必须使用button.Text属性进行设置：

button.Text = "What I want to see on the button"

但是，您的程序很难遵循。 我无法从代码中清楚地看到为什么执行循环，或者为什么要设置未使用的randVal之类的值，因此很难给出具体建议。

Answer 3

您设法将变量label设置为Label控件的名称，而不是对象本身。 现在，您需要从其名称获取该Control对象。

VB6：

 Me.Controls(label).BackColor = vbGreen

VB.Net：

Me.Controls(label).BackColor = Color.Green

但是，您可以使用一种更简单的方法来扩展标签控件并更新其背景：

   Dim c as Control
   For Each c In Me.Controls
       If (TypeOf c Is Label) Then c.BackColor = Color.Green
   Next c

Answer 4

如果要循环引用Label1到Label256，无论它们位于哪个容器中，请使用Controls.Find（） ：

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    For i As Integer = 1 To 256
        Dim lbl As Label = Me.Controls.Find("Label" & i, True).FirstOrDefault
        If Not IsNothing(lbl) Then
            lbl.BackColor = Color.Green
        End If
    Next
End Sub