Backgroundworker: Auf Controlls zugreifen

  • VB.NET

Es gibt 3 Antworten in diesem Thema. Der letzte Beitrag () ist von RodFromGermany.

    Backgroundworker: Auf Controlls zugreifen

    Hey,

    Da momentan einiges geladen werden muss, nimmt dieser Vorgang die Form etwas mit. Durch eine Recherche im Internet kam mir der Backgroundworker unter.

    Das Prinzip habe ich soweit verstanden, jedoch kommt die Meldung, dass auf das Controll nicht zugegriffen werden kann.

    Da habe ich auch herausgefunden, dass man ohne weiteres nicht auf die Controlls zugreifen kann.

    Dazu habe ich auch schon eine Lösung gefunden: ReportProgress und ProgressChanged.

    Leider finde ich jedoch keine funktionierende Möglichkeit diese anzuwenden, auch nach einigen Recherchen bekomme ich es nicht hin.

    Ich lade mit einem PHP Script Namen aus einer Mysql Datenbank und möchte diese in einer Listbox anzeigen. Dies funktioniert auch, jedoch nicht, ohne dass die Form braucht, bis sie geladen ist.

    Wie mache ich das nun?

    Danke schonmal.

    Grüße

    Beispielcode

    VB.NET-Quellcode

    1. Property MeineDaten As Object
    2. Sub Load
    3. Dim bgw As New BackgroundWorker
    4. AddHandler bgw.DoWork, Sub() Daten laden und in meineDaten schaufeln
    5. Addhandler bgw.RunWorkerCompleted, Sub() RaiseEvent SomeOne
    7. bgw.RunWorkerAsync
    8. End Sub
    10. Event SomeOne As EventHandler


    Erklärung:
    Du sagt via dem DoWork-Handler, was passieren soll. Dieser Operation musst du glaube ich sogar jene Variablen mitgeben, die du später abrufbereit haben möchtest. (ByRef-Parameter)
    Mit dem RunWorkerCompleted legst du fest, was passiert wenn das Ding fertig ist. Er macht das dann automatisch.

    Das Event SomeOne hau ich raus, um jedem der mich sieht mitzuteilen das ich fertig bin. Jeder, der was braucht, kann es sich abholen, wie auch deine Form dieses Event beobachten kann (AddHandler SomeOne, AddressOf SubDieDatenAnzeigt).

    Das hat den Sinn das die Form dafür zuständig ist sich zu aktualisieren, nicht die Daten sollen sich in den Vordergrund schieben.

    Deine Form / dein Control wartet also darauf, das SomeOne ausgelöst wird, und wenn es ausgelöst wird hat dies in deinem Kontext die Bedeutung, das er die Daten geladen hat. Er ruft sie aus der Verfügbaren property ab und zeigt sie in Sekundenschnelle an. Während die Daten laden kann das was auch immer passieren noch.

    Anwendungsbeispiel von mir heute:
    Spoiler anzeigen

    Mein programm muss Ordner auslesen und die Dateien darin kennen.
    Da dies 18000 Dateien sind in 900 Unterordnern, dauert das seine Zeit. Bei meinem langsamen Rechner hat das 16 Minuten gebraucht.

    Mein Backgroundworker lädt die Daten in eine Liste, die LifeTime abgerufen werden kann.
    Meine Form zeigt während dem laden immer nur an, wie viele Dateien bereits gefunden wurden, während des ladens kann man alles andere weiterhin im Programm machen.

    Mein Background-Worker-Ende sagt dem Nutzer am Ende nur, das alles geladen wurde und das programm beginnt andere Daten zu laden.

    (Achtung, Code enthält Crap, da es Testcode ist und dieser noch nicht ausgemistet wurde ^-^)

    VB.NET-Quellcode

    1. Public Sub LoadSongsDir()
    2. Dim bgw As New BackgroundWorker
    3. bgw.WorkerSupportsCancellation = True
    4. bgw.WorkerReportsProgress = True
    6. _startTime = Date.Now
    7. AddHandler bgw.DoWork, Sub() CreateFileList("C:\Programme\osu!\Songs", FileList)
    8. AddHandler bgw.RunWorkerCompleted, AddressOf Test
    10. _timer.Start()
    11. AddHandler _timer.Tick, Sub() MainState.Instance.CurrentActionName = String.Format("Analize songs folder - {0} files found - time: {1}", FileList.Count, GetElapsed)
    13. bgw.RunWorkerAsync()
    14. End Sub
    16. Private Sub Test(ByVal sender As Object, ByVal e As EventArgs)
    17. _timer.Stop()
    18. 'Testcode... bei dir nur benötigt um die Form anzuweisen die Daten anzuzeigen
    20. MsgBox("Zeit: " & GetElapsed())
    21. MsgBox(FileList.Count.ToString)
    22. Dim mouses = From file As String In FileList Where file.EndsWith("cursor.png")
    24. MsgBox("Mäuse: " & mouses.Count.ToString)
    25. 'MainState.Instance.CurrentActionName = String.Empty
    26. End Sub
    28. Private Function GetElapsed() As String
    29. Dim now As Date = Date.Now
    30. Dim newDate As Date = now.AddTicks(-1 * _startTime.Ticks)
    32. Return String.Format("{0}:{1}", newDate.Minute, now.Second)
    33. End Function
    35. ' ...
    37. Public Event WindowNameChanged As EventHandler
    38. Private _formName As String = "osu! Skin Creator"
    39. ''' <summary>
    40. ''' The shown name of application in main window
    41. ''' </summary>
    42. ''' <value></value>
    43. ''' <returns></returns>
    44. ''' <remarks></remarks>
    45. Public Property FormName As String
    46. Get
    47. Return String.Format("{0} - Version {1}{2}{3}", _formName, Version, _versionString, If(_actionName.Equals(String.Empty), "", " - " & _actionName))
    48. End Get
    49. Set(ByVal value As String)
    50. If _formName.Equals(value) Then Return
    51. _formName = value
    52. RaiseEvent WindowNameChanged(Me, EventArgs.Empty)
    53. End Set
    54. End Property
    56. Private _actionName As String = String.Empty
    57. Public Property CurrentActionName As String
    58. Get
    59. Return _actionName
    60. End Get
    61. Set(ByVal value As String)
    62. If _actionName.Equals(value) Then Return
    63. _actionName = value
    64. RaiseEvent WindowNameChanged(Me, EventArgs.Empty)
    65. End Set
    66. End Property
    68. ' ...
    70. Private Sub AddHandlers()
    71. '...
    72. AddHandler MainState.Instance.WindowNameChanged, AddressOf RefreshOverview
    73. '...
    74. End Sub


    Das Zauberwort heißt Invoke.

    VB.NET-Quellcode

    1. Me.Invoke(Sub() Me.Label1.Text = "bla")
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!