Практическое руководство. Обработка событий в Visual Basic

Статья
11/05/2008

Обновлен: Ноябрь 2007

В следующем примере определяется класс, создающий событие при вызове метода CauseEvent. Данное событие обрабатывается процедурой обработчика событий под названием EventHandler.

Пример

Описание

Чтобы запустить этот пример, добавьте следующий код к классу формы Visual Basic проекта приложения Windows и вызовите процедуру TestEvents с целочисленным аргументом.

Код

Public Class Class1
    ' Declare an event for this class.
    Public Event Event1(ByVal EventNumber As Integer)
    ' Define a method that raises an event.
    Sub CauseEvent(ByVal EventNumber As Integer)
        RaiseEvent Event1(EventNumber)
    End Sub
End Class

Protected Sub TestEvents(ByVal EventNumber As Integer)
    Dim Obj As New Class1
    AddHandler Obj.Event1, AddressOf Me.EventHandler
    ' Cause the object to raise an event.
    Obj.CauseEvent(EventNumber)
End Sub

Sub EventHandler(ByVal EventNumber As Integer)
    MsgBox("Received event number " & EventNumber.ToString)
End Sub

См. также

Задачи

Практическое руководство. Написание обработчиков событий

Основные понятия

События и обработчики событий

Делегаты и оператор AddressOf

Операторы AddHandler и RemoveHandler

Поделиться через