VB.Net - Upravljanje dogodkov in lastnosti za več kontrolnikov

Namen tega prikaza je:

Skupina Kliknite in TextBox_Changed je enakih šestih besedilnih vrstic, vendar v eni podmeni
V zbirko vključite šest oznak, ki omogočajo indeksiranje.

Predpogoji

Odprite nov projekt Windows (obrazec).

Prilepite šest besedilnih polj, ime ni pomembno, vendar morate v lastnost Tag vnesti številko (1 do 6).

Prilepite šest nalepk, ime ni pomembno, vendar morate v lastnost Tag vnesti številko (1 do 6).

Prilepite nalepko (spodaj) z imenom: Label14

Šest nalepk na levi strani TextBox je neobvezno in se uporabljajo samo kot merilo.

Koda obrazca

Demo temelji na šestih stextboxih in oznakah, vendar na številki, vendar je to mogoče enostavno spremeniti:

 Zasebni pod Form1_Load (ByVal pošiljatelj kot System.Object, ByVal e As System.EventArgs) Ročaji MyBase.Load Dim Ctr kot kontrola za vsak Ctr v Me.Controls Če TypeOf Ctr je TextBox nato 'Initialise les événements des TextBox AddHandler Ctr. AddressOf AllTextBox_TextChanged AddHandler Ctr.Click, AddressOf AllTextBox_Click ElseIf TypeOf Ctr je Label potem, če Ctr.Tag "" Potem "Začnite z lastnostmi oznak LbGroupe.Add (Ctr, Ctr.Tag) End Če End Če Next End

Prenos

== Klik in Textboxes_Changed code =

 Zasebna sub AllTextBox_TextChanged (Pošiljatelj ByVal Kot System.Object, ByVal e kot System.EventArgs) LbGroupe (sender.tag). Besedilo = "Vous avez sélectionner le TexBox N °" & sender.tag End Sub