Практическое руководство. Объявление пользовательских событий для предотвращения блокировки (Visual Basic)

Существует несколько обстоятельств, когда важно, чтобы один обработчик событий не блокируют последующие обработчики событий. Пользовательские события позволяют событию асинхронно вызывать обработчики событий.

По умолчанию поле резервного хранилища для объявления события — это делегат многоадресной рассылки, который последовательно объединяет все обработчики событий. Это означает, что если один обработчик занимает много времени, он блокирует другие обработчики, пока не завершится. (Обработчики событий, которые хорошо ведут себя, никогда не должны выполнять длительные или потенциально блокирующие операции.)

Вместо использования реализации событий по умолчанию, которые предоставляет Visual Basic, можно использовать настраиваемое событие для асинхронного выполнения обработчиков событий.

Пример

В этом примере AddHandler метод доступа добавляет делегат для каждого обработчика Click события ArrayList в хранящийся в EventHandlerList поле.

Когда код вызывает Click событие, RaiseEvent метод вызывает все делегаты обработчика событий асинхронно с помощью BeginInvoke метода. Этот метод вызывает каждый обработчик в рабочем потоке и возвращает немедленно, поэтому обработчики не могут блокировать друг друга.

VB

Public NotInheritable Class ReliabilityOptimizedControl
    'Defines a list for storing the delegates
    Private EventHandlerList As New ArrayList

    'Defines the Click event using the custom event syntax.
    'The RaiseEvent always invokes the delegates asynchronously
    Public Custom Event Click As EventHandler
        AddHandler(ByVal value As EventHandler)
            EventHandlerList.Add(value)
        End AddHandler
        RemoveHandler(ByVal value As EventHandler)
            EventHandlerList.Remove(value)
        End RemoveHandler
        RaiseEvent(ByVal sender As Object, ByVal e As EventArgs)
            For Each handler As EventHandler In EventHandlerList
                If handler IsNot Nothing Then
                    handler.BeginInvoke(sender, e, Nothing, Nothing)
                End If
            Next
        End RaiseEvent
    End Event
End Class

См. также

• ArrayList
• BeginInvoke
• События
• Практическое руководство. Объявление пользовательских событий для экономии памяти