Gemeinsamen EventHandler für dynamisch erzeugte Objekte

  • VB.NET
  • .NET (FX) 4.0

Es gibt 11 Antworten in diesem Thema. Der letzte Beitrag () ist von RodFromGermany.

    Gemeinsamen EventHandler für dynamisch erzeugte Objekte

    Hallo,
    wie in der Überschrift schon steht will ich zur Laufzeit Objekte erstellen die ein Ereigniss auslösen welches
    in einem gemeinsamen Handler behandelt werden soll. Bekomms aber nicht hin X/

    Mein kleines Test-Programm beendet sich einfach ohne mir eine Fehlermeldung auszuspucken ?!?

    Das ganze soll eigentlich so weit gehen, dass ich verschiedene Objekte in die Liste lade die aber das gleiche
    Event besitzen, muss also auch das DirectCast wegbringen.
    Hoffe ich hab mich deutlich genug ausgedrückt :)

    Hier mal mein Code:


    VB.NET-Quellcode

    1. Imports System.Threading
    3. Public Class Form1
    5. Dim Objects As List(Of Object)
    6. Dim t As Test
    8. Private Sub Form1_Load( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    10. Objects.Add(New Test("AA"))
    12. Objects(0).Start()
    14. AddHandler DirectCast(Objects(0),Test).Ereigniss, AddressOf MyEventHandler
    16. End Sub
    18. Private Sub MyEventHandler(Msg As String)
    19. Debug.Print(Msg)
    20. End Sub
    22. End Class
    26. Public Class Test
    28. Private m_Name As String = ""
    29. Private myThread As Thread
    30. public Event Ereigniss(Msg As String)
    32. Public Sub New(Name As String)
    33. m_Name = Name
    34. End Sub
    36. Public Sub Start()
    37. myThread = New Thread(AddressOf DoWork)
    38. myThread.IsBackground = True
    39. myThread.Start()
    40. End Sub
    42. Private Sub DoWork()
    43. While true
    44. RaiseEvent Ereigniss(m_Name)
    45. Thread.Sleep(500)
    46. end while
    47. End Sub
    48. End Class

    Ja Stimmt. Fehler war auch weil ich nicht "NEW" List(Of benutzt habe.
    Habe jetzt mal 2 Objekte hinzugefügt, Funktioniert.

    Jetzt muss ich nur noch DirectCast loswerden weil ich mit verschiedenen Objekten arbeiten muss:

    VB.NET-Quellcode

    1. ​Imports System.Threading
    3. Public Class Form1
    5. Dim Objects As new List(Of Object)
    8. Private Sub Form1_Load( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    10. End Sub
    12. Private Sub MyEventHandler(Msg As String)
    13. Debug.Print(Msg)
    14. End Sub
    16. Private Sub Form1_Shown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shown
    17. Objects.Add(New Test("AA"))
    18. Objects.Add(New Test2("BB"))
    20. Objects(0).Start()
    21. Objects(1).start()
    23. AddHandler DirectCast(Objects(0),Test).Ereigniss, AddressOf MyEventHandler
    25. 'HIER FEHLERMELDUNG DA ICH TEST2 STATT TEST BENUTZEN MUSS
    26. AddHandler DirectCast(Objects(1),Test).Ereigniss, AddressOf MyEventHandler
    27. End Sub
    28. End Class
    32. Public Class Test
    34. Private m_Name As String = ""
    35. Private myThread As Thread
    36. public Event Ereigniss(Msg As String)
    38. Public Sub New(Name As String)
    39. m_Name = Name
    40. End Sub
    42. Public Sub Start()
    43. myThread = New Thread(AddressOf DoWork)
    44. myThread.IsBackground = True
    45. myThread.Start()
    46. End Sub
    48. Private Sub DoWork()
    49. While true
    50. RaiseEvent Ereigniss(m_Name)
    51. Thread.Sleep(500)
    52. end while
    53. End Sub
    55. End Class
    57. Public Class Test2
    59. Private m_Name As String = ""
    60. Private myThread As Thread
    61. public Event Ereigniss(Msg As String)
    63. Public Sub New(Name As String)
    64. m_Name = Name
    65. End Sub
    67. Public Sub Start()
    68. myThread = New Thread(AddressOf DoWork)
    69. myThread.IsBackground = True
    70. myThread.Start()
    71. End Sub
    73. Private Sub DoWork()
    74. While true
    75. RaiseEvent Ereigniss(m_Name)
    76. Thread.Sleep(500)
    77. end while
    78. End Sub
    79. End Class

    Uran schrieb:

    DirectCast loswerden weil ich mit verschiedenen Objekten arbeiten muss:
    Gib z.B. den beiden Klassen eine gemeinsame Basisklasse / Interface, in der minimal das Event drinsteht.
    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!

    Hi,
    habs mit einem Interface gelöst. Funktioniert perfekt!

    Hier der funktionierende Code (inkl. Ereignis richtig geschrieben :) )

    VB.NET-Quellcode

    1. Imports System.Threading
    3. 'Interface erstellen
    4. Public Interface myInterface
    5. Event Ereignis(Msg As String)
    6. End Interface
    8. Public Class Form1
    10. Dim Objects As new List(Of Object)
    12. Private Sub MyEventHandler(Msg As String)
    13. Debug.Print(Msg)
    14. End Sub
    16. Private Sub Form1_Shown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shown
    17. Objects.Add(New Test("AA"))
    18. Objects.Add(New Test2("BB"))
    19. Objects(0).Start()
    20. Objects(1).start()
    22. AddHandler DirectCast(Objects(0),myInterface).Ereignis, AddressOf MyEventHandler
    23. AddHandler DirectCast(Objects(1),myInterface).Ereignis, AddressOf MyEventHandler
    24. End Sub
    26. End Class
    28. Public Class Test
    30. '!!!
    31. Implements myInterface
    33. '!!!
    34. public Event Ereignis(Msg As String) Implements myInterface.Ereignis
    36. Private m_Name As String = ""
    37. Private myThread As Thread
    39. Public Sub New(Name As String)
    40. m_Name = Name
    41. End Sub
    43. Public Sub Start()
    44. myThread = New Thread(AddressOf DoWork)
    45. myThread.IsBackground = True
    46. myThread.Start()
    47. End Sub
    49. Private Sub DoWork()
    50. While true
    51. RaiseEvent Ereignis(m_Name)
    52. Thread.Sleep(500)
    53. end while
    54. End Sub
    56. End Class
    58. Public Class Test2
    60. Implements myInterface
    62. Public Event Ereignis(ByVal Msg As String) Implements myInterface.Ereignis
    64. Private m_Name As String = ""
    65. Private myThread As Thread
    66. public Event Ereigniss(Msg As String)
    68. Public Sub New(Name As String)
    69. m_Name = Name
    70. End Sub
    72. Public Sub Start()
    73. myThread = New Thread(AddressOf DoWork)
    74. myThread.IsBackground = True
    75. myThread.Start()
    76. End Sub
    78. Private Sub DoWork()
    79. While true
    80. RaiseEvent Ereignis(m_Name)
    81. Thread.Sleep(1000)
    82. end while
    83. End Sub
    85. End Class

    Uran schrieb:

    VB.NET-Quellcode

    1. Event Ereignis(Msg As String)
    In .NET haben Events üblicheerweise die Parameter sender As Object, da kannst Du beim Aufruf ein Me reinschreiben und entweder e As EventArgs oder e As MyEventArgs, wobei MyEventArgs von EventArgs abgeleitet ist. Dies kannst Du verwenden, wenn Du Daten transportieren willst, gim Deinen MyEventArgs die Property Name As String.
    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!

    Dann vergiss bei Deiner Sonntagslektüre nicht, Dich über OPTION STRICT ON zu informieren. Das ist mitunter grausam, was Du da gebastelt hast.
    Die Unendlichkeit ist weit. Vor allem gegen Ende. ?(
    Manche Menschen sind gar nicht dumm. Sie haben nur Pech beim Denken. 8o

    Meinst du mit Grausam das?

    VB.NET-Quellcode

    1. Objects(1).start()​


    Hier bekomm ich einen Fehler wenn OPTION STRICT ON - lässt spätes Binden nicht zu

    ICH weiß ja dass jedes meiner Objekte über Start() verfügt, der Compiler nicht...
    Wie kann man Erfragen ob ein unbekanntes Objekt eine bestimmte Methode besitzt
    bzw. wie kann man drauf zugreifen?

    Uran schrieb:

    lässt spätes Binden nicht zu
    Weil Deine Variablen als Object deklariert sind, Object weiß nix von Deinen Properties / vents. Deklarier sie als myInterface und pack ggf. noch ein paar Deklarationen in Deine Event-Klasse rein.
    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!

Facebook