Comment : gérer les événements dans Visual Basic

Mise à jour : novembre 2007

L'exemple suivant définit une classe qui déclenche un événement lorsque vous appelez la méthode CauseEvent. Cet événement est géré par une procédure gestionnaire d'événements appelée EventHandler.

Exemple

Description

Pour exécuter cet exemple, ajoutez le code ci-dessous à la classe Form d'un projet d'application Windows Visual Basic et appelez la procédure TestEvents avec un argument de type nombre entier.

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

Voir aussi

Tâches

Comment : écrire des gestionnaires d'événements

Concepts

Événements et gestionnaires d'événements

Délégués et opérateur AddressOf

AddHandler et RemoveHandler