VB.Net - Управление на събития и свойства за множество контроли

Целта на тази демонстрация е:

Групово щракване и TextBox_Changed на шест TextBox, но в един Sub
Включете шест етикета в колекция, която позволява индекси.

Предварителни

Отворете нов проект за Windows (форма).

Поставете шест текстови полета, името няма значение, но трябва да въведете числото (1 до 6) в свойството Tag.

Поставете шест етикета, името няма значение, но трябва да въведете числото (1 до 6) в свойството Tag.

Поставете етикет (отдолу) с името: Label14

Шестте етикета отляво на TextBox са опционални и се използват само като бенчмарк.

Код на формуляра

Демото се основава на шест stextbox и етикет, но числото, но това може лесно да се промени:

 Частни под Form1_Load (ByVal подател като System.Object, ByVal e като System.EventArgs) Дръжки MyBase.Load Dim Ctr като контрол за всеки Ctr в Me.Controls Ако TypeOf Ctr е TextBox тогава "Initialise les événements des TextBox AddressOf AllTextBox_TextChanged AddHandler Ctr.Click, AddressOf AllTextBox_Click ElseIf TypeOf Ctr е етикет тогава, ако Ctr.Tag "" Тогава "Initialise les propriétés des labels LbGroupe.

Изтеглянето

== Кликнете и Textboxes_Changed code =

 Частно под AllTextBox_TextChanged (ByVal подател като System.Object, ByVal e като System.EventArgs) LbGroupe (sender.tag). Текст = "Vous avez sélectionner le TexBox N °" & sender.tag Край под