Backgroundworker?

  • VB.NET

Es gibt 25 Antworten in diesem Thema. Der letzte Beitrag () ist von singu.

    Backgroundworker?

    moin,
    wollte mal wissen wie ich einen Backgroundworker verwende.
    ich möchte nämlich Sachen von eimen ordner auf einen anderen kopieren und wenn ich das mit einer schleife mache ist das Programm ja total ausgelastet.

    lg.

    [VB 2008] Backgroundworker

    Hatten wir hier zu oft..

    Suchfunktion benutzen ist klarer Vorteil.

    //Edit: In diesem Breitrag gleich ganz unten stehen auch die anderen Themen die sich mit Backgroundworker (o.ä.) befassen.
    "Wenn jemand in einem Betrieb unverzichtbar ist, dann ist dieser Betrieb falsch organisiert." - Roberto Niederer

    Ein kleines BGW Tutorial

    Hallo,

    hier ein kleines BackGroundWorker Tutorial.

    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()
    10. 'evtl. kann man etwas mit übergeben
    11. bgw.RunWorkerAsync("Dem bgw etwas mitgeben")
    12. End Sub
    14. Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
    15. 'prüft ob der bgw noch läuft und beendet diesen dann
    16. 'bedingung - siehe form_load
    17. If bgw.IsBusy Then
    18. bgw.CancelAsync()
    19. End If
    20. End Sub
    22. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    23. 'erlaubt zugriff auf die windows form
    24. bgw.WorkerReportsProgress = True
    25. 'erlaubt unterbrechung des bgw z.b. wenn das programm beendet wird
    26. bgw.WorkerSupportsCancellation = True
    27. End Sub
    28. #Region "BackGroundWorker Events"
    29. Private Sub bgw_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bgw.DoWork
    30. 'hier steht alles drinn, was im bgw abgearbeitet werden soll.
    32. 'um etwas in der windows form (anderer prozess) ausgeben zu können muss das
    33. 'bgw_progesschanged event ausgelöst werden
    34. 'z.b. so
    35. bgw.ReportProgress(100) 'die 100 steht hier für einen prozentsatz
    36. 'oder
    37. bgw.ReportProgress(100, "Muss was Ausgeben.") 'im zweiten parameter kann ein objekt übergeben werden
    38. End Sub
    40. Private Sub bgw_ProgressChanged(ByVal sender As Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles bgw.ProgressChanged
    41. 'von hier aus, kann auf die windows forms zugegriffen werden
    42. 'aber auch nur von hier aus
    43. End Sub
    45. Private Sub bgw_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles bgw.RunWorkerCompleted
    46. 'dieses event wird angesprungen, wenn alles was in bgw_dowork abgearbeitet wurde.
    47. End Sub
    48. #End Region
    49. End Class

    gruss

    mikeb69

    hallo,

    passend zum thema:

    ich nutze den bgw nun zum ersten mal. wenn ich nun meinen beispielcode benutze, kommt der fehler:
    Ungültiger threadübergreifender Vorgang: Der Zugriff auf das Steuerelement Label1 erfolgte von einem anderen Thread als dem Thread, für den es erstellt wurde.
    mein code:

    VB.NET-Quellcode

    1. Private Sub bgw_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bgw.DoWork
    2. Dim p As Long
    3. For i As Integer = 0 To 100000000
    4. p += 1
    5. Next
    7. Label1.Text = p
    8. End Sub
    10. Private Sub bgw_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles bgw.RunWorkerCompleted
    11. MsgBox("Ende")
    12. End Sub


    kann mir jmd erklären, wie man das nun machen muss? :D

    danke :)
    Für ein Mindestmaß an Rechtschreibung, Interpunktion und Majuskeln!

    .... Liess deine Fehlermeldung, dann das obige Tutorial nochmals...

    (Im DoWork Event kannst du nicht auf deine Form zugreifen. Nimm :

    Private Sub bgw_ProgressChanged(ByVal sender As Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles bgw.ProgressChanged
    'von hier aus, kann auf die windows forms zugegriffen werden
    'aber auch nur von hier aus
    End Sub

    Edit: war wohl jemand Schneller rellenhcS
    "I think Microsoft has abused the Windows brand so much that it has lost its cachet."
    Paul Thurrott

    aaah, danke. jetzt versteh ich:

    man muss

    VB.NET-Quellcode

    1. Private Sub bgw_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bgw.DoWork
    2. Dim p As Long
    3. For i As Integer = 0 To 100000000
    4. p += 1
    5. Next
    7. bgw.ReportProgress(100, p) 'im zweiten parameter kann ein objekt übergeben werden
    8. End Sub
    10. Private Sub bgw_ProgressChanged(ByVal sender As Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles bgw.ProgressChanged
    12. Label1.Text = e.UserState.ToString
    13. End Sub

    nutzen.

    aber es folgt gleich die nächste frage :P
    wenn der thread läuft, und ich

    VB.NET-Quellcode

    1. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    2. bgw.CancelAsync()
    3. End Sub

    nutze, sollte der thread doch eigentlich abgebrochen sein. aber dennoch wird bei mir das RunWorkerCompleted-event ausgelöst, genauso wie das ProgressChanged-event. woran könnte das liegen?...
    Danke
    Für ein Mindestmaß an Rechtschreibung, Interpunktion und Majuskeln!

    Hab zu dem Abbrechen auch nochmal eine Frage.

    Im Moment nutze ich folgenden Code:

    VB.NET-Quellcode

    1. Private Sub frm_Optimieren_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
    2. If bgw_Optimierung.IsBusy Then
    3. bgw_Optimierung.CancelAsync()
    4. End If
    5. End Sub
    7. Private Sub bgw_Optimierung_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bgw_Optimierung.DoWork
    8. If bgw_Optimierung.CancellationPending Then 'Wurde Abbrechen aufgerufen?
    9. e.Cancel = True 'Abbrechen
    10. Exit Sub
    11. Else
    12. Try
    13. 'Datenbank optimieren
    14. myConnection.Open() 'Connection öffnen
    15. myCommand = New SQLiteCommand("VACUUM Einträge; VACUUM Kategorien", myConnection) 'Command festlegen
    16. myCommand.ExecuteNonQuery() 'Command ausführen
    17. myConnection.Close() 'Connection schliesen
    18. Catch ex As Exception
    19. MessageBox.Show(ex.Message)
    20. End Try
    21. End If
    22. End Sub
    24. Private Sub bgw_Optimierung_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles bgw_Optimierung.RunWorkerCompleted
    25. If (e.Error IsNot Nothing) Then 'Bei Fehler
    26. MessageBox.Show("Folgender Fehler ist aufgetreten: " & vbNewLine & e.Error.Message, "Fehler", MessageBoxButtons.OK, MessageBoxIcon.Error)
    27. ElseIf e.Cancelled Then 'Bei Abbruch
    28. MessageBox.Show("Der Vorgang wurde abgebrochen.", "Abbruch", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
    29. Else 'Bei Erfolg
    30. MessageBox.Show("Optimierung erfolgreich abgeschlossen", "Optimierung abgeschlossen", MessageBoxButtons.OK, MessageBoxIcon.Information)
    31. End If
    32. Me.Close()
    33. End Sub


    Das Problem:
    Beim Schliesen der Form wird zwar das .CancelAsync() aufgerufen, jedoch kommt immer noch die Meldung das die Optimierung erfolgreich war. Was mache ich da falsch?
    wintoolz.de
    • wintoolz.KeyLocker - Programm zum sicheren Verwalten von Passwörten
    • wintoolz.CodeGallery - Datenbank für Codebeispiele veschiedener Programmiersprachen
    • wintoolz.Haushaltsbuch - Dient zum Auflisten der Aktivitäten ihrer Bankkonten

    Benutze auch du Ecosia

    Hi T1g0r,
    das Problem ist, dass der Code welcher das e.Cancel auf True setzt wohl nie aufgerufen wird. Es wird ja gleich beim initialisieren des Do-Work Events geprüft ob der Nutzer auf Abbrechen geklickt hat und danach wird der Datenbankquery ausgeführt und zum schluß die Funktion beendet. Daher würde es wohl am meisten Sinn machen die Abfrage ob der Worker abgebrochen wurde ans Ende der Funktion zu verlagern. Das hat allerdings nur kosmetischen Nutzen, denn wirklich Abbrechen kannst du den Worker in diesem Fall nicht, da er erstmal den DB-Query synchron abarbeitet und dabei nicht nachschaut ob der Benutzer auf Abbrechen geklickt hat.

    Cheerio

    OK, das hab ich mir schon fast gedacht.
    Danke
    wintoolz.de
    • wintoolz.KeyLocker - Programm zum sicheren Verwalten von Passwörten
    • wintoolz.CodeGallery - Datenbank für Codebeispiele veschiedener Programmiersprachen
    • wintoolz.Haushaltsbuch - Dient zum Auflisten der Aktivitäten ihrer Bankkonten

    Benutze auch du Ecosia

    Ich hänge mich mal hier rein.
    Ich wollte mal die Sache mit dem Backgroundworker testen, aber nun stehe ich vor einem Problem. Im Backgroundworker soll eine Variable aus dem normalen Programmbereich verwendet werden. Allerdings ist diese leer, wenn ich sie im Backgroundworker aufrufe. Wie kann ich auf die Variable zugreifen, damit das nicht der Fall ist?

    Damit solltest du ganz normal arbeiten können. Das diese Variable leer ist, dürfte nicht am Backgroundworker liegen.
    wintoolz.de
    • wintoolz.KeyLocker - Programm zum sicheren Verwalten von Passwörten
    • wintoolz.CodeGallery - Datenbank für Codebeispiele veschiedener Programmiersprachen
    • wintoolz.Haushaltsbuch - Dient zum Auflisten der Aktivitäten ihrer Bankkonten

    Benutze auch du Ecosia

    Das habe ich bereits versucht, aber die Msgbox bleibt trotzdem leer.

    VB.NET-Quellcode

    1. Private Sub bgw_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bgw.DoWork
    2. Msgbox(meineVariable)
    3. End Sub

Facebook
Telefonspende