VB.Net - Керування подіями та властивостями для кількох елементів керування

Ця демонстрація спрямована на:

Груповий клік і TextBox_Changed рівними шістьма TextBox, але в одному Sub
Включіть шість міток у збірку, яка дозволяє індекси.

Передумови

Відкрийте новий проект Windows (форма).

Вставте шість текстових полів, ім'я не має значення, але ви повинні ввести номер (від 1 до 6) у властивості тега.

Вставте шість міток, ім'я не має значення, але ви повинні ввести номер (від 1 до 6) у властивості Tag.

Вставте етикетку (знизу) з назвою: Label14

Шість міток ліворуч TextBox є необов'язковими і використовуються лише як тест.

FormLoad Code

Демо базується на шести stextbox і етикетці, але номер, але це можна легко змінити:

 Приватні Sub Form1_Load (відправник ByVal як System.Object, ByVal e як System.EventArgs) Обробляє MyBase.Load Розбийте Ctr як контроль для кожного Ctr в Me.Controls Якщо TypeOf Ctr TextBox Потім 'Initialise les événements des TextBox AddHandler Ctr.TextChanged AddressOf AllTextBox_TextChanged AddHandler Ctr.Click, AddressOf AllTextBox_Click ElseIf TypeOf Ctr Етикетка тоді, якщо Ctr.Tag "" Тоді "Ініціалізувати позначки LbGroupe.Add (Ctr, Ctr.Tag) Закінчити, якщо закінчити, якщо наступний кінець

Завантаження

== Натисніть і Textboxes_Changed code =

 Приватний Sub AllTextBox_TextChanged (відправник ByVal як System.Object, ByVal e як System.EventArgs) LbGroupe (sender.tag). Текст = "Виправлено в текстове поле" & sender.tag Кінець Sub