Comment écrire gestionnaire d'événement dans VB.NET?

Je suis en train de tester de façon très simple la gestion des événements VB.NET.

Pour l'instant j'ai:

Public Delegate Sub TestEventDelegate()
Public Event TestEvent As TestEventDelegate

Sub MySub
    Raise TestEvent
End Sub

Comment voulez-vous écrire un gestionnaire d'événement pour les événements ci-dessus que seulement affiche un simple MessageBox?

InformationsquelleAutor Paul Lassiter | 2012-09-03
  1. 5

    De l'écriture de la méthode de gestionnaire est simple - il suffit d'écrire un Sub qui ne prend aucun paramètre et affiche une boîte de message.

    Ensuite, vous devez vous abonner au gestionnaire à l'événement, que vous pouvez le faire en ajoutant un Poignées de la clause de la méthode:

    Sub ShowMessageBox() Handles foo.TestEvent

    Ou à l'aide d'un AddHandler déclaration:

    AddHandler foo.TestEvent, AddressOf ShowMessageBox

    Noter que les à suivre .NET conventions, votre délégué doit avoir deux paramètres - un de type Object de préciser quel est l'objet qui a déclenché l'événement, et une autre de type EventArgs ou une sous-classe, à fournir toute information supplémentaire. Ce n'est pas nécessaire par la langue, mais d'une manière générale-suivi de la convention.

    • Pourquoi n'est-ce pas la pièce jointe partie inclus dans ces instructions: msdn.microsoft.com/en-US/library/wkzf914z(v=vs. 80) ? Est-il implicite de l'attachement dans certains cas?
    • Cette page est à propos de sensibilisation un événement - le "serveur" de côté, comme elle l'avait fait. Fixation d'un gestionnaire d'événement est le "client" côté.
    • Désolé je voulais dire lien
    • Pour info, la mise à jour de Manutention et de déclencher des Événements à ne couvrir que ce que Paul mentionne, dans l'exemple de code dans la section "Event Handlers": AddHandler c.ThresholdReached, AddressOf c_ThresholdReached pour VB.
    InformationsquelleAutor Jon Skeet
  2. 3

    En VB, nous avons deux méthodes pour vous abonner à l'événement de Publisher classe.

    'Delegate
Public Delegate Sub TestEventDelegate()

'Event publisher class that publishes and raises an event

Public Class EventPublisher
    Private _num As Integer
    Public Event NumberChanged As TestEventDelegate
    Public Property Number As Integer
        Get
            Return _num
        End Get
        Set(value As Integer)
            _num = value
            RaiseEvent NumberChanged()
        End Set
    End Property
End Class

'Event subscriber class

Public Class EventSubscriber
    'instance of EventPublisher class
    Private WithEvents myObject As New EventPublisher

    'Handler of myObject.NumberChanged event
    Public Sub ShowMessage() Handles myObject.NumberChanged
        Console.WriteLine("Value has been changed")
    End Sub

    Shared Sub Main()
        Dim es As New EventSubscriber
        es.myObject.Number = 10
        es.myObject.Number = 20

        'Handle the events dynamically using AddHandler
        Dim ep1 As New EventPublisher
        ep1.Number = 101
        'Attach an event to the handler
        AddHandler ep1.NumberChanged, AddressOf TestIt
        ep1.Number = 102
    End Sub
    Shared Sub TestIt()
        Console.WriteLine("Number is modified")
    End Sub
End Class
    • Pourquoi n'est-ce pas la pièce jointe partie inclus dans ces instructions: lien ? Est-il implicite de l'attachement dans certains cas?
    InformationsquelleAutor adatapost