VB.Net - Gestisci eventi e proprietà per più controlli

Questa dimostrazione mira a:

Group Click e TextBox_Changed pari a sei TextBox ma in un sotto
Includere sei etichette in una raccolta che consente gli indici.

Prerequisiti

Aprire un nuovo progetto Windows (modulo).

Incolla sei caselle di testo, il nome non ha importanza, ma devi inserire il numero (da 1 a 6) nella proprietà Tag.

Incolla sei etichette, il nome non ha importanza, ma devi inserire il numero (da 1 a 6) nella proprietà Tag.

Incolla un'etichetta (in basso) con il nome: Label14

Le sei etichette a sinistra del TextBox sono opzionali e vengono utilizzate solo come riferimento.

FormLoad Code

La demo è basata su sei stextbox ed etichetta ma il numero, ma può essere facilmente modificato:

 Private Sub Form1_Load (ByVal sender As System.Object, ByVal e As System.EventArgs) Gestisce MyBase.Load Dim Ctr As Control per ogni Ctr In Me.Controls Se TypeOf Ctr è TextBox Then 'Inizializza le aree des TextBox AddHandler Ctr.TextChanged, AddressOf AllTextBox_TextChanged AddHandler Ctr.Click, AddressOf AllTextBox_Click ElseIf TypeOf Ctr È l'etichetta Then If Ctr.Tag "" Then 'Inizializza i proprieta delle etichette LbGroupe.Add (Ctr, Ctr.Tag) End If End If Next End Sub

Download

== Click e Textboxes_Changed code =

 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 = "Vous avez sélectionner le TexBox N °" & sender.tag End Sub