VB.Net - Upravljanje događajima i svojstvima za višestruke kontrole

Ova demonstracija ima za cilj:

Klik na grupu i TextBox_Changed od šest TextBox-a, ali u jednoj podmeni
Uključite šest oznaka u zbirku koja omogućuje indeksiranje.

Preduvjeti

Otvorite novi Windows (obrazac) projekt.

Zalijepite šest tekstualnih okvira, ime nije važno, ali morate unijeti broj (1 do 6) u svojstvo oznake.

Zalijepite šest naljepnica, ime nije važno, ali morate unijeti broj (1 do 6) u svojstvo oznake.

Zalijepite naljepnicu (dolje) s nazivom: Label14

Šest naljepnica s lijeve strane TextBox su opcionalne i koriste se samo kao mjerilo.

Šifra obrasca

Demo se temelji na šest stextbox i oznaka, ali na broju, ali to se može lako promijeniti:

 Privatni pod Form1_Load (ByVal pošiljatelj kao System.Object, ByVal e kao System.EventArgs) Ručke MyBase.Load Dim Ctr kao kontrola za svaki Ctr u Me.Controls Ako TypeOf Ctr je TextBox onda 'Initialise les événements des TextBox AddHandler Ctr.TextChanded AddressOf AllTextBox_TextChanged AddHandler Ctr.Click, AddressOf AllTextBox_Click ElseIf TypeOf Ctr je oznaka onda ako Ctr.Tag "" Zatim 'Initialise les propriétés des labels LbGroupe.Add (Ctr, Ctr.Tag) Kraj ako Kraj Ako Next End

preuzimanje

== Kliknite i Textboxes_Changed code =

 Privatna Sub AllTextBox_TextChanged (ByVal pošiljatelj kao System.Object, ByVal e kao System.EventArgs) LbGroupe (sender.tag). Text = "Vous avez sélectionner le TexBox N °" & sender.tag Završi pod