16,552
社区成员
发帖
与我相关
我的任务
分享
For Each c As Control In Panel1.Controls //遍历容器中的所有控件
Dim s As Label = TryCast(c, Label) //尝试将控件转换成所需的控件类型(如:Label),转换失败时返回Nothing。
If Not s Is Nothing Then
s.Text = "hahah"
End If
Next
Public Class Form1
Private labelArray() As Label
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.labelArray = New Label() {Me.Label1, Me.Label2, Me.Label3, Me.Label4, Me.Label5, _
Me.Label6, Me.Label7, Me.Label8, Me.Label9, Me.Label10, _
Me.Label11}
For i = 0 To 10
If i / 3 = Int(i / 3) Then
Me.labelArray(i).Text = "hahah"
End If
Next i
End Sub
End Class