Como declarar eventos personalizados para evitar bloqueio (Visual Basic)

  • Artigo

Há várias circunstâncias em que é importante que um manipulador de eventos não bloqueie manipuladores de eventos subsequentes. Eventos personalizados permitem que o evento chame seus manipuladores de eventos de forma assíncrona.

Por padrão, o campo repositório de backup para uma declaração de evento é um delegado multicast que combina serialmente todos os manipuladores de eventos. Isso significa que, se um manipulador levar muito tempo para ser concluído, ele bloqueará os outros manipuladores até que ele seja concluído. (Manipuladores de eventos bem comportados nunca devem executar operações longas ou potencialmente bloqueadas.)

Em vez de usar a implementação padrão de eventos que o Visual Basic fornece, você pode usar um evento personalizado para executar os manipuladores de eventos de forma assíncrona.

Exemplo

Neste exemplo, o AddHandler acessador adiciona o delegado para cada manipulador do Click evento a um ArrayList armazenado no EventHandlerList campo.

Quando o código aciona o Click evento, o RaiseEvent acessador invoca todos os representantes do manipulador de eventos de forma assíncrona usando o BeginInvoke método. Esse método invoca cada manipulador em um thread de trabalho e retorna imediatamente, portanto, os manipuladores não podem bloquear uns aos outros.

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

Confira também