Event weiterleiten an andere Klasse

  • VB.NET

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

    Event weiterleiten an andere Klasse

    Hallo zusammen,

    kurze Frage, ich möchte das meine Document Events auch in der Application verfügbar sind. Gibt es eine andere Möglichkeit als meine Lösung, finde ich nicht so schön, dass ich die Events zwei mal deklarieren muss.


    VB.NET-Quellcode

    1. Public Class EQ_Document
    2. Public Property FullFileName As String = ""
    3. End Class
    5. Public Class EQ_Documents
    6. Inherits System.Collections.ObjectModel.KeyedCollection(Of String, EQ_Document)
    8. Public Event OnDocumentClose(BeforeOrAfter As EventTimingEnum)
    9. Public Event OnDocumentOpen(BeforeOrAfter As EventTimingEnum, ByRef Document As EQ_Document)
    11. Protected Overrides Function GetKeyForItem(item As EQ_Document) As String
    12. Return item.FullFilename
    13. End Function
    15. Protected Overrides Sub InsertItem(index As Integer, item As EQ_Document)
    16. RaiseEvent OnDocumentOpen(EventTimingEnum.After, item)
    17. MyBase.InsertItem(index, item)
    18. RaiseEvent OnDocumentOpen(EventTimingEnum.After, item)
    19. End Sub
    21. Protected Overrides Sub RemoveItem(index As Integer)
    22. RaiseEvent OnDocumentClose(EventTimingEnum.Before)
    23. MyBase.RemoveItem(index)
    24. RaiseEvent OnDocumentClose(EventTimingEnum.After)
    25. End Sub
    27. End Class
    30. Public Class EQ_Application
    31. Public Event OnDocumentClose(BeforeOrAfter As EventTimingEnum)
    32. Public Event OnDocumentOpen(BeforeOrAfter As EventTimingEnum, ByRef Document As EQ_Document)
    34. Private WithEvents Documents As New EQ_Documents
    36. Private Sub Documents_OnDocumentClose(BeforeOrAfter As EventTimingEnum) Handles Documents.OnDocumentClose
    37. RaiseEvent OnDocumentClose(BeforeOrAfter)
    38. End Sub
    40. Private Sub Documents_OnDocumentOpen(BeforeOrAfter As EventTimingEnum, ByRef Document As EQ_Document) Handles Documents.OnDocumentOpen
    41. RaiseEvent OnDocumentOpen(BeforeOrAfter, Document)
    42. End Sub
    43. End Class
    "Es ist absolut möglich, dass jenseits der Wahrnehmung unserer Sinne ungeahnte Welten verborgen sind." — Albert Einstein
    "Wenn die Macht der Liebe die Liebe zur Macht übersteigt, erst dann wird die Welt endlich wissen, was Frieden heißt." — Jimi Hendrix

    FredM schrieb:

    finde ich nicht so schön, dass ich die Events zwei mal deklarieren muss.
    Doch, die musst Du fein säuberlich durchreichen.
    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!

    @RodFromGermany

    ich hab mich auch erst verlesen, kann es sein das er nur die Events die beide Klassen enthalten nicht zweimal deklarieren will?

    VB.NET-Quellcode

    1. Public Class Foo
    2. Inherits MyClassBase
    4. Public Function Bar() As Boolean
    5. Return Foo()
    6. End Function
    7. End Class
    9. Public MustInherit Class MyClassBase
    10. Public Function Foo() As Boolean
    11. Return True
    12. End Function
    13. End Class


    ich dachte da an soetwas.

    Normalerweise erstellt man in der Basisklasse ein Event.
    Zusätzlich wird eine überschreibbare Methode mit OnEventname erstellt welche ein RaiseEvent auf das erstelle Event ausführt.

    Bsp.:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Class Form1
    3. Private WithEvents cls As New Bar
    5. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    6. AddHandler cls.Hallo, AddressOf Hallo
    7. cls.Test = "Hallo"
    8. End Sub
    10. Private Sub Hallo(ByVal sender As Object, ByVal e As EventArgs)
    11. MessageBox.Show("Hallo")
    12. End Sub
    13. End Class
    15. Public Class Foo
    16. Public Event Hallo As EventHandler(Of EventArgs)
    18. Private _test As String
    19. Public Property Test() As String
    20. Get
    21. Return _test
    22. End Get
    23. Set(ByVal value As String)
    24. _test = value
    25. OnHallo(Me, New EventArgs)
    26. End Set
    27. End Property
    30. Protected Overridable Sub OnHallo(ByVal sender As Object, ByVal e As EventArgs)
    31. RaiseEvent Hallo(sender, e)
    32. End Sub
    33. End Class
    35. Public Class Bar : Inherits Foo
    37. Protected Overrides Sub OnHallo(ByVal sender As Object, ByVal e As System.EventArgs)
    38. MyBase.OnHallo(sender, e)
    39. End Sub
    41. End Class


    lg
    ScheduleLib 0.0.1.0
    Kleine Lib zum Anlaufen von Code zu bestimmten Zeiten

    @ident: ich dachte an so was:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Class Form1
    2. Private WithEvents tt1 As New test1
    3. Public Sub xxx() Handles tt1.EventTest1
    4. MessageBox.Show("durchgereichter Event")
    5. End Sub
    6. End Class
    8. Public Class test1
    9. Public Event EventTest1()
    10. Private WithEvents tt2 As New test2
    11. Public Sub xxx() Handles tt2.EventTest2
    12. RaiseEvent EventTest1()
    13. End Sub
    14. End Class
    16. Public Class test2
    17. Public Event EventTest2()
    18. Public Sub xxx()
    19. RaiseEvent EventTest2()
    20. End Sub
    21. 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!

Facebook