DataGridView und BindingList verbinden

  • VB.NET

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

    DataGridView und BindingList verbinden

    Beim suchen nach Lösungen, meine Datagridview an eine BindingList(of T) zu binden, welche sich auch selbstständig updaten sollte, bin ich auf diesen Thread gestoßen.
    Soweit funktioniert das ganze auch, allerdings nur solange wie nicht all zu viele PropertyChanged Events gleichzeitig reinflattern.
    Testweise habe ich eine Klasse erstellt, die über einen eigenen Timer, einmal pro Sekunde einen Wert erhöht und dann das Event auslöst.
    Bereits bei 5 Elementen, geschmissen zur gleichen Zeit in die BindingList(of T), verhaspelt sich die UI.
    Sporadisch wird mal hier, mal da aktualisiert.
    Bei Auswahl der Zellen / srollen werden alle sofort aktualisiert.


    Hin und wieder kommt auch ein Fehler:


    Benutze ich vlt die falsche Technik für meinen Anwendungsfall?
    Gibt es bereits bessere Methoden?


    VB.NET-Quellcode

    1. 'User Class
    2. Public Class Class_User : Implements INotifyPropertyChanged
    3. Event PropertyChanged(sender As Object, e As PropertyChangedEventArgs) Implements INotifyPropertyChanged.PropertyChanged
    5. Private m_UserName As String
    6. Private m_count As Integer = 0
    7. Private m_timer1 As New System.Timers.Timer
    9. Public Property UserName As String
    10. Get
    11. Return m_UserName
    12. End Get
    13. Set(value As String)
    14. m_UserName = value
    15. End Set
    16. End Property
    18. Public Property Count As Integer
    19. Get
    20. Return m_count
    21. End Get
    22. Private Set(value As Integer)
    23. m_count = value
    24. RaiseEvent PropertyChanged(Me, New PropertyChangedEventArgs("Count"))
    25. End Set
    26. End Property
    28. Public Sub New(p_UserName As String, p_interval As Double)
    29. m_UserName = p_UserName
    30. m_timer1.Interval = p_interval
    31. m_timer1.Enabled = True
    32. AddHandler m_timer1.Elapsed, AddressOf m_timer1Tick
    33. End Sub
    35. Private Sub m_timer1Tick(sender As Object, e As EventArgs)
    36. Count += 1
    37. End Sub
    39. Private Sub NotifyPropertyChanged(ByVal Info As String)
    40. RaiseEvent PropertyChanged(Me, New PropertyChangedEventArgs(Info))
    41. End Sub
    43. 'Form Class
    44. Public Class Form1
    46. WithEvents users As New System.ComponentModel.BindingList(Of Class_User)
    48. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    49. Bs1.DataSource = users
    50. Bs1.RaiseListChangedEvents = True
    51. DataGridView1.DataSource = Bs1
    52. End Sub
    54. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    55. For index As Integer = 0 To 5
    56. 'fügt der BindingList neue User hinzu mit Username und Timer Interval in ms
    57. users.Add(New Class_User("User " & index.ToString, 1000))
    58. Next
    59. End Sub
    61. End Class


    Ausgelagert aus List(of T) an DataGridView binden. ~Thunderbolt

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

    ErfinderDesRades schrieb:

    der Timer den du verwendest, läuft im NebenThread.
    wurde schon gesagt: Sowas verhält sich unvorhersehbar.


    Und wie regelt man dass dann, wenn mehrere Threads auf ein Control zugreifen wollen?
    Nehme wir an ich bastel einen Downloadmanager der es erlaubt gleichzeitig mehrere Datein runterzuladen.
    Da dürfte es auch pro Sekunde zu dutzenden PropertyChanged Events kommen.

    Ich habe heute Nacht noch mal das Internet ausgiebig abgesucht nach einer Lösung für mein Problem. Man findet aber nur Beispiele mit jeweils einem eigenen Control pro Thread.
    Mir schwebte eine art Warteschlange für PropertyChanges vor.
    Ich habe meinen Code dann wie folgt angepasst.

    Die ​Class_User bekommt eine List(Of String), worin alle PropertyChanges gespeichert werden.


    VB.NET-Quellcode

    1. ​
    2. Private m_ListOfPropertyChanges As New List(Of String)
    4. Public ReadOnly Property GetListOfPropertyChanges As List(Of String)
    5. Get
    6. Return m_ListOfPropertyChanges
    7. End Get
    8. End Property
    10. Private WriteOnly Property AddListOfPropertyChange As String
    11. Set(value As String)
    12. m_ListOfPropertyChanges.Add(value)
    13. End Set
    14. End Property
    16. Public Sub ClearListOfChanges()
    17. m_ListOfPropertyChanges.Clear()
    18. End Sub


    Propertys feuern nicht mehr selbst das PropertyChanged Event, sondern fügen Ihren Property Namen der privaten ​ListOfPropertyChanges hinzu:

    VB.NET-Quellcode

    1. ​
    2. Public Property Count As Integer
    3. Get
    4. Return m_count
    5. End Get
    6. Private Set(value As Integer)
    7. m_count = value
    8. If Not GetListOfPropertyChanges.Contains("Count") Then
    9. AddListOfPropertyChange = "Count"
    10. End If
    11. End Set
    12. End Property


    Kommen wir zur ​Form1 Klasse.
    Dort habe ich einen Timer hinzugefügt. Dieser geht alle paar Sekunden durch die List(Of Class_User) und prüft ob es Einträge in der ListOfPropertyChanges gibt.
    Wenn ja werden von der Form1 Klasse aus die einzelnen PropertyChanged Events​ gefeuert. Anschließend wird die Liste geleert.
    Getestet mit 10.000 Einträgen. Dauert wohl ne halbe Sekunde, allerdings Fehlerfrei.

    VB.NET-Quellcode

    1. ​
    2. Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
    3. 'während der Schleife darf nichts hinzugefügt werden, sonst Fehler
    4. Button1.Enabled = False
    5. 'alle User in der BindingList(Of Class_User) durchgehen
    6. For Each a In users
    7. If Not IsNothing(a.GetListOfPropertyChanges) Then
    8. 'die Liste durchgehen, die die Namen der geänderten Propertys enthält
    9. For Each b In a.GetListOfPropertyChanges
    10. a.NotifyPropertyChanged(b)
    11. Next
    12. End If
    13. a.ClearListOfChanges()
    14. Next
    15. Button1.Enabled = True
    16. End Sub

Facebook
Telefonspende