Event - Raise Problem

  • VB.NET
  • .NET (FX) 4.5–4.8

Es gibt 6 Antworten in diesem Thema. Der letzte Beitrag () ist von ErfinderDesRades.

    Event - Raise Problem

    Es geht um Folgenden Code, bei dem
    das Event "Changedd" nicht ausgelöst wird.
    Eventuell kann mir jemand sagen, warum das nicht funktioniert.


    VB.NET-Quellcode

    1. Module Module1
    2. Private Sub Test_Changedd(Sender As BaseClass) Handles Test.Changedd
    3. Throw New Exception("yeah")
    4. End Sub
    5. Private WithEvents Test As A
    6. Class A : Inherits BaseClass
    7. Public Event Changedd As EventHandlerEx(Of BaseClass)
    9. Public Delegate Sub EventHandlerEx(Of T0)(Sender As T0)
    11. Protected Sub OnTest(se As BaseClass)
    12. RaiseEvent Changedd(se)
    13. End Sub
    15. Private bbool As Boolean = False
    16. Public Property Lol As Boolean
    17. Get
    18. Return bbool
    19. End Get
    20. Set(value As Boolean)
    21. If value = bbool Then Exit Property
    22. bbool = value
    23. End Set
    24. End Property
    25. End Class
    26. Public Class BaseClass
    28. End Class
    29. Private Sub Doit()
    30. Test = New A()
    31. Test.Lol = True
    32. End Sub
    33. Sub Main()
    34. Doit()
    35. Console.ReadKey()
    36. End Sub
    37. End Module

    Daniel Baumert schrieb:

    warum das nicht funktioniert.
    Nimm keine Module, nimm Klassen.
    Events greifen auf Instanzen von Klassen.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Daniel Baumert schrieb:

    Nope.
    Poste bitte mal Deinen überarbeiteten Code.
    Ansonsten so:

    VB.NET-Quellcode

    1. Public Class Form1
    3. Private WithEvents myTest As New Test
    4. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    5. myTest.SendEvent("bla")
    6. End Sub
    8. Private Sub TestEventhandler(sender As Object, e As MyEventArgs) Handles myTest.MyEvent
    9. MessageBox.Show(e.MyText)
    10. End Sub
    11. End Class

    VB.NET-Quellcode

    1. Public Class Test
    2. Public Event MyEvent As EventHandler(Of MyEventArgs)
    3. Public Sub New()
    4. End Sub
    6. Public Sub SendEvent(txt As String)
    7. RaiseEvent MyEvent(Me, New MyEventArgs(txt))
    8. End Sub
    9. End Class
    11. Public Class MyEventArgs
    12. Inherits EventArgs
    14. Private _MyText As String
    15. Public ReadOnly Property MyText As String
    16. Get
    17. Return _MyText
    18. End Get
    19. End Property
    21. Public Sub New(txt As String)
    22. _MyText = txt
    23. End Sub
    24. End Class
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    @Daniel Baumert

    RodFromGermany schrieb:

    Poste bitte mal Deinen überarbeiteten Code.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Daniel Baumert schrieb:

    Es geht um Folgenden Code, bei dem
    das Event "Changedd" nicht ausgelöst wird.
    Eventuell kann mir jemand sagen, warum das nicht funktioniert.
    na, du musstes halt auslösen
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Module Module1
    2. Private Sub Test_Changedd(ByVal Sender As BaseClass) Handles Test.Changedd
    3. Throw New Exception("yeah")
    4. End Sub
    5. Private WithEvents Test As A
    6. Class A : Inherits BaseClass
    7. Public Event Changedd As EventHandlerEx(Of BaseClass)
    9. Public Delegate Sub EventHandlerEx(Of T0)(ByVal Sender As T0)
    11. Protected Sub OnTest(ByVal se As BaseClass)
    12. RaiseEvent Changedd(se)
    13. End Sub
    15. Private bbool As Boolean = False
    16. Public Property Lol As Boolean
    17. Get
    18. Return bbool
    19. End Get
    20. Set(ByVal value As Boolean)
    21. If value = bbool Then Exit Property
    22. bbool = value
    23. OnTest(Me)
    24. End Set
    25. End Property
    26. End Class
    27. Public Class BaseClass
    29. End Class
    30. Private Sub Doit()
    31. Test = New A()
    32. Test.Lol = True
    33. End Sub
    34. Sub Main()
    35. Doit()
    36. Console.ReadKey()
    37. End Sub
    38. End Module

Facebook
Telefonspende