VB.Net - Hantera händelser och egenskaper för flera kontroller
Denna demonstration syftar till att
- Gruppklick och TextBox_Changed motsvarar sex TextBox men i en Sub
- Inkludera sex etiketter i en samling som tillåter index.
förutsättningar
Öppna ett nytt Windows-formulär.
Klistra in sex textrutor, namnet spelar ingen roll men du måste ange numret (1 till 6) i egenskapen Tag.
Klistra in sex etiketter, namnet spelar ingen roll men du måste ange numret (1 till 6) i egenskapen Tag.
Klistra in en etikett (botten) med namnet: Etikett14
De sex etiketterna till vänster är textboxen valfria och används endast som riktmärke.
FormLoad Code
Demon baseras på sex stextbox och etikett men numret, men det här kan enkelt ändras:
Privat Sub Form1_Load (ByVal-avsändare Som System.Object, ByVal e As System.EventArgs) hanterar MyBase.Load Dim Ctr som kontroll för varje Ctr i Me.Controls Om TypeOf Ctr är TextBox sedan "Initialise les événements of TextBox AddHandler Ctr.TextChanged, AdressOf AllTextBox_TextChanged AddHandler Ctr.Click, AdressOf AllTextBox_Click ElseIf TypeOf Ctr är etikett då Om Ctr.Tag "" Then 'Initialise les propriétés des labels LbGroupe.Add (Ctr, Ctr.Tag) Avsluta om slutet om nästa slutet
nedladdning
== Klicka och Textboxes_Changed code =
Privat Sub AllTextBox_TextChanged (ByVal-avsändare Som System.Object, ByVal e As System.EventArgs) LbGroupe (avsändare.tag) .text = avsändare. Avsluta Sub Privat Sub AllTextBox_Click (ByVal avsändare Som Objekt, ByVal e Som System.EventArgs) Etikett14. Text = "Vous avez sélectionner le TexBox N °" & avsändare. End End Sub
Ladda ner
Om du vill ladda ner en demo, klicka här