Gleiches Event bei mehreren Klassen

  • VB.NET

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

    Gleiches Event bei mehreren Klassen

    Hi,

    mal eine Frage: ich habe z.B. 2 Klassen und möchte, dass von beiden die Arbeit "mitgeloggt" wird, also hier mal was simples:

    VB.NET-Quellcode

    1. Class Form1
    2. Dim WithEvents a As New ClassA
    4. Sub Form1_Load(...) Handles Me.Load
    5. a.Work()
    6. End Sub
    8. Sub Log(text As String) Handles a.Log
    9. MsgBox(text)
    10. End Sub
    11. End Class
    13. Class ClassA
    14. Dim WithEvents b As New ClassB
    15. Event Log(text As String)
    17. Sub Work()
    18. RaiseEvent Log("a")
    19. b.Work()
    20. End Sub
    22. Sub b_Log(text As String) Handles b.Log
    23. RaiseEvent Log(text)
    24. End Sub
    25. End Class
    27. Class ClassB
    28. Event Log(text As String)
    30. Sub Work()
    31. For i As Integer = 1 to 3
    32. RaiseEvent Log(i)
    33. Thread.Sleep(1000)
    34. Next
    35. End Sub
    36. End Class


    Geht es auch irgendwie anders, dass ich die Arbeit, die in ClassB durchgeführt mitloggen kann, ohne nochmal das selbe Event zu erstellen und quasi auf eine "Weiterleitung" zum Log-Event von ClassA zu verzichten? Weiß grad nicht, wie ich das genau erklären soll, aber ich hoffe man kann am Code erkennen was ich meine.

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Kraizy“ ()

    Wie wäre es, wenn Du Dir eine eigene LogClass erstellst. ClassA und ClassB binden diesen Logger dann ein.

    VB.NET-Quellcode

    1. Public Class Form1
    2. Private WithEvents _log As New LogClass
    3. Private _classA As New ClassA(_log)
    4. Private _classB As New ClassB(_log)
    6. Private Sub _log_Loging(s As String) Handles _log.Loging
    7. MessageBox.Show(s)
    8. End Sub
    10. Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    11. _classA.DoWork()
    12. End Sub
    14. Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
    15. _classB.DoWork()
    16. End Sub
    17. End Class


    VB.NET-Quellcode

    1. Public Class ClassA
    2. Private _logger As LogClass
    4. Public Sub New(ByVal logger As LogClass)
    5. _logger = logger
    6. End Sub
    8. Public Sub DoWork()
    9. _logger.Log("test")
    10. End Sub
    11. End Class


    VB.NET-Quellcode

    1. Public Class ClassB
    2. Private _logger As LogClass
    4. Public Sub New(ByVal logger As LogClass)
    5. _logger = logger
    6. End Sub
    8. Public Sub DoWork()
    9. _logger.Log(CStr(3))
    10. End Sub
    11. End Class
    Die Unendlichkeit ist weit. Vor allem gegen Ende. ?(
    Manche Menschen sind gar nicht dumm. Sie haben nur Pech beim Denken. 8o

    Leize sie z.B. von einer gemeinsamen Basisklasse ab, in der Du dies behandelst.
    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!