Como: Manipular eventos no Visual Basic

O exemplo a seguir define uma classe que gera um evento quando você telefonar o CauseEvent método. Este evento é tratado por um procedimento de manipulador de eventos chamado EventHandler.

Exemplo

Descrição

Para executar esse exemplo, adicione o seguinte código à classe de formulário de um Visual Basic Projeto Windows aplicativo e chame o TestEvents procedimento com um argumento inteiro.

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

Consulte também

Tarefas

Como: Escrever manipuladores evento

Conceitos

Eventos e manipuladores de eventos

Delegados e o operador AddressOf

AddHandler e RemoveHandler