ПОНЯТНО О Visual Basic NET (том 3)

         

Первый способ обработки событий: WithEvents и Handles


Это самый простой и короткий способ.

Когда мы в режиме проектирования помещаем элемент управления на форму и хотим написать для него обработчик какого-нибудь из его событий, то VB привычным образом помогает нам получить в окне кода заготовку обработчика (3.11): в поле, расположенном в верхней левой части окна кода, мы выбираем этот элемент управления, а в поле, расположенном в верхней правой части окна кода, мы выбираем нужное событие этого элемента. А что делать, если элементы управления помещены на форму программным путем? – То же самое, но с одним маленьким предварительным дополнением в программе.

Создайте проект из одной формы, без кнопок. Введите такой код:

Dim WithEvents

 

b As New Button          'Создаем кнопку

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Me.Controls.Add(b)                          'Добавляем созданную кнопку в коллекцию формы

End Sub

Запустите проект. Вы видите, что на форме присутствует кнопка без надписи. Щелкните по ней – ничего не происходит.

Пояснения: Первая строка рождает кнопку, третья – размещает ее на форме. Слово WithEvents  переводится «с событиями». Имеется в виду, что здесь кнопка рождается с возможностью обработки событий. Но обработчиков мы ведь пока не написали.

В подтверждение слов о возможности обработки событий загляните в поле, расположенное в верхней левой части окна кода. Вы увидите, что там появился элемент b. Остается только выбрать в поле, расположенном в верхней правой части окна кода, нужное событие этого элемента. Выберем Click. В окне кода появится привычная заготовка процедуры-обработчика:

Private Sub b_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles b.Click

End Sub



Напомню, что завершается заголовок обработчика словами Handles b.Click. Слово Handles переводится «обрабатывает», выражение b.Click – это событие Click объекта b. Получается, что обработчик «обрабатывает событие Click объекта b». Наличие слова Handles заставляет процедуру запускаться в тот самый момент, когда возникает событие b.Click. Если мы сотрем слова Handles b.Click, обработчик превратится в обычную процедуру пользователя и на события реагировать не будет.


Запишем в тело обработчика две простейшие строки:

Private Sub b_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles b.Click

        b.Text = "Нажали"

        b.Left = b.Left + 30

End Sub

Запустите проект. Щелкните по кнопке – она прыгнет направо на 30 пикселей и на ней появится надпись «Нажали».

Параметры обработчика. В нашем случае обработчику положено иметь два параметра: Первый (с именем sender) имеет тип Object и указывает на объект, с которым произошло событие (у нас это кнопка b). Второй параметр (с именем e)  указывает на объект, который должен содержать полезную информацию о событии (правда, в нашем случае это объект типа EventArgs, который такой информации, к сожалению, не содержит).

Перепишем тело обработчика:

Private Sub b_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles b.Click

        sender.Text = "Нажали"

        sender.Left = sender.Left + 30

End Sub

Действие обработчика не изменилось, однако он стал более универсальным. Теперь по какому бы подходящему объекту не щелкнули, он прыгнет направо, надо только в заголовке процедуры после Handles изменить имя b на имя этого объекта.

Мы можем из соображений удобства как угодно переименовывать оба параметра в скобках и название процедуры перед скобками, действие обработчика от этого не изменится. Можно также убрать из типа параметров лишнее упоминание пространства имен System:

Private Sub Обработчик_нажатия_на_кнопку(ByVal На_кого_нажали As Object,  _

ByVal Информация

As EventArgs) Handles b.Click

        На_кого_нажали.Text = "Нажали"

        На_кого_нажали.Left = На_кого_нажали.Left + 30

End Sub

Несколько обработчиков у одного события. Перепишите обработчик, а затем скопируйте, чуть-чуть изменив его имя и тело. Теперь у вас в коде – два обработчика:

Private Sub b_Click (ByVal sender As Object, ByVal e As EventArgs) Handles b.Click

        MsgBox("Сработал 1-й обработчик")

End Sub

Private Sub b_Click1 (ByVal sender As Object, ByVal e As EventArgs) Handles b.Click



        MsgBox("Сработал 2-й обработчик")

End Sub

Запустите проект. Щелкните один раз по кнопке – у вас последовательно появятся два сообщения. Таким образом, вы можете писать несколько обработчиков с разными именами для одного события, все они будут запускаться один за другим в результате наступления события.

Используем информацию о событии. Вспомним материал 14.2.2 о событиях мыши. Создадим такой обработчик вместо предыдущих:

Private Sub Обработчик_нажатия_на_кнопку(ByVal На_кого_нажали As Object,  _

ByVal Информация As MouseEventArgs) Handles b.MouseDown

        На_кого_нажали.Left = На_кого_нажали.Left + 30

        If  Информация.Button = MouseButtons.Left  Then  На_кого_нажали.Text = "Левая"

        If  Информация.Button = MouseButtons.Right  Then  На_кого_нажали.Text = "Правая"

End Sub

Обработчик обрабатывает событие b.MouseDown и пользуется информацией из объекта типа MouseEventArgs. Надпись на кнопке меняется в зависимости от того, какую клавишу мыши мы нажали.

Если вы хотите, вы можете в выражении, стоящем после слова Handles, стереть событие MouseDown, вам тут же будет предложен на выбор список всех возможных событий элемента b. Выберите подходящее другое – и обработчик будет обрабатывать уже его (о том, какие события будут подходящими, написано чуть ниже). Вы можете даже стереть b, вам тут же будет предложен на выбор список всех возможных элементов, порождающих события.

Один обработчик для нескольких событий. Одним обработчиком можно обрабатывать события разных объектов, причем и события тоже могут быть разные. Создайте проект без кнопок. Запишите такой код:

Dim WithEvents b1, b2, b3 As New Button

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Me.Controls.Add(b1)

        Me.Controls.Add(b2)

        Me.Controls.Add(b3)

End Sub

Private Sub Обработчик_событий_кнопки(ByVal Кнопка As Object,  _

ByVal Информация As EventArgs) Handles  b1.Click,  b2.Click,  b3.MouseEnter

        Кнопка.Left = Кнопка.Left + 30

End Sub

После запуска проекта вы сможете гонять по форме три кнопки: две щелчками, а одну – просто вхождением мышиного курсора на ее поверхность.

Не любые события можно перечислять через запятую в заголовке обработчика, а лишь те, для обработки которых подходят параметры именно тех типов, что указаны в скобках. Какие именно типы параметров подходят, вы узнаете, поставив текстовый курсор на название события (например, MouseEnter) и нажав F1. В появившемся окне помощи щелкните по слову EventHandler. Вы увидите шаблон с указанием параметров.

К сожалению, словом WithEvents нельзя объявлять массив объектов.


Содержание раздела