VB.Net - Pārvaldiet notikumus un īpašības vairākām kontrolēm

Šīs demonstrācijas mērķis ir:

  • Grupa Noklikšķiniet uz un TextBox_Changed evens no sešiem TextBox, bet vienā Sub
  • Iekļaujiet sešu marķējumu kolekcijā, kas ļauj rādītājus.

Priekšnoteikumi

Atveriet jaunu Windows (veidlapas) projektu.

Ielīmējiet sešas tekstlodziņus, nosaukumam nav nozīmes, bet jums ir jāievada numurs (no 1 līdz 6) tagu īpašumā.

Ielīmējiet sešas uzlīmes, nosaukumam nav nozīmes, bet jums ir jāievada numurs (no 1 līdz 6) tagu īpašumā.

Ielīmējiet etiķeti (apakšā) ar nosaukumu: Label14

Sešas kreisās etiķetes TextBox ir obligātas un tiek izmantotas tikai kā etalons.

FormLoad kods

Demo ir balstīta uz sešiem stextbox un uzlīmēm, bet gan uz numuru, taču to var viegli mainīt:

 Privātās Sub Form1_Load (ByVal sūtītājs Kā System.Object, ByVal e Kā System.EventArgs) Rokturi MyBase.Load Dim Ctr kā kontrole katram Ctr Me.Controls Ja TypeOf Ctr ir TextBox Tad "Initialise les événements des TextBox AddHandler Ctr.TextChanged, AddressOf AllTextBox_TextChanged AddHandler Ctr.Click, AddressOf AllTextBox_Click ElseIf TypeOf Ctr Vai Label tad Ja Ctr.Tag "" Tad "Initialise les propriétés des label LbGroupe.Add (Ctr, Ctr.Tag) Beigas Ja Beigas Ja Nākamais Beigas 

Lejupielāde

== Noklikšķiniet uz un tekstlodziņos_Conded code =

 Privāts sub AllTextBox_TextChanged. Text = "Vous avez sélectionner le TexBox N °" & sender.tag Beigas Sub 

Lejupielādēt

Ja vēlaties lejupielādēt demo, noklikšķiniet šeit

Iepriekšējais Raksts Nākamais Raksts

Top Padomi