将数组位置分配给标签标记属性

Question

我想为 16 个标签的 Tag 属性分配一个数组。这是我想出的：

Label1.Tag = FotoArray(0)
Label2.Tag = FotoArray(1)
Label3.Tag = FotoArray(2)
Label4.Tag = FotoArray(3)
Label5.Tag = FotoArray(4)
Label6.Tag = FotoArray(5)
Label7.Tag = FotoArray(6)
Label8.Tag = FotoArray(7)
Label9.Tag = FotoArray(8)
Label10.Tag = FotoArray(9)
Label11.Tag = FotoArray(10)
Label12.Tag = FotoArray(11)
Label16.Tag = FotoArray(12)
Label13.Tag = FotoArray(13)
Label15.Tag = FotoArray(14)
Label14.Tag = FotoArray(15)

有没有办法以更短的方式做到这一点？

Answer 1

假设Label16.Tag = FotoArray(12) 是一个错字，这应该可以工作：

For counter As Integer = 1 To 16
    Dim label As Label = Me.Controls.Find("Label" & counter, True).FirstOrDefault()
    If Not label Is Nothing Then
        label.Tag = FotoArray(counter - 1)
    End If
Next

您也可以简单地改用Me.Controls(name)。更新后的代码如下所示：

For counter As Integer = 1 To 16
    Dim label As Label = Me.Controls("Label" & counter)
    If Not label Is Nothing Then
        label.Tag = FotoArray(counter - 1)
    End If
Next