1: Public Sub LocalizarControle(Nome As String, saida As List(Of Control), controle As Control)
2: If controle.Controls.Count > 0 Then
3: For Each c As Control In controle.Controls
4: If c.Controls.Count = 0 Then
5: If c.Name = Nome Then saida.Add(c)
6: Else
7: LocalizarControle(Nome, saida, c)
8: End If
9: Next
10: End If
11: End Sub
Para chama-lá basta adicionar;
1: LocalizarControle("NOME_DO_CONTROLE", lista, FlowLayoutPanel1)
2: For Each c As Control In lista
3: 'Se for uma label
4: c.Text = "Seu Text"
5: Next
0 comentários:
Postar um comentário