VB.Net - Administrar eventos e propriedades de vários "controls"

Dezembro 2016


Esta demonstração tem por finalidade:
  • Reunir os eventos Click e TextBox_Changed dos seis TextBox mas em uma única Sub
  • Adicionar seis etiquetas em uma coleção, o que permite ter índices.

Preliminar


Abrir um novo projeto Windows form.
Colar seis textbox, o nome não tem importância mas na propriedade Tag ponha, seja o N°, seja de 1 à 6.
Colar seis etiquetas à direita dos textbox, nome não tem importância mas na propriedade Tag ponha, seja o N°, seja de 1 à 6.
Colar uma etiqueta (embaixo) com o nome Label14
As seis etiquetas à esquerda dos TextBox são facultativas e serevem apenas como referência.

O código do FormLoad


A demonstração é baseada em seis textbox seis etiquetas, mas o número é ilimitado e não exigiria apenas uma linha de código adicional.
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load   
        Dim Ctr As Control   
        For Each Ctr In Me.Controls   
            If TypeOf Ctr Is TextBox Then   
                'Inicializa os eventos dos TextBox   
                AddHandler Ctr.TextChanged, AddressOf AllTextBox_TextChanged   
                AddHandler Ctr.Click, AddressOf AllTextBox_Click   
            ElseIf TypeOf Ctr Is Label Then   
                If Ctr.Tag <> "" Then   
                    'Inicializa as propriedades das etiquetas   
                    LbGroupe.Add(Ctr, Ctr.Tag)   
                End If   
            End If   
        Next   
    End Sub

O código dos eventos Click e a mudança dos TextBox


Private Sub AllTextBox_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)   
        LbGroupe(sender.tag).text = sender.text   
    End Sub   
    Private Sub AllTextBox_Click(ByVal sender As Object, ByVal e As System.EventArgs)   
        Label14.Text = "Você selecionou o TexBox N° " & sender.tag   
    End Sub

Pois é... nenhuma linha a mais.

Download


Se você não quiser criar a demonstração, você pode baixar a solução.
Atenção: É um arquivo zip a ser descompactado.
Veja a solução aqui


Tradução feita por Lucia Maurity y Nouira

Veja também :
Este documento, intitulado « VB.Net - Administrar eventos e propriedades de vários "controls" »a partir de CCM (br.ccm.net) está disponibilizado sob a licença Creative Commons. Você pode copiar, modificar cópias desta página, nas condições estipuladas pela licença, como esta nota aparece claramente.