Property List(Of T): Bei Änderung neu zeichnen

  • VB.NET
  • .NET (FX) 4.0

Es gibt 7 Antworten in diesem Thema. Der letzte Beitrag () ist von tom87.

    Property List(Of T): Bei Änderung neu zeichnen

    Hallo :) ,

    Ich habe mir neulich ein kleines UserControl gemacht, welches die Aufgabe hat ein Tortendiagramm zu zeichnen.
    Nun gibt es dort eine Property, die die Aufgabe hat alle Abschnitte des Diagramms in einer Liste zusammen zu fassen:

    VB.NET-Quellcode

    1. ​
    2. Private mItems As New List(Of cPieChartItem)
    4. <EditorBrowsable(EditorBrowsableState.Always), Browsable(True), Bindable(True), _
    5. DesignerSerializationVisibility(DesignerSerializationVisibility.Visible)> _
    6. Public Property Items As List(Of cPieChartItem) 'Besagte Property
    8. Get
    9. Return mItems 'Liste zurückgeben
    10. End Get
    12. Set(ByVal Value As List(Of cPieChartItem))
    13. If mItems IsNot Value Then 'Überprüfen ob nicht die selbe Liste gesetzt wurde, um unnötiges aktualisieren zu verhindern
    14. mItems = Value 'Neue Liste setzten
    15. Me.Invalidate() 'Neu zeichnen
    16. End If
    17. End Set
    19. End Property


    Wenn ich jetzt die Auflistung (UserControl.Items.Add()) z.B. durch den Designer ändere, zeichnet sich das Control nicht neu. Scheinbar hat das "Me.Invalidate()" im Set-Block keinerlei Auswirkungen, wenn es sich um eine Liste handelt, denn nicht die Liste selbst wird komplett ausgetauscht, sondern nur ihre Auflistung.

    Leider stellt das System.Collections.Generic.List(Of T)-Objekt keine Events bereit, die ich nutzen könnte, sofern die Auflistung geändert wurde.
    Mehr (einfache) Lösungen fallen mir auf die Schnelle nicht ein.

    IDE: Visual Studio Express 2013 (Windows Desktop) auf Windows 7 E. x64
    .Net Framework: 4.0
    (Falles weitere Informationen gebraucht werden, bitte bescheid geben)


    Hier noch der Sourcecode für die Klasse cPieChartItem:

    VB.NET-Quellcode

    1. ​
    2. Option Strict On
    4. Imports System.Drawing
    6. Public Class cPieChartItem
    8. Public Property Color As Color = Drawing.Color.Red 'Farbe des Kreissegments
    9. Public Property Text As String = "cPieChartItem" 'Text/Beschreibung für die Legende
    10. Public Property Value As Single = 90 'Wert
    12. Public Sub New(ByVal _Color As Color, ByVal _Text As String, ByVal _Value As Single) 'Sub New
    13. Color = _Color
    14. Text = _Text
    15. Value = _Value
    17. End Sub
    19. Public Sub New() 'Sub New für den Designer
    20. End Sub
    22. End Class


    Ich habe bereits im Internet gesucht und keine Lösung gefunden, welche mir geholfen hat. Vielleicht hat jemand von euch hilfreiche Links oder weiß selbst eine Art auf die man die Problematik sauber lösen könnte ;)
    Ich bin mir auch bewusst, dass es bereits solche Controls gibt, dennoch bitte ich auf die Fragestellung einzugehen :)

    Ich bedanke mich schon einmal im Voraus, freue mich auf eure Antworten und wünsche allen einen schönen Restsonntag :)

    MfG

    tom87 schrieb:

    durch den Designer ändere
    Was willst Du im Designer angezeigt haben?
    Was willst Du zur Runtime angezeigt haben?
    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!

    Vielen Dank für die Antwort!

    Vollzitat des direkten Vorposts an dieser Stelle entfernt ~VaporiZed

    Zur Runtime & im Designer soll er das Control IMMER neu zeichnen, sobald sich bei der Property "Items" die Auflistung verändert hat.

    MfG

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

    Hi
    lass eine Klasse von System.Collections.ObjectModel.Collection(Of T) erben und überschreibe InsertItem, RemoveItem, SetItem und ClearItems. Anschließend fügst du einen Konstruktor hinzu, der das Control bereitstellt und teilst diesem über assemblyweite (Friend) Methoden mit, wann eine solche Änderung vollzogen wurde (z.B. ein SubmitItemInserted, SubmitItemRemoved, SubmitItemSet, SubmitClearing, SubmitCleared). Zusätzlich teilst du hierbei jeweils benötigte Informationen, wie Indices oder Werte (bei Removed auch alte, InsertItem, usw. sind die Methoden, die genau das machen, d.h. du kannst vorher noch herausfinden, welches das alte Element bei RemoveItem und SetItem war - damit kannst du das Maximum neu berechnen, ohne alle Elemente durchzugehen). Anschließend führst du noch Methoden OnItemInserted, OnItemRemoved, OnItemSet, usw. ein, die standardmäßig ein Neuberechnen des Maximums vornehmen, sofern es an alle Elemente angepasst werden soll und invalidierst das Control.
    Statt der List(Of T) bietest du dann eine Instanz genau dieser Klasse an. Die Instanz kann nicht getauscht werden, sondern wird im Konstruktor zugewiesen.

    Gruß
    ~blaze~

    tom87 schrieb:

    soll er das Control IMMER neu zeichnen
    auch wenn es ggf. nicht sinnvoll ist?
    Beim Chart-Control werden Dummy-Daten mit den gegebenen Properties dargestellt. Willst Du so was machen?
    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!

    Vielen Dank für Eure Antworten!

    Ich habe es so umgesetzt wie blaze es vorgeschlagen hat, auch wenn ich nicht alles 100%ig verstanden habe, was er gesagt hat, so bin ich doch zu einem funktionierendem Ergebnis gekommen; so wie ich es gewollt hatte!
    Zudem wäre ich jemanden sehr verbunden, der sich mit seinem geschulten Auge noch einmal kurz die Zeit nimmt, um sich meinen Quellcode anzuschauen und auf seine Qualität zu untersuchen, funktionieren tut es jedoch, wie gesagt ;).

    Ich hab's so gemacht:
    Spoiler anzeigen

    im cPieChart selbst (Ausschnitt):

    VB.NET-Quellcode

    1. '[...]
    2. Private WithEvents mItems As New cPieChartList 'Das Item selbst
    4. <EditorBrowsable(EditorBrowsableState.Always), Browsable(True), Bindable(True), _
    5. DesignerSerializationVisibility(DesignerSerializationVisibility.Visible)> _
    6. Public Property Items As cPieChartList 'Liste für die Kreissegmente
    8. Get
    9. Return mItems 'Liste zurückgeben
    10. End Get
    12. Set(ByVal Value As cPieChartList)
    13. If mItems IsNot Value Then
    14. mItems = Value 'Liste setzten
    15. Me.Invalidate() 'Neu zeichnen
    16. End If
    17. End Set
    19. End Property
    21. 'Hier entsprechende Events...
    22. Private Sub mItems_ItemChanged(sender As Object, e As cPieChartItemChangedEventArgs) Handles mItems.ItemChanged
    23. Me.Invalidate() 'Neu zeichnen, wenn die Items irgendwie geändert wurden
    25. End Sub
    27. Private Sub mItems_ItemsCleared(sender As Object, e As EventArgs) Handles mItems.ItemsCleared
    28. Me.Invalidate() 'Neu zeichnen, wenn ALLE Items entfernt wurden
    30. End Sub
    32. '[...]


    Die cPieChartList die von dem System.Collections.ObjectModel.Collection(Of T) erbt (Hier nochmal ein großes Danke! Da wäre ich nie drauf gekommen!):

    VB.NET-Quellcode

    1. Option Strict On
    3. Public Class cPieChartList
    5. Inherits System.Collections.ObjectModel.Collection(Of cPieChartItem) 'Klasse erben
    7. Friend Event ItemChanged(ByVal sender As Object, ByVal e As cPieChartItemChangedEventArgs) 'Meine kleinen...
    8. Friend Event ItemsCleared(ByVal sender As Object, ByVal e As EventArgs) '... beiden Events
    10. Public Enum ItemOperation 'Eventkram...
    11. Insert = 1
    12. Remove = 2
    13. _Set = 3
    14. ItemProperty = 4
    15. End Enum
    17. Private Sub OnPropertyChanged(ByVal sender As Object, ByVal e As EventArgs) 'Sub der handelt wenn sich die Propertys eines Items ändern
    18. RaiseEvent ItemChanged(Me, New cPieChartItemChangedEventArgs(CType(sender, cPieChartItem), -1, ItemOperation.ItemProperty)) 'Event: Item geändert
    20. End Sub
    22. Protected Overrides Sub InsertItem(index As Integer, item As cPieChartItem) 'Neues Item...
    23. AddHandler item.PropertyChanged, AddressOf OnPropertyChanged 'Eventhandeler für Item-Changed hinzufügen
    25. MyBase.InsertItem(index, item) 'Item hinzufügen
    26. RaiseEvent ItemChanged(Me, New cPieChartItemChangedEventArgs(item, index, ItemOperation.Insert)) 'Event: Item hinzugefügt
    28. End Sub
    30. Protected Overrides Sub RemoveItem(index As Integer) 'Item entfernen...
    31. RemoveHandler Me.Items(index).PropertyChanged, AddressOf OnPropertyChanged 'Eventhandler für Item-Changed entfernen
    33. MyBase.RemoveItem(index) 'Item entfernen
    34. RaiseEvent ItemChanged(Me, New cPieChartItemChangedEventArgs(Nothing, index, ItemOperation.Remove)) 'Event: Item entfernt
    36. End Sub
    38. Protected Overrides Sub SetItem(index As Integer, item As cPieChartItem) 'Item setzten...
    39. If Items.Contains(item) = False Then 'Wenn das Item noch nicht in der Auflistung ist:
    40. AddHandler item.PropertyChanged, AddressOf OnPropertyChanged 'Eventhandler für Item-Changed hinzufügen
    41. End If
    43. MyBase.SetItem(index, item) 'Item setzten
    44. RaiseEvent ItemChanged(Me, New cPieChartItemChangedEventArgs(item, index, ItemOperation._Set)) 'Event: Item gesetzt
    46. End Sub
    48. Protected Overrides Sub ClearItems()
    49. For Each i In Items 'Alle Items durchgehen
    50. RemoveHandler i.PropertyChanged, AddressOf OnPropertyChanged '... und die Events entfernen
    51. Next
    53. MyBase.ClearItems() 'Items entfernen
    54. RaiseEvent ItemsCleared(Me, New EventArgs) 'Event: Alle Items entfernt
    56. End Sub
    58. Public Sub New() 'Sub New
    60. End Sub
    62. End Class


    und das cPieChartItem:

    VB.NET-Quellcode

    1. Option Strict On
    3. Imports System.Drawing
    5. Public Class cPieChartItem
    7. Private mColor As Color = Drawing.Color.Red 'Farbe
    8. Private mText As String = "cPieChartItem" 'Text des Kreisstückes für die Legende
    9. Private mValue As Single = 90 'Wert
    11. Friend Event PropertyChanged(ByVal sender As Object, ByVal e As EventArgs) 'Event welches ausgelöst wird, wenn eine Property verändert wird
    13. Public Property Color As Color
    15. Get
    16. Return mColor 'Farbe zurückgeben
    17. End Get
    19. Set(ByVal Value As Color)
    20. If mColor <> Value Then
    21. mColor = Value 'Farbe setzten &
    22. RaiseEvent PropertyChanged(Me, New EventArgs) '...Event
    23. End If
    25. End Set
    27. End Property
    29. Public Property Text As String
    31. Get
    32. Return mText 'Text zurückgeben
    33. End Get
    35. Set(ByVal Value As String)
    36. If mText <> Value Then
    37. mText = Value 'Text setzten &
    38. RaiseEvent PropertyChanged(Me, New EventArgs) '...Event
    39. End If
    40. End Set
    42. End Property
    44. Public Property Value As Single
    46. Get
    47. Return mValue 'Wert zurückgeben
    48. End Get
    50. Set(ByVal Value As Single)
    51. If mValue <> Value Then
    52. mValue = Value 'Wert setzten &
    53. RaiseEvent PropertyChanged(Me, New EventArgs) '...Event
    54. End If
    55. End Set
    57. End Property
    59. Public Sub New(ByVal _Color As Color, ByVal _Text As String, ByVal _Value As Single) 'Sub New
    60. Color = _Color
    61. Text = _Text
    62. Value = _Value
    64. End Sub
    66. Public Sub New() 'Sub New ohne Args
    68. End Sub
    70. End Class


    Sowie die cPieChartItemEventArgs:

    VB.NET-Quellcode

    1. Option Strict On
    3. Public Class cPieChartItemChangedEventArgs
    5. Inherits EventArgs
    7. Private mItem As cPieChartItem
    8. Private mIndex As Integer
    9. Private mOperation As cPieChartList.ItemOperation
    11. Public ReadOnly Property Items As cPieChartItem
    12. Get
    13. Return mItem
    14. End Get
    15. End Property
    17. Public ReadOnly Property Index As Integer
    18. Get
    19. Return mIndex
    20. End Get
    21. End Property
    23. Public ReadOnly Property Operation As cPieChartList.ItemOperation
    24. Get
    25. Return mOperation
    26. End Get
    27. End Property
    29. Public Sub New(ByVal _Item As cPieChartItem, ByVal _Index As Integer, ByVal _Operation As cPieChartList.ItemOperation)
    30. mItem = _Item
    31. mIndex = _Index
    32. mOperation = _Operation
    34. End Sub
    36. End Class




    Nochmal Vielen Dank an Blaze!
    Bilder

    • piechart.PNG

      35,34 kB, 773×300, 80 mal angesehen

    @tom87 Das mit dem AddHandler versteh ich nicht ganz. Wieso machst du das?
    So klappt es doch schon.
    Nebenbei sollte der Klassename mit einem Großbuchstaben beginnen. (Macht man in .NET halt so :) )

    Code

    VB.NET-Quellcode

    1. Public Class cPieChartList
    2. Inherits System.Collections.ObjectModel.Collection(Of cPieChartItem) 'Klasse erben
    3. Friend Event ItemChanged(ByVal sender As Object, ByVal e As cPieChartItemChangedEventArgs) 'Meine kleinen...
    4. Friend Event ItemsCleared(ByVal sender As Object, ByVal e As EventArgs) '... beiden Events
    6. Public Enum ItemOperation
    7. Insert = 1
    8. Remove = 2
    9. _Set = 3
    10. ItemProperty = 4
    11. End Enum
    13. Protected Overrides Sub InsertItem(index As Integer, item As cPieChartItem) 'Neues Item...
    14. MyBase.InsertItem(index, item) 'Item hinzufügen
    15. RaiseEvent ItemChanged(Me, New cPieChartItemChangedEventArgs(item, index, ItemOperation.Insert)) 'Event: Item hinzugefügt
    16. End Sub
    17. Protected Overrides Sub RemoveItem(index As Integer) 'Item entfernen...
    18. MyBase.RemoveItem(index) 'Item entfernen
    19. RaiseEvent ItemChanged(Me, New cPieChartItemChangedEventArgs(Nothing, index, ItemOperation.Remove)) 'Event: Item entfernt
    20. End Sub
    21. Protected Overrides Sub SetItem(index As Integer, item As cPieChartItem) 'Item setzten...
    22. MyBase.SetItem(index, item) 'Item setzten
    23. RaiseEvent ItemChanged(Me, New cPieChartItemChangedEventArgs(item, index, ItemOperation._Set)) 'Event: Item gesetzt
    24. End Sub
    25. Protected Overrides Sub ClearItems()
    26. MyBase.ClearItems() 'Items entfernen
    27. RaiseEvent ItemsCleared(Me, New EventArgs) 'Event: Alle Items entfernt
    28. End Sub
    29. End Class

Facebook
Telefonspende