VB манипулирует множеством ярлыков внутри панели

Таким образом, у меня есть как 100 ярлыков внутри панели, и мне нужно изменить их текст. Я пробовал использовать и индексировать индекс Tab, как массив без успеха, любые идеи, как я могу выбирать и изменять свойства этих меток?

Sub setCartela(ByVal numeros As Integer)
 For cont As Integer = 0 To numeros Step 1
//change labels text inside panel
 Next
End Sub
2 ответа

Попробуйте вот так...

Dim i as Integer = 1
For Each ctrl As Control In Panel1.Controls
 If ctrl.GetType.ToString = "System.Windows.Forms.Label" Then
 ctrl.Text = "Text" & format(i)
 End If
 i += 1
Next


попробуйте этот код:

dim _countLbl as integer = 1 
For each Lbl as Label in Panel1.Controls.Oftype(Of Label)()

Lbl.text="Label" & _countLbl 
_countLbl += 1

Next

licensed under cc by-sa 3.0 with attribution.