domingo, 18 de setembro de 2011

Como aplicar uma ação a todos os componentes de um tipo em um Form

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