Backgroundworker und die For Each Schleife

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

Es gibt 30 Antworten in diesem Thema. Der letzte Beitrag () ist von Michdi.

    Ich habe den Fehler gefunden. Der Fehler entstand, wegen:

    VB.NET-Quellcode

    1. ​
    2. MsgBox("Einige Verzeichnisse konnten aufgrund ihrer Berechtigungen nicht gescannt werden!" & vbCrLf & errorlogg.Item(0), MsgBoxStyle.Critical, "Fehler")


    Was passiert aber, wenn es gar keinen Eintrag in errorrlogg gab? Eine Fehlermeldung. Ich habe das jetzt ein bisschen umgebaut:

    VB.NET-Quellcode

    1. ​
    2. If errorlogg.Count > 0 Then
    3. Dim message As String = ""
    4. For Each error1 In errorlogg
    5. message += vbCrLf & error1
    7. Next
    8. MsgBox("Einige Verzeichnisse konnten aufgrund ihrer Berechtigungen nicht gescannt werden!" + vbCrLf + message, MsgBoxStyle.Critical, "Fehler")
    9. End If
    11. errorlogg.Clear()


    Ich werde mich jetzt noch ein Mal an die Progressbar setzen.
    Die beste maschinelle Übersetzung der Welt - DeepL Übersetzer
    Alle Zitate, die ich seit dem 1.9.2017 übersetzt habe, wurden vollautomatisch mit DeepL übersetzt.


    Ich hab mir nicht den ganzen Beitrag durchgelesen (weiß also nicht ob das schon erwähnt wurde), aber so weit ich weiß müssen alle Werte die am Ende des BGW öffentlich sein sollen im Result

    VB.NET-Quellcode

    1. ​e.Result
    stehen.

    ​

    VB.NET-Quellcode

    1. ​status.Text = "Vorgang abgeschlossen"
    2. Button1.Enabled = True
    3. MsgBox(listboxx1) 'Diese ist komischerweise KOMPLETT leer.


    Gruss

    ​mikeb69

    @mikeb69 Danke für die Antwort! Ich habe das Problem schon gelöst, er zeigt mir inzwischen alle Ergebnisse zuverlässig in der Liste an.

    @RodFromGermany Ich habe jetzt die Progressbar implementiert:

    VB.NET-Quellcode

    1. ​
    2. 'Im For Each Block:
    3. suche = suche + 1
    4. BGW.ReportProgress(CInt(suche / maxProgressBar * 100))
    6. Private Sub BGW_ProgressChanged(sender As System.Object, e As System.ComponentModel.ProgressChangedEventArgs) Handles BGW.ProgressChanged
    8. Me.Fortschritt.Value = e.ProgressPercentage
    9. Me.Fortschritt.Update()
    10. End Sub


    Danke für die Hilfe!
    Die beste maschinelle Übersetzung der Welt - DeepL Übersetzer
    Alle Zitate, die ich seit dem 1.9.2017 übersetzt habe, wurden vollautomatisch mit DeepL übersetzt.


    Michdi schrieb:

    Ich habe das Problem schon gelöst, er zeigt mir inzwischen alle Ergebnisse zuverlässig in der Liste an.
    Glückwunsch!
    Nur viel interessanter finde ich, mit welcher Debug-Technik du dem Fehler auf die Schliche gekommen bist, und ob der eine oder annere Hinweis von hier da hilfreich war?

    ErfinderDesRades schrieb:

    Nur viel interessanter finde ich, mit welcher Debug-Technik du dem Fehler auf die Schliche gekommen bist, und ob der eine oder annere Hinweis von hier da hilfreich war?

    Ich hab das mit Breakpoints Stück für Stück durchgetestet. Auch habe ich mir einen extra Sub gemacht, um das ganze im Main Thread zu testen. Mein Vater hat mir dabei geholfen, das ganze richtig zu kompilieren und die Lösungsansätze von hier zu verwenden. Ich habe komischerweise einen mysteriösen Ordner in C:\Users\Michel\Documents\ namens Eigene Bilder. Er wird nicht gelistet, obwohl ich versteckte Dateien sehen kann. Er ist praktisch unsichtbar, super unsichtbar. Ich boote gleich meinen PC mal mit Ubuntu, um mir den Inhalt anzusehen.
    Die beste maschinelle Übersetzung der Welt - DeepL Übersetzer
    Alle Zitate, die ich seit dem 1.9.2017 übersetzt habe, wurden vollautomatisch mit DeepL übersetzt.


    Also in Windows ist der von dir genannte Ordner Bestandteil des Betriebssystems - allerdings sollte er doch iwie sichtbar sein - evtl unter anderm Namen - etwa was bei mir im Datei-Explorer als Eigene Bilder-Ordner angezeigt ist, hat in Wirklich keit den Pfad:
    C:\Users\Account2\Pictures
    Windows hat da iwie einen Trick, dass manche Ordner eingedeutscht angezeigt werden, obwohl sie fürs Betriebssystem englisch bezeichnet sind.
    Vermutlich weisst du: Microsoft ist viel daran gelegen, das Betriebssystem so unübersichtlich und kryptisch zu gestalten als nur möglich - wo kämen wir hin, wenn die User verstünden, was da eiglich vor sich geht? ;)
    Langer Rede kurzer Sinn: Angugge i.O., aber ansonsten lass besser die Finger von diesem Ordner
    /Offtopic

    @Topic:
    Bist du noch an weiteren Verbesserungs-Vorschlägen interessiert?
    Dann poste halt den aktuellen Code - wir lassen uns dann was einfallen, dich zu beschäftigen ;)

    @ErfinderDesRades
    Mein aktueller Sourcecode:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Option Strict On
    2. Imports System.IO
    3. Public Class Form1
    4. Dim suche As Integer = 0
    5. Dim listboxx1 As New List(Of String)
    6. Dim errorlogg As New List(Of String)
    7. Dim elapsed As Double = 0
    8. Dim nowProgressBar As Integer = 0
    9. Dim maxProgressBar As Integer = 0
    10. Dim verzeichnis As String = "C:\"
    11. Dim WithEvents BGW As New System.ComponentModel.BackgroundWorker With {.WorkerReportsProgress = True, .WorkerSupportsCancellation = True}
    12. Dim CW As Integer = Me.Width ' Current Width
    13. Dim CH As Integer = Me.Height ' Current Height
    14. Dim IW As Integer = Me.Width ' Initial Width
    15. Dim IH As Integer = Me.Height ' Initial Height
    17. Private Sub Form1_Resize(ByVal sender As Object,
    18. ByVal e As System.EventArgs) Handles Me.Resize
    20. Dim RW As Double = (Me.Width - CW) / CW
    21. Dim RH As Double = (Me.Height - CH) / CH
    23. For Each Ctrl As Control In Controls
    24. Ctrl.Width += CInt(Ctrl.Width * RW)
    25. Ctrl.Height += CInt(Ctrl.Height * RH)
    26. Ctrl.Left += CInt(Ctrl.Left * RW)
    27. Ctrl.Top += CInt(Ctrl.Top * RH)
    28. Next
    30. CW = Me.Width
    31. CH = Me.Height
    33. End Sub
    35. Private Sub suchen_Click(sender As Object, e As EventArgs) Handles suchen.Click
    36. If Not BGW.IsBusy Then
    37. status.Text = "Bitte warten..."
    38. cancel.Enabled = True
    39. suchen.Enabled = False
    40. ' ausfuhren()
    41. BGW.RunWorkerAsync()
    42. PBLoading.Visible = True
    43. elapsed = 0
    44. Timer2.Start()
    45. End If
    47. End Sub
    49. Private Sub setdirectory_Click(sender As Object, e As EventArgs) Handles setdirectory.Click
    50. FolderBrowserDialog1.ShowDialog()
    51. verzeichnis = FolderBrowserDialog1.SelectedPath
    52. pfadBox.Text = verzeichnis
    53. End Sub
    55. Private Sub clearlist_Click(sender As Object, e As EventArgs) Handles clearlist.Click
    56. 'Momentan arbeite ich mit keiner Listbox, da ich gerade auf DataGridView umstelle!
    57. ListBox1.Items.Clear()
    58. End Sub
    60. Private Sub BGW_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles BGW.DoWork
    62. Dim di As New DirectoryInfo(verzeichnis)
    63. Dim fiArr As FileInfo()
    64. Dim fri As FileInfo
    65. Dim MySize As Long
    66. Dim fiArrDetail As DirectoryInfo()
    67. Dim friDetail As DirectoryInfo
    68. Dim byti As Long = 1000000
    69. Try
    70. fiArr = di.GetFiles(("*"), SearchOption.AllDirectories)
    71. maxProgressBar = CInt(fiArr.Length)
    72. Catch ex As Exception
    73. 'Alle Directories
    74. fiArrDetail = di.GetDirectories()
    75. For Each friDetail In fiArrDetail
    76. Try
    77. di = New DirectoryInfo(friDetail.FullName)
    78. fiArr = di.GetFiles(("*"), SearchOption.AllDirectories)
    79. maxProgressBar += CInt(fiArr.Length)
    81. For Each fri In fiArr
    82. suche = suche + 1
    83. BGW.ReportProgress(CInt(suche / maxProgressBar * 100))
    84. MySize = FileLen(fri.DirectoryName & "\" & fri.Name)
    85. If MySize >= NUD.Value * byti Then
    86. Dim grosse As Long = CLng(Math.Round(MySize / 1000000, 0))
    87. listboxx1.Add(fri.DirectoryName & "\" & fri.Name & " (" & grosse & " MB)")
    88. End If
    90. Next fri
    91. Catch ex1 As Exception
    92. errorlogg.Add(ex.Message)
    93. End Try
    95. Next friDetail
    97. 'Alle Files der obersten Ebene
    98. Try
    99. fiArr = di.GetFiles(("*"), SearchOption.TopDirectoryOnly)
    101. Catch ex2 As Exception
    102. End Try
    103. End Try
    104. For Each fri In fiArr
    105. MySize = FileLen(fri.DirectoryName & "\" & fri.Name)
    106. If MySize >= NUD.Value * byti Then
    107. Dim grosse As Long = CLng(Math.Round(MySize / 1000000, 0))
    108. listboxx1.Add(fri.DirectoryName & "\" & fri.Name & " (" & grosse & " MB)")
    109. suche = suche + 1
    110. BGW.ReportProgress(CInt(suche / maxProgressBar * 100))
    111. End If
    113. Next fri
    115. End Sub
    117. Private Sub BGW_ProgressChanged(sender As System.Object, e As System.ComponentModel.ProgressChangedEventArgs) Handles BGW.ProgressChanged
    119. Fortschritt.Maximum = maxProgressBar
    120. If e.ProgressPercentage < maxProgressBar Then
    121. Me.Fortschritt.Value = e.ProgressPercentage
    122. Me.Fortschritt.Update()
    123. End If
    124. End Sub
    126. Private Sub BGW_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles BGW.RunWorkerCompleted
    127. status.Text = "Vorgang abgeschlossen"
    128. suchen.Enabled = True
    129. Me.Fortschritt.Value = Fortschritt.Maximum
    130. For Each lb In listboxx1
    131. ListBox1.Items.Add(lb)
    132. Next
    133. Timer1.Enabled = True
    134. suche1.Text = CType(suche, String)
    135. listboxx1.Clear()
    136. suche1.Text = CType(suche, String)
    137. PBLoading.Visible = False
    138. Timer2.Stop()
    139. ps.Text = Math.Round(suche / elapsed, 0) & " pro Sekunde"
    140. suche = 0
    141. If errorlogg.Count > 0 Then
    142. Dim message As String = ""
    143. For Each error1 In errorlogg
    144. message += vbCrLf & error1
    146. Next
    147. MsgBox("Einige Verzeichnisse konnten aufgrund ihrer Berechtigungen nicht gescannt werden!" + vbCrLf + message, MsgBoxStyle.Critical, "Fehler")
    148. End If
    150. errorlogg.Clear()
    151. cancel.Enabled = False
    152. End Sub
    154. Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
    155. Timer1.Enabled = False
    156. status.Text = "Warte auf Input"
    157. Fortschritt.Value = 0
    158. End Sub
    160. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    161. PBLoading.Visible = False
    162. IW = Me.Width
    163. IH = Me.Height
    164. End Sub
    166. Private Sub Button4_Click(sender As Object, e As EventArgs) Handles exportlist.Click
    167. 'Momentan arbeite ich mit keiner Listbox, da ich gerade auf DataGridView umstelle!
    168. For Each flie In ListBox1.Items
    169. My.Computer.FileSystem.WriteAllText(Application.StartupPath() & "\BigFileFinder.txt", CType(flie, String) & vbCrLf, True)
    170. Next
    171. MessageBox.Show("Die Liste wurde in dem Ordner der Applikation abgespeichert!", "Gespeichert!", MessageBoxButtons.OK, MessageBoxIcon.Information)
    172. End Sub
    174. Private Sub clearexport_Click(sender As Object, e As EventArgs) Handles clearexport.Click
    175. Try
    176. My.Computer.FileSystem.DeleteFile(Application.StartupPath() & "\BigFileFinder.txt")
    177. MessageBox.Show("Die Liste wurde geleert und gelöscht!", "Gelöscht!", MessageBoxButtons.OK, MessageBoxIcon.Information)
    179. Catch ex As Exception
    181. End Try
    182. End Sub
    184. Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick
    185. elapsed = elapsed + 0.1
    186. suche1.Text = CType(suche, String)
    187. End Sub
    189. Private Sub cancel_Click(sender As Object, e As EventArgs) Handles cancel.Click
    190. BGW.CancelAsync()
    191. End Sub
    192. End Class

    Designer:

    Und meine Controls:


    Ist ja mehr schon zum Lernprojekt geworden, finde ich aber gut :D

    Ich arbeite erstmal doch wieder mit einer Listbox.
    Die beste maschinelle Übersetzung der Welt - DeepL Übersetzer
    Alle Zitate, die ich seit dem 1.9.2017 übersetzt habe, wurden vollautomatisch mit DeepL übersetzt.


    Jo, da kann man nu an verschiedenen Baustellen ansetzen.
    Ich greife mal das Thema "Layout" heraus.
    Also was du da im Form-Resize treibst, und mit die ganzen Variablen, die da rumfahren - das kann alles weg, wenn du das Layout-System von WinForms verstehst und richtig einzusetzen gelernt hast.
    Guck dir dazu Layout in Windows.Forms an, insbesondere die Videos.

    Vlt erkennst du allmählich das Prinzip von VisualBasic und VisualStudio: Nämlich dass für triviale Aufgaben grafische Programmier-Hilfen bereitstehen, sog. "Designer", mit denen man sich mit ein paar Klicks was zurecht-programmieren kann, was dann überaus stabil und gleichzeitig effizient ist, und dabei grosse Mengen an Code zu schreiben erübrigt.
    Eben das Visual.

    Diese Visual - Programmier-Techniken sind in Foren, Büchern, Tutorials oft schwer zu erklären, und daher wird vielerorts viel zu viel Code geschrieben - (manchmal gar tausende von Zeilen!), und viel Code - selbst wenn er total simpel ist - birgt immer die Gefahr, dass iwelche dumme Fehler sich drin verbergen.
    Daher sind grafische Programmiertechniken vorzuziehen, weil dem Designer-generiertem-Code unterläuft kein dummer Fehler.
    Und der User-Code wird dadurch gleichzeitig auf das wirklich Wesentliche reduziert - das ist ebenfalls ein unschätzbar wertvoller Vorteil, dass man nur noch das wirkliche Konzentrat an Logik zu programmieren hat, und von Trivial-Code befreit ist.

    Ich habe jetzt eine Groupbox gesetzt, ein bisschen am Layout mit dem Dock rumgespielt, das Video angeguckt und den Thread gelesen. Ich weiß jetzt, wie ich mehrere Tabellen mit Panels und Splittern etc. benutze, aber ich habe hier ja gar nicht so viel, was ich getrennt haben will. Es soll sich einfach nur vergrößern, wenn ich die Form vergrößere. Ich werde daraus irgendwie immer noch nicht schlau, wie ich jetzt dafür sorge, dass auch alles an seiner Stelle bleibt. Ich lege mal die Solution bei. @ErfinderDesRades
    Dateien

    • BigFileFinder.zip

      (416,53 kB, 220 mal heruntergeladen, zuletzt: )
    Die beste maschinelle Übersetzung der Welt - DeepL Übersetzer
    Alle Zitate, die ich seit dem 1.9.2017 übersetzt habe, wurden vollautomatisch mit DeepL übersetzt.


    Du hast ja immer noch nicht die Visual Studio - Empfohlene Einstellungen umgesetzt - wieso nicht?

    Nur Option Strict On über jede Datei zu schreiben ist ziemlich unzureichend - mach das doch ein für allemal klar, für dein ganzes Projekt, und für dein ganzes VisuaStudio überhaupt.
    Und schmeiss unbedingt auch den - ich nenne ihn: den "Deppen-Namespace" raus, weil annähernd alles, was der dir per Intellisense unter die Finger spielt, ist dummes Zeug, und behindert dich beim Einstieg in die objektorientierte Programmierung.

    Michdi schrieb:

    Ich werde daraus irgendwie immer noch nicht schlau, wie ich jetzt dafür sorge, dass auch alles an seiner Stelle bleibt.
    Naja, mit einem TableLayoutPanel, bei dem du genügend Zeilen und Spalten einrichtest - ist eiglich ziemlcih einfach.

    Edit: Also ich hab dir mal ein dynamisches Layout zusammengeklickst - mit einem - nein zwei TLPs.
    Ist noch nicht optimal, aber was wirklich optimal ist, musst ja eh du entscheiden.

    (Ach, und natürlich die Einstellungen habich korrigiert, und dann den Code minimal angepasst, dasses wieder läuft - bin ich ja gespannt, ob du die Unterschiede findest.)
    Dateien

    Dieser Beitrag wurde bereits 6 mal editiert, zuletzt von „ErfinderDesRades“ ()