VB.Net - valdyti įvykius ir savybes, skirtas daugeliui valdiklių

Šis demonstravimas skirtas:

  • Grupė Spustelėkite „TextBox_Changed“ ir „TextBox_Changed“ šešis „TextBox“, bet viename Sub
  • Į rinkinį įtraukite šešis ženklus, leidžiančius indeksus.

Būtinos sąlygos

Atidarykite naują „Windows“ (formos) projektą.

Įklijuokite šešis teksto laukelius, pavadinimas neturi reikšmės, tačiau turite įvesti numerį (nuo 1 iki 6) žymos ypatybėje.

Įklijuokite šešias etiketes, pavadinimas neturi reikšmės, tačiau turite įvesti numerį (nuo 1 iki 6) žymos ypatybėje.

Įklijuokite etiketę (apačioje) pavadinimu: Label14

Šešios etiketės kairėje TextBox yra neprivalomos ir naudojamos tik kaip etalonas.

FormLoad kodas

Demonstracija pagrįsta šešiais „stextbox“ ir etikete, bet skaičiumi, tačiau tai galima lengvai pakeisti:

 Privatus Sub Form1_Load (ByVal siuntėjas Kaip System.Object, ByVal e Kaip System.EventArgs) Rankenos MyBase.Load Dim Ctr kaip kontrolė kiekvienam Ctr Me.Controls Jei TypeOf Ctr yra TextBox Tada "Initialise les événements des TextBox AddHandler Ctr.TextChanged, AddressOf AllTextBox_TextChanged AddHandler Ctr.Click, AddressOf AllTextBox_Click ElseIf TypeOf Ctr Ar Label Tada Jei Ctr.Tag "" Tada "Initialise les propriétés des label LbGroupe.Add (Ctr, Ctr.Tag) Pabaiga Jei pabaiga Jei kitas pabaiga Sub 

Atsisiuntimas

== Paspauskite ir teksto laukai_Pakeistas kodas =

 Privatus Sub AllTextBox_TextChanged (ByVal siuntėjas Kaip System.Object, ByVal e As System.EventArgs) LbGroupe (sender.tag) .text = sender.text Pabaiga Sub Private Sub AllTextBox_Click (ByVal siuntėjas kaip objektas, ByVal e kaip System.EventArgs) Label14. Text = "Vous avez sélectionner le TexBox N °" & sender.tag Pabaiga 

parsisiųsti

Jei norite atsisiųsti demonstraciją, spustelėkite čia

Ankstesnis Straipsnis Kitas Straipsnis

Geriausi Patarimai