将阵列位置指定给标签标记特性

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