Task.Factory.StartNew / Invoke / DGV updatet nicht

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

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

    Task.Factory.StartNew / Invoke / DGV updatet nicht

    Hallo!

    Ich habe eine Form mit einem DataGridView.
    Dieses hat ein DataBinding an einer DataTable.
    Nun starte ich das Befüllen der DataTable mit "Task.Factory.StartNew(AddressOf ScanDirectory)" wobei "ScanDirectory" eine "For Each" Schleife ausführt!

    Wenn ich die "For Each" Schleife ohne Task, also im GUI-Thread, laufen lasse werden nach jedem Schleifendurchlauf die neuen Einträge im DGV angezeigt bzw. aktualisiert!
    Da dies aber meine GUI einfrieren lässt habe ich des "Task.Factory.StartNew(AddressOf ScanDirectory)" vorangestellt.
    Aber dadurch wird das DGV nicht mehr aktualisiert..
    ..auch ein Invoken des DGV in der Schleife aktualisiert das DGV nicht!

    Was muss ich tun um in einem Task das DGV richtig zu invoken bzw. die Daten in Echtzeit aktualisieren zu sehen?

    OK, also ich hab jetzt nen Counter eingebaut der mir bei jedem hundertsten Eintrag des DGV refreshen soll!

    VB.NET-Quellcode

    1. If _pbCounter Mod 100 = 0 Then
    2. FileInfo_TableDataGridView.Invoke(Sub()
    3. FileInfo_TableDataGridView.Refresh()
    4. End Sub)
    5. End If


    Spoiler anzeigen
    ​

    VB.NET-Quellcode

    1. ​
    3. Imports System.IO
    5. Public Class Form1
    7. Private AllFiles_FileInfos As IEnumerable(Of IO.FileInfo)
    8. Public WithEvents AllFiles_DataTable As FileDataTable.FileInfo_TableDataTable = New FileDataTable.FileInfo_TableDataTable
    10. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    11. End Sub
    13. Private guiShown As Boolean = False
    14. Private Sub Form1_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown
    15. Utils.DoubleBuffer_Controls.SetDoubleBuffered(FileInfo_TableDataGridView)
    17. 'FileInfoTableDataTableBindingSource.DataSource = AllFiles_DataTable
    18. FileInfo_TableDataGridView.DataSource = AllFiles_DataTable
    20. ' AddHandler AllFiles_DataTable.TableNewRow, AddressOf Table_NewRow
    21. guiShown = True
    22. End Sub
    24. Private fbd_ScanDirectory As New FolderBrowserDialog()
    25. Private thread_ScanDirectory As Threading.Thread
    26. Private Sub TestToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles TestToolStripMenuItem.Click
    27. If fbd_ScanDirectory.ShowDialog() = DialogResult.OK Then
    29. AllFiles_FileInfos = Utils.FileIterator.GetFileInfos(fbd_ScanDirectory.SelectedPath, "*.mp3")
    30. ToolStripProgressBar1.Value = 0
    31. ToolStripProgressBar1.Maximum = AllFiles_FileInfos.Count
    33. AllFiles_DataTable.Clear()
    35. 'Task.Factory.StartNew(AddressOf task_ScanDirectory)
    36. Task.Factory.StartNew(AddressOf ScanDirectory)
    38. 'ScanDirectory()
    40. End If
    41. End Sub
    43. Private _pbCounter As Integer = 0
    45. Private Sub task_ScanDirectory()
    46. thread_ScanDirectory = New Threading.Thread(New Threading.ThreadStart(AddressOf ScanDirectory))
    47. thread_ScanDirectory.Start()
    48. End Sub
    50. Public Sub ScanDirectory()
    51. Dim imgCon As New ImageConverter()
    52. 'File_DataTable.BeginLoadData()
    53. _pbCounter = 0
    54. For Each _fi As IO.FileInfo In AllFiles_FileInfos
    55. Dim _newRow As FileDataTable.FileInfo_TableRow = AllFiles_DataTable.NewFileInfo_TableRow()
    56. Try
    57. _newRow.Name = _fi.Name
    58. _newRow.Length = _fi.Length
    59. _newRow.Directory = _fi.DirectoryName
    60. _newRow.Created = _fi.CreationTimeUtc
    62. Dim _mp3File As Mp3Lib.Mp3File = New Mp3Lib.Mp3File(_fi)
    64. _newRow.Album = _mp3File.TagHandler.Album
    65. _newRow.Artist = _mp3File.TagHandler.Artist
    66. _newRow.Comment = _mp3File.TagHandler.Comment
    67. _newRow.Composer = _mp3File.TagHandler.Composer
    68. _newRow.Disc = _mp3File.TagHandler.Disc
    69. _newRow.FrameModel = _mp3File.TagHandler.FrameModel.ToString
    70. _newRow.Genre = _mp3File.TagHandler.Genre
    71. _newRow.Lenght = _mp3File.TagHandler.Length.ToString
    72. _newRow.Lyrics = _mp3File.TagHandler.Lyrics
    73. _newRow.PaddingSize = _mp3File.TagHandler.PaddingSize
    74. If IsNothing(_mp3File.TagHandler.Picture) = False Then
    75. _newRow.Picture = DirectCast(imgCon.ConvertTo(_mp3File.TagHandler.Picture, GetType(Byte())), Byte())
    76. Else
    77. _newRow.Picture = Nothing
    78. End If
    79. _newRow.Song = _mp3File.TagHandler.Song
    80. _newRow.Title = _mp3File.TagHandler.Title
    81. _newRow.Track = _mp3File.TagHandler.Track
    82. _newRow.Year = _mp3File.TagHandler.Year
    84. _pbCounter += 1
    85. Catch ex As Exception
    86. 'Debug.WriteLine(ex.Message)
    87. End Try
    89. AllFiles_DataTable.Rows.Add(_newRow)
    91. If _pbCounter Mod 100 = 0 Then
    92. FileInfo_TableDataGridView.Invoke(Sub()
    93. FileInfo_TableDataGridView.Refresh()
    94. End Sub)
    95. End If
    97. If _pbCounter Mod 10 = 0 Then
    98. Invoke(Sub()
    99. ToolStripProgressBar1.PerformStep()
    100. End Sub)
    101. End If
    103. Next
    105. Invoke(Sub()
    106. ToolStripProgressBar1.Value = ToolStripProgressBar1.Maximum
    107. End Sub)
    109. End Sub
    111. End Class



    Dadurch bleibt des Form ruckelfrei als wie bei jedem Eintrag zu refreshen!
    Aber des DGV lässt sich nicht scrollen bzw. die rechte Scrollbar ist "gefrohren".
    Mit den Pfeiltasten kann ich scrollen, aber mit dem Mausrad nicht!

    Geht das nicht performanter?

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

    OK, also..
    ich hab jetzt das füllen der DataTable in nem Task laufen..
    ..zudem setze ich nach jedem hundertsten Eintrag ein Invoke auf das DataGridView!
    (Jede hundertste Zeile, weil sonst die Form flimmert bei jedem Update)

    in der For Each Schleife steht dann:

    VB.NET-Quellcode

    1. If _pbCounter Mod 100 = 0 Then
    2. FileInfo_TableDataGridView.Invoke(Sub()
    3. FileInfo_TableDataGridView.Refresh()
    4. FileInfo_TableDataGridView.PerformLayout()
    5. End Sub)
    6. End If


    Also: Das ".PerformLayout()" ist wichtig!! -Zeigt aber des IntelliSense auch nicht an! :huh:

    Was bringt es denn überhaupt da alle Nase was zu aktualisieren? Wäre eine Ladeanzeige bis alles fertig ist nicht besser? Kann denn der User während des Ladens da sinnvolle Dinge mit den bereits vorhandenen Daten tun? Falls nicht, lass es lieber weg. Die Leut klicken erfahrungsgemäß gerne wild rum und tun wirre Dinge …
    "Gib einem Mann einen Fisch und du ernährst ihn für einen Tag. Lehre einen Mann zu fischen und du ernährst ihn für sein Leben."

    Wie debugge ich richtig? => Debuggen, Fehler finden und beseitigen
    Wie man VisualStudio nutzt? => VisualStudio richtig nutzen