auf List(of).add reagieren

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

Es gibt 3 Antworten in diesem Thema. Der letzte Beitrag () ist von KingTimon.

    auf List(of).add reagieren

    Sehr geehrte Community,

    mir hat sich gerade eine interessante Frage gestellt.

    Ich habe eine Property, die sieht folgendermaßen aus:

    VB.NET-Quellcode

    1. ​Public Property [Elements] As New List(Of FileComponents.Element)

    Diese Elemente sind dann für das Zeichnen eines Controls zuständig, daher benötigt mein Control ein .Invalidate, sobald der Liste ein Element zugefügt oder entfernt wurde.

    Ich hab schon probiert, ob "Public WithEvents" bei einer List(of ) funktioniert - leider erfolglos. Und mmn reicht es auch nicht, ein Get/Set hinzuzufügen, da die Liste ja die gleiche bleibt und nur verändert wird...

    Wie würdet ihr hier vorgehen? Wie kann ich ein Event auslösen, sobald ein Element geaddet/entfernt wurde?

    Soll ich mit einer eigenen Funktion anstatt mit Elements.add arbeiten?

    Mit freundlichen Grüßen
    Auf der Suche nach Coding-Kursen auf Lence.at

    Nur dass die Events der ObservableCollection äußerst unhandlich zu handhaben sind. Und leider gibts auch ein paar Tücken, wenn man z.B. an der Liste die Clear-Methode aufruft, denn man hat keine Möglichkeit, an die entfernten Items heranzukommen.
    Deshalb hab ich eine Hilfs-Klasse für den Kram geschrieben:

    VB.NET-Quellcode

    1. Public Class ItemEventArgs(Of T)
    2. Inherits EventArgs
    4. Dim _Item As T
    5. Public ReadOnly Property Item As T
    6. Get
    7. Return _Item
    8. End Get
    9. End Property
    11. Public Sub New(NewItem As T)
    12. _Item = NewItem
    13. End Sub
    15. End Class
    17. Public Class TypedObservableCollection(Of T)
    18. Inherits System.Collections.ObjectModel.ObservableCollection(Of T)
    20. 'Wird ausgelöst, wenn ein Element hinzugefügt wurde.
    21. Public Event ItemAdded As EventHandler(Of ItemEventArgs(Of T))
    22. Protected Overridable Sub OnItemAdded(Item As T)
    23. RaiseEvent ItemAdded(Me, New ItemEventArgs(Of T)(Item))
    24. End Sub
    26. 'Wird ausgelöst, wenn ein Element entfernt wurde.
    27. Public Event ItemRemoved As EventHandler(Of ItemEventArgs(Of T))
    28. Protected Overridable Sub OnItemRemoved(Item As T)
    29. RaiseEvent ItemRemoved(Me, New ItemEventArgs(Of T)(Item))
    30. End Sub
    32. 'Wird ausgelöst, wenn sich die Liste verändert hat.
    33. Public Event TypedCollectionChanged As EventHandler
    34. Protected Overridable Sub OnTypedCollectionChanged()
    35. RaiseEvent TypedCollectionChanged(Me, EventArgs.Empty)
    36. End Sub
    38. 'Die Implementierung in der ObservableCollection-Klasse sieht so aus.
    39. Protected Overrides Sub ClearItems()
    40. CheckReentrancy()
    41. MyBase.ClearItems()
    42. OnPropertyChanged("Count")
    43. OnPropertyChanged("Item[]")
    44. OnCollectionReset() 'Hier wird nur das CollectionChanged-Event mit Action=Reset ausgelöst.
    45. End Sub
    46. 'Hier wird zusätzlich das ItemRemoved-Event für jedes Element ausgelöst.
    47. Protected NotOverridable Overrides Sub ClearItems()
    48. CheckReentrancy()
    49. Dim OldItems = Items.ToArray 'Kopie
    50. MyBase.ClearItems() 'Überschriebene Methode ausführen, damit die Elemente wirklich gelöscht werden und die bestehenden Events korrekt ausgelöst werden.
    51. 'Eigene Events auslösen
    52. For Each In OldItems
    53. OnItemRemoved(i)
    54. Next
    55. OnTypedCollectionChanged()
    56. End Sub
    58. 'Hier werden die meisten Fälle abgedeckt.
    59. Protected Overrides Sub OnCollectionChanged(e As System.Collections.Specialized.NotifyCollectionChangedEventArgs)
    60. MyBase.OnCollectionChanged(e)
    61. Select Case e.Action
    62. Case Specialized.NotifyCollectionChangedAction.Add
    63. For Each i As T In e.NewItems
    64. OnItemAdded(i)
    65. Next
    66. OnTypedCollectionChanged()
    67. Case Specialized.NotifyCollectionChangedAction.Remove
    68. For Each i As T In e.OldItems
    69. OnItemRemoved(i)
    70. Next
    71. OnTypedCollectionChanged()
    72. Case Specialized.NotifyCollectionChangedAction.Replace
    73. If Not e.NewItems.Count = e.OldItems.Count Then
    74. 'Sollte eigentlich nie passieren, aber für den Fall, dass sich irgendwo ein Bug eingeschlichen hat, wird man dadurch drauf aufmerksam.
    75. Throw New NopeException("Beim Ersetzen muss die Anzahl an entfernten Elementen gleich der Anzahl an hinzugefügten Elementen sein.")
    76. End If
    77. For Each i As T In e.OldItems
    78. OnItemRemoved(i)
    79. Next
    80. For Each i As T In e.NewItems
    81. OnItemAdded(i)
    82. Next
    83. OnTypedCollectionChanged()
    84. Case Specialized.NotifyCollectionChangedAction.Reset
    85. OnTypedCollectionChanged()
    86. Case Specialized.NotifyCollectionChangedAction.Move
    87. 'Bei Move sollten keine Elemente entfernt oder hinzugefügt worden sein.
    88. OnTypedCollectionChanged()
    89. End Select
    90. End Sub
    92. End Class


    Ein ganz simples Verwendungsbeispiel würde dann so aussehen:

    VB.NET-Quellcode

    1. Public Class CustomControl
    3. Public Event Invalidated()
    4. Protected Overridable Sub OnInvalidated()
    5. RaiseEvent Invalidated()
    6. End Sub
    8. Public Property Owner As CustomControl = Nothing
    10. Dim WithEvents _Children As New TypedObservableCollection(Of CustomControl)
    11. Public ReadOnly Property Children As TypedObservableCollection(Of CustomControl)
    12. Get
    13. Return _Children
    14. End Get
    15. End Property
    16. Private Sub Children_ItemAdded(sender As Object, e As ItemEventArgs(Of CustomControl)) Handles _Children.ItemAdded
    17. e.Item.Owner = Me
    18. AddHandler e.Item.Invalidated, AddressOf OnInvalidated
    19. End Sub
    20. Private Sub Children_ItemRemoved(sender As Object, e As ItemEventArgs(Of CustomControl)) Handles _Children.ItemRemoved
    21. e.Item.Owner = Nothing
    22. RemoveHandler e.Item.Invalidated, AddressOf OnInvalidated
    23. End Sub
    24. Private Sub Children_TypedCollectionChanged(sender As Object, e As EventArgs) Handles _Children.TypedCollectionChanged
    25. 'Da fällt mir jetzt gerade kein Beispiel ein.
    26. End Sub
    28. End Class

    Man muss sich um nichts mehr kümmern.
    "Luckily luh... luckily it wasn't poi-"
    -- Brady in Wonderland, 23. Februar 2015, 1:56
    Desktop Pinner | ApplicationSettings | OnUtils

    Vielen Dank @Counterbug und @Niko Ortner für eure Hilfe!
    Im Prinzip benötige ich die Funktion nur dazu, ein Control zu Invalidaten, daher danke für den Tipp mit ObservableCollection<t>.
    Auf der Suche nach Coding-Kursen auf Lence.at

Facebook
Telefonspende