Zuweisung eines Events an einen Event

19/08/2008 - 01:56 von Peter Ruprecht | Report spam
Hallo NG,

entschuldigt den dummen Titel, aber so sieht es aus für mich. Habe einen
Code von c# in vb.net online konvertieren lassen. Nur an der mit ***
markierten Stelle funktioniert die Zuweisung von = StatusChange nicht. Wie
muß das richtigerweise in vb.net aussehen?

Delegate Sub StatusChangedEventHandler(ByVal sender As Object, ByVal e
As StatusChangedEventArgs)

Public Shared Event StatusChanged As StatusChangedEventHandler
Private Shared e As StatusChangedEventArgs

' This is called when we want to raise the StatusChanged event
Public Shared Sub OnStatusChanged(ByVal e As StatusChangedEventArgs)
Dim statusHandler As StatusChangedEventHandler = StatusChanged '
*****
If Not (statusHandler Is Nothing) Then
' Invoke the delegate
statusHandler(Nothing, e)
End If
End Sub 'OnStatusChanged


Beste Grüße!
 

Lesen sie die antworten

#1 Gerold Mittelstädt
19/08/2008 - 03:11 | Warnen spam
Hallo,

Peter Ruprecht schrieb:
entschuldigt den dummen Titel, aber so sieht es aus für mich. Habe einen
Code von c# in vb.net online konvertieren lassen. Nur an der mit ***
markierten Stelle funktioniert die Zuweisung von = StatusChange nicht. Wie
muß das richtigerweise in vb.net aussehen?



Zeig mal das Original

An sich so:

Public Event StatusChanged(e As StatusChangedEventArgs)

' This is called when we want to raise the StatusChanged event
Private Sub OnStatusChanged(ByVal e As StatusChangedEventArgs)



RaiseEvent StatusChanged(e)

End Sub



Wobei man sich da die Prozedur auch schenken kann und an Ort und Stelle
gleich RaiseEvent aufruft.


Viele Grüße!

Ähnliche fragen