Gewusst wie: Behandeln von Ereignissen in Visual Basic

Aktualisiert: November 2007

Im folgenden Beispiel wird eine Klasse definiert, die ein Ereignis auslöst, wenn die CauseEvent-Methode aufgerufen wird. Dieses Ereignis wird von der Ereignishandlerprozedur EventHandler behandelt.

Beispiel

Beschreibung

Um dieses Codebeispiel auszuführen, fügen Sie der Formularklasse eines Windows-Anwendungsprojekts in Visual Basic folgenden Code hinzu, und rufen Sie die TestEvents-Prozedur mit einem Ganzzahlargument auf.

Code

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

Siehe auch

Aufgaben

Gewusst wie: Schreiben von Ereignishandlern

Konzepte

Ereignisse und Ereignishandler

Delegaten und der AddressOf-Operator

AddHandler und RemoveHandler