Procedura: gestire gli eventi in Visual Basic

Articolo
09/12/2008

Aggiornamento: novembre 2007

Nell'esempio seguente viene definita una classe che genera un evento quando viene richiamato il metodo CauseEvent. L'evento è gestito da una procedura per la gestione di eventi chiamata EventHandler.

Esempio

Descrizione

Per eseguire questo esempio, aggiungere il codice indicato di seguito alla classe form di un progetto Applicazione Windows di Visual Basic, quindi chiamare la routine TestEvents con un argomento integer.

Codice

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

Vedere anche

Attività

Procedura: scrivere gestori eventi

Concetti

Eventi e gestori eventi

Delegati e operatore AddressOf

AddHandler e RemoveHandler

Condividi tramite