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

Tidigare Artikel Nästa Artikel

Bästa Tipsen