Datagridview Farbänderung zu langsam

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

Es gibt 4 Antworten in diesem Thema. Der letzte Beitrag () ist von Rattenfänger.

    Datagridview Farbänderung zu langsam

    Hallo ich habe eine Datatabel mit einem Dataview an ein Datagridview gebunden. Jetzt sind in der Datagridview nur 20 Zeilen über ein Rowfilter sichtbar.
    Die änderunden in der Datatabel werden in einer anderen klasse mit einem Backroundworker geändert. Hier kann es sein das 2 bis 3 rows im millisekunden takt geändert werden(ich kann nicht genau sagen wie schnell).
    Wenn ich das listchangehandle deaktiviere werden die werte in realtime geändert und im DGV angezeigt. Sobald ich aber das Handle für das Listchange einschalte kommt es zu immensen zeitverzögerungen. Was mache ich falsch.

    Hier der Code der die Zeilen mit den einträgen ändert.

    VB.NET-Quellcode

    1. Private Sub ChangeOffersTable(ByVal rowData As O2GRow)
    3. Dim foundrow() As DataRow = Changingtable.Select(Changingtable.Columns(0).ColumnName & " = '" & rowData.getCell(0).ToString & "'")
    5. Dim column As O2GTableColumnCollection = rowData.Columns
    6. Dim i1 As Integer = 0
    8. Dim Changevalue As Boolean = False
    10. For Each SelectedRow As DataRow In foundrow
    12. SelectedRow.BeginEdit()
    14. If CDbl(SelectedRow(3)) <> CDbl(rowData.getCell(3)) Then
    15. SelectedRow(3) = CDbl(rowData.getCell(3))
    16. SelectedRow(28) = CDbl(rowData.getCell(28))
    17. Changevalue = True
    18. End If
    20. If CDbl(SelectedRow(4)) <> CDbl(rowData.getCell(4)) Then
    21. SelectedRow(4) = CDbl(rowData.getCell(4))
    22. SelectedRow(29) = CDbl(rowData.getCell(29))
    23. Changevalue = True
    24. End If
    26. SelectedRow(5) = CDbl(rowData.getCell(5))
    27. SelectedRow(6) = CDbl(rowData.getCell(6))
    28. SelectedRow(7) = CDbl(rowData.getCell(7))
    29. SelectedRow(11) = CDbl(rowData.getCell(11))
    30. SelectedRow(12) = CDbl(rowData.getCell(12))
    31. SelectedRow(27) = CDbl(rowData.getCell(27))
    33. SelectedRow.EndEdit()
    35. Exit For
    37. Next
    39. 'Hier wird eine andere Klasse angesprochen hier werden auch noch änderungen evtl. gemacht
    41. If Not Point_Settings Is Nothing And Changevalue = True Then
    42. If CInt(rowData.getCell(0)) <= 13 And FXCM_Connector_Int.DownloadHistoricalData = False And FXCM_Connector_Int.UpdateHistory = False Then
    43. MyMethod2 = New mymethod(AddressOf Point_Settings.ChangingOffer)
    44. MyMethod2.Invoke(rowData.getCell(1).ToString, rowData.getCell(4).ToString, rowData.getCell(3).ToString)
    45. End If
    46. End If
    48. End Sub


    Hier der Code der die farben ändert.

    VB.NET-Quellcode

    1. Option Strict On
    2. Imports fxcore2
    3. Imports System.Threading
    5. Public Class RealTime_Kurse_Form
    7. Public WithEvents OffersDataView As New DataView
    8. Delegate Sub mymethod(ByVal Rownindex As Integer)
    10. Dim ChangeBoolean As Boolean = False
    11. Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    13. Me.DataGridView2.Columns.Clear()
    14. Me.MdiParent = TZAutoTradingTool
    15. Me.Location = New Point(-1, 170)
    17. End Sub
    18. Private Sub Form2_LocationChanged(sender As Object, e As EventArgs) Handles Me.LocationChanged
    20. Me.Location = New Point(-1, 170)
    22. End Sub
    23. Public Sub AddBinding()
    25. Try
    27. OffersDataView = TZAutoTradingTool.OffersTable.DefaultView
    28. Me.DataGridView2.DataSource = OffersDataView
    30. Catch ex As Exception
    32. End Try
    34. End Sub
    35. Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged
    37. ChangeBoolean = True
    39. If CheckBox1.Checked Then
    40. OffersDataView.RowFilter = "SubscriptionStatus = 'T'"
    41. Else
    42. OffersDataView.RowFilter = ""
    43. End If
    45. ChangeBoolean = False
    47. End Sub
    48. Private Sub ListChange(ByVal sender As Object, ByVal args As System.ComponentModel.ListChangedEventArgs) Handles OffersDataView.ListChanged
    50. Dim MyMethod2 As New mymethod(AddressOf changedatagrid)
    51. Invoke(MyMethod2, args.NewIndex)
    53. End Sub
    54. Private Sub changedatagrid(ByVal Rownindex As Integer)
    56. If ChangeBoolean = False Then
    58. Dim Selectedrow As DataGridViewRow = Me.DataGridView2.Rows(Rownindex)
    60. Select Case CInt(Selectedrow.Cells("BidChangeDirection").Value)
    62. Case -1
    63. Selectedrow.Cells("BID").Style.ForeColor = Color.Red
    64. Case 1
    65. Selectedrow.Cells("BID").Style.ForeColor = Color.Green
    67. End Select
    69. Select Case CInt(Selectedrow.Cells("AskChangeDirection").Value)
    71. Case -1
    72. Selectedrow.Cells("ASK").Style.ForeColor = Color.Red
    73. Case 1
    74. Selectedrow.Cells("ASK").Style.ForeColor = Color.Green
    76. End Select
    78. Select Case CInt(Selectedrow.Cells("LowChangeDirection").Value)
    80. Case -1
    81. Selectedrow.Cells("Low").Style.ForeColor = Color.Red
    82. Case 1
    83. Selectedrow.Cells("Low").Style.ForeColor = Color.Green
    85. End Select
    87. Select Case CInt(Selectedrow.Cells("HiChangeDirection").Value)
    89. Case -1
    90. Selectedrow.Cells("High").Style.ForeColor = Color.Red
    91. Case 1
    92. Selectedrow.Cells("High").Style.ForeColor = Color.Green
    94. End Select
    96. End If
    98. End Sub
    99. End Class

    Jetzt mal unabhängig vom Code: Wenn Du weißt, dass das scharfgeschaltete Event inakzeptable Zeitverzögerungen verursacht, warum schaltest Du es dann scharf, wenn es auch ohne geht (so wie ich Deine Problembeschreibung lese)? Das ListChanged-Event ist AFAIK mit n Haufen Zusatzhintergrund-"rauschen"/-arbeit verbunden, klar, dass das verzögert.
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    Die änderungen sind halt besser ersichtlich. Also ist das Event / Handle immens langsam, ok das war auch meine vermutung.
    Ok dann versuche ich das mal anders :-). Danke für die Info.

    Rattenfänger schrieb:

    Hallo ich habe eine Datatabel mit einem Dataview an ein Datagridview gebunden. Jetzt sind in der Datagridview nur 20 Zeilen über ein Rowfilter sichtbar.
    Die änderunden in der Datatabel werden in einer anderen klasse mit einem Backroundworker geändert.
    Sowas geht nicht, weil da findet intern ein ungültiger threadübergreifender Zugriff statt.
    Welcher leider bei Databinding nicht vom System mit der entsprechenden Fehlermeldung quittiert wird.
    Stattdessen tritt unerwartetes Verhalten auf.

    In Databinding-Szenarien muss man die Bindings temporär lösen, wenn man die Table nebenläufig befüllen möchte.
    Und da würde der Async-Pattern malwieder seine Überlegenheit gegenüber der Backgroundworker-Krücke ausspielen können.

    Oder halt nicht nebenläufig befüllen.

Facebook
Telefonspende