Cómo: Controlar eventos en Visual Basic

Actualización: noviembre 2007

En el ejemplo siguiente se define una clase que produce un evento al llamar al método CauseEvent. Este evento está controlado por un procedimiento controlador de eventos denominado EventHandler.

Ejemplo

Descripción

Para ejecutar este ejemplo, agregue el código siguiente a la clase de formulario de un proyecto de aplicación para Windows Visual Basic y llame al procedimiento TestEvents con un argumento de tipo integer.

Código

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

Vea también

Tareas

Cómo: Escribir controladores de eventos

Conceptos

Eventos y controladores de eventos

Los delegados y el operador AddressOf

AddHandler y RemoveHandler