Backgroundworker und Progressbar

  • VB.NET

Es gibt 4 Antworten in diesem Thema. Der letzte Beitrag () ist von bla.

    Backgroundworker und Progressbar

    Johi,
    Ich arbeite grade an einem kleinem Projekt, was eig. nur Dateien mit IO kopiert.
    Nun habe ich die Frage, da ich den Backgroundworker benutze, wie ich den Fortschritt in einer Progressbar anzeigen lasse.

    Danke

    BackgroundWorker

    Bevor ich hier viel erkläre schau dir mal diese Video vom Softwareentwicklerblog an:

    youtube.com/watch?v=RMIOVVLhUvE

    Hat mir auch geholfen.

    Im Prinzip musst du nur das ReportProcess Event abfangen, im ProcessWorker dieses Event auch erlauben und in der Sub die du im Hintergrund laufen lässt mit der Methode sender.ReportProcess (glaub ich zumindest dass sie so heißt) den Fortschritt aktualisieren.

    ein beispiel, dass ich mir immer mal wieder anschaue:

    VB.NET-Quellcode

    1. Imports System.ComponentModel
    3. Public Class Form1
    5. Private WithEvents bgw As New BackgroundWorker
    7. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    8. 'so startet man den bgw
    9. bgw.RunWorkerAsync()
    11. End Sub
    13. Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
    14. 'prüft ob der bgw noch läuft und beendet diesen dann
    15. 'bedingung - siehe form_load
    16. If bgw.IsBusy Then
    17. bgw.CancelAsync()
    18. End If
    19. End Sub
    21. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    22. 'erlaubt zugriff auf die windows form
    23. bgw.WorkerReportsProgress = True
    24. 'erlaubt unterbrechung des bgw z.b. wenn das programm beendet wird
    25. bgw.WorkerSupportsCancellation = True
    26. End Sub
    30. #Region "BackGroundWorker Events"
    31. Private Sub bgw_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bgw.DoWork
    32. Dim p As Long
    33. For i As Integer = 0 To 10000000
    34. If bgw.CancellationPending = True Then e.Cancel = True : Exit Sub
    35. p += 1
    36. Next
    38. 'um etwas in der windows form (anderer prozess) ausgeben zu können muss das
    39. 'bgw_progesschanged event ausgelöst werden
    40. 'z.b. so
    41. bgw.ReportProgress(100, p) 'im zweiten parameter kann ein objekt übergeben werden
    42. End Sub
    44. Private Sub bgw_ProgressChanged(ByVal sender As Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles bgw.ProgressChanged
    45. 'von hier aus, kann auf die windows forms zugegriffen werden
    46. 'aber auch nur von hier aus
    47. Label1.Text = e.UserState.ToString
    48. End Sub
    50. Private Sub bgw_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles bgw.RunWorkerCompleted
    51. If e.Cancelled = True Then MsgBox("nein")
    52. MsgBox("ja")
    53. 'dieses event wird angesprungen, wenn alles was in bgw_dowork abgearbeitet wurde.
    54. End Sub
    55. #End Region
    57. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    58. bgw.CancelAsync()
    59. End Sub
    60. End Class
    Für ein Mindestmaß an Rechtschreibung, Interpunktion und Majuskeln!

Facebook
Telefonspende