Benutzer-Operationen als Hintergrundprozesse "abarbeiten"

    • VB.NET

      Benutzer-Operationen als Hintergrundprozesse "abarbeiten"

      Hallo Com,

      Wenn ihr ein Programm habt, das viel laden muss oder länger andauernde Operationen durchführt; ihr aber nicht wollt, dass der Nutzer das Programm nicht weiter nutzen kann, könnt ihr Folgendes mit einem BackGroundWorker anstellen:

      Im "Haupt-Formular":

      VB.NET-Quellcode

      1. Public ActionQueue As Queue(Of String) 'Die anstehendeen Operationen
      2. Public Shared TaskNames As Dictionary(Of String, String) 'Dafür anzuzeigende Namen (Statusleiste)
      4. Public Sub SetTask(ByVal tP As String)
      5. ActionQueue.Enqueue(tP)
      6. If Not bgwTasks.IsBusy Then
      7. progress.Value = 0
      8. progressLabel.Text = ""
      9. statTask.Text = TaskNames(ActionQueue.Peek().Split(":"c)(0)) 'Statusleisteneintrag
      10. bgwTasks.RunWorkerAsync(ActionQueue.Dequeue()) 'HIER wird der neue Task gestartet, wenn aktuell keine läuft
      11. End If
      12. End Sub
      14. Private Sub bgwTasks_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bgwTasks.DoWork
      15. Dim instruct As String = CStr(e.Argument) 'Der Task (Mit ":" als Trennzeichen für eventuell benötigte Argumente)
      16. Select Case instruct.Split(":"c)(0)
      17. Case "test" ' -> Test functions
      18. For i = 1 To 100
      19. Threading.Thread.Sleep(10 * CInt(instruct.Split(":"c)(1)))
      20. bgwTasks.ReportProgress(i, New BGWTaskReport(instruct))
      21. If bgwTasks.CancellationPending Then Exit Sub
      22. Next
      23. Case "test2"
      24. For i = 1 To 100
      25. Threading.Thread.Sleep(10 * CInt(instruct.Split(":"c)(1)))
      26. bgwTasks.ReportProgress(i, New BGWTaskReport(instruct))
      27. If bgwTasks.CancellationPending Then Exit Sub
      28. Next
      29. End Select
      30. End Sub
      32. Private Sub bgwTasks_ProgressChanged(ByVal sender As System.Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles bgwTasks.ProgressChanged
      33. progress.Value = e.ProgressPercentage
      34. progressLabel.Text = String.Format("{0} %", e.ProgressPercentage)
      35. Dim task As BGWTaskReport = CType(e.UserState, BGWTaskReport)
      36. Select Case task.TaskName
      37. 'Hier je nach Task die "Ergebnisse" verwenden
      38. End Select
      39. End Sub
      41. Private Sub bgwTasks_RunWorkerCompleted(ByVal sender As System.Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles bgwTasks.RunWorkerCompleted
      42. progress.Value = 0
      43. progressLabel.Text = ""
      44. If ActionQueue.Count > 0 Then
      45. statTask.Text = TaskNames(ActionQueue.Peek().Split(":"c)(0)) 'Hier den nächsten Task starten
      46. bgwTasks.RunWorkerAsync(ActionQueue.Dequeue())
      47. Else
      48. statTask.Text = "Bereit."
      49. End If
      50. End Sub


      Und noch eine Generische Klasse für die Zwischenergebnisse der Tasks:

      VB.NET-Quellcode

      1. Public Structure BGWTaskReport
      2. Dim pStr As String
      3. Dim pRes As Object
      4. Public ReadOnly Property TaskName As String
      5. Get
      6. Return pStr
      7. End Get
      8. End Property
      9. Public ReadOnly Property TaskResult As Object
      10. Get
      11. Return pRes
      12. End Get
      13. End Property
      14. Public Sub New(ByVal instruction As String, Optional ByVal result As Object = Nothing)
      15. pStr = instruction
      16. pRes = result
      17. End Sub
      18. End Structure

    Facebook
    Telefonspende