Cómo: Declarar eventos personalizados para evitar bloqueos (Visual Basic)

  • Artículo

Hay varias circunstancias en las que es importante que un controlador de eventos no bloquee los controladores de eventos posteriores. Los eventos personalizados permiten que el evento llame a sus controladores de eventos de forma asincrónica.

De forma predeterminada, el campo de memoria auxiliar de una declaración de eventos es un delegado de multidifusión que combina en serie todos los controladores de eventos. Esto significa que si un controlador tarda mucho tiempo en completarse, bloquea los demás controladores hasta que se completa. (Los controladores de eventos bien comportados nunca deben realizar operaciones largas o potencialmente de bloqueo.)

En lugar de usar la implementación predeterminada de eventos que proporciona Visual Basic, puedes usar un evento personalizado para ejecutar los controladores de eventos de forma asincrónica.

Ejemplo

En este ejemplo, el AddHandler descriptor de acceso agrega el delegado para cada controlador del evento Click a un ArrayList almacenado en el campo EventHandlerList.

Cuando el código genera el Click evento, el RaiseEvent descriptor de acceso invoca todos los delegados de controlador de eventos de forma asincrónica mediante el BeginInvoke método. Ese método invoca cada controlador en un subproceso de trabajo y devuelve inmediatamente, por lo que los controladores no se pueden bloquear entre sí.

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

Vea también