Wie schreibt man event-handler in VB.NET?

Ich versuche zu testen, sehr einfache Ereignisbehandlung in VB.NET.

Bisher habe ich:

Public Delegate Sub TestEventDelegate()
Public Event TestEvent As TestEventDelegate

Sub MySub
    Raise TestEvent
End Sub

Wie würden Sie eine Ereignisprozedur schreiben, die für den oben genannten Fall, dass nur angezeigt wird eine einfache MessageBox?

InformationsquelleAutor Paul Lassiter | 2012-09-03

  1. 4

    Schreiben der hf-Methode ist ganz einfach - schreiben Sie eine Sub die keine Parameter hat und ein Meldungsfeld angezeigt.

    Müssen Sie dann abonnieren Sie den handler für das Ereignis können Sie entweder das hinzufügen einer Griffe Klausel, nach der Methode:

    Sub ShowMessageBox() Handles foo.TestEvent

    Ist, oder ein AddHandler Aussage:

    AddHandler foo.TestEvent, AddressOf ShowMessageBox

    Beachten Sie, dass zu Folgen .NET-Konventionen, Ihre Stellvertretung müssen zwei Parameter - eine Art Object angeben, welches Objekt das Ereignis ausgelöst hat, und eine vom Typ EventArgs oder einer Unterklasse zu liefern zusätzliche Informationen. Dies ist nicht erforderlich durch die Sprache, aber es ist ein breit-Konvention gefolgt.

    Warum ist nicht die Anlage Teil in diesen Anweisungen: msdn.microsoft.com/en-US/library/wkzf914z(v=vs. 80) ? Gibt es eine implizite Anlage in einigen Fällen?
    Diese Seite ist über raising ein Ereignis - die "server" - Seite, wie Sie waren. Anbringen eines event-handler ist der "client" - Seite.
    Sorry ich meinte link
    FYI, die aktualisierte behandeln und auslösen von Ereignissen abdeckt, was Paulus erwähnt, im code-Beispiel im Abschnitt "Event-Handler": AddHandler c.ThresholdReached, AddressOf c_ThresholdReached für VB.

    InformationsquelleAutor Jon Skeet

  2. 3

    In VB, wir haben zwei Methoden zum abonnieren der Fall Publisher Klasse.

    '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
    Warum ist nicht die Anlage Teil in diesen Anweisungen: link ? Gibt es eine implizite Anlage in einigen Fällen?

    InformationsquelleAutor adatapost

Schreibe einen Kommentar