Cómo: Declarar eventos personalizados para evitar bloqueos (Visual Basic)
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
