VB.Net - Správa udalostí a vlastností pre viaceré ovládacie prvky

Cieľom tejto demonštrácie je:

Skupina Click a TextBox_Changed z šiestich TextBox, ale v jednom Sub
Zahrnúť šesť label v kolekcii, ktorá umožňuje indexy.

predpoklady

Otvorte nový projekt Windows (formulár).

Prilepte šesť textových polí, názov nezáleží, ale musíte zadať číslo (1 až 6) do vlastnosti Tag.

Vložte šesť menoviek, názov nezáleží, ale musíte zadať číslo (1 až 6) do vlastnosti Tag.

Vložte štítok (dole) s názvom: Label14

Šesť štítkov na ľavej strane TextBoxu je voliteľných a používa sa len ako referenčná hodnota.

FormLoad Code

Demo je založené na šiestich stextbox a label, ale číslo, ale to možno ľahko zmeniť:

 Private Sub Form1_Load (ByVal odosielateľ ako System.Object, ByVal e ako System.EventArgs) Spracováva MyBase.Load Dim Ctr ako ovládací prvok pre každý Ctr v Me.Controls Ak TypeOf Ctr je TextBox potom 'Initialise les événements des TextBox AddHandler Ctr.TextChanged, AddressOf AllTextBox_TextChanged AddHandler Ctr.Click, AddressOf AllTextBox_Click ElseIf TypeOf Ctr je označenie potom ak Ctr.Tag "" Potom 'Initialise les propriétés des labels LbGroupe.Add (Ctr, Ctr.Tag) Koniec Ak Koniec Ak Ďalší koniec Sub

sťahovanie

== Kliknite na položku Textboxes_Changed a zadajte text =

 Private Sub AllTextBox_TextChanged (ByVal odosielateľ ako System.Object, ByVal e ako System.EventArgs) LbGroupe (sender.tag) .text = sender.text Koniec Sub Private Sub AllTextBox_Click (ByVal odosielateľ ako objekt, ByVal e As System.EventArgs) Label14. Text = "Vous avez sélectionner le TexBox N °" & sender.tag End Sub