Para aplicar uma ação a todos os componentes de um tipo em um Form utilize os
códigos abaixo.
For Each
ctl As
Control
In Me.Controls
If
TypeOf
ctl Is
Tipo de Componente
Then
Ação()
End If
Next
ctl
Exemplos:
Para limpar o texto em todos os TextBox:
For Each
ctl As
Control
In Me.Controls
If TypeOf
ctl Is
TextBox
Then
ctl.Text =
""
End If
Next
ctl
Para ocultar todos os Buttons:
For Each
ctl As
Control
In Me.Controls
If TypeOf
ctl Is
Button
Then
ctl.Visible =
False
End If
Next
ctl
Simples, não?
Nenhum comentário:
Postar um comentário