[Help] - Thread mit UI-Update

  • VB.NET

Es gibt 6 Antworten in diesem Thema. Der letzte Beitrag () ist von razor8.

    [Help] - Thread mit UI-Update

    Hey,
    also ich habe in einem Thread ein Listbox.Items.Add() command drin, jedoch wird das auf der Form micht angezeigt, da laut google, die auf einem anderem Thread liegen.
    Lösungsvorschläge sind : Control.BeginInvoke, Delegate , ... etc.

    Jedoch kapier ich diese Parameter nicht o,0 Ich versuche schon seit einem Tag den dreck :D.

    Könntet ihr mir ein Beispiel für ein ganz einfach code geben :)?

    VB.NET-Quellcode

    1. Dim _thread as new System.Threading.Thread(AddressOf Start)
    2. _tread.start
    4. Private Sub Start()
    5. do
    6. ListBox.Items.Add("Test")
    7. loop while ....
    8. End Sub


    mfg

    Hi,

    du mußt die Zugriffe auf die in Form1 und damit in einem anderen Thread befindlichen Controls synchronisieren. Dazu kannst du die .invokerequired Eigenschaft der ListBox benutzen. Erstell dir einen Delegaten, den du für den Fall =true instanzierst und der dir als Rücksprung dient. Über die Suchwörter Threadsicherer Zugriff delegate findest du in Google jede Menge Beispiele dazu.

    f0x

    Hi,
    kein Problem. Ein kleines Beispiel:

    VB.NET-Quellcode

    1. Private Delegate Sub myDelegate(ByVal MSG As String)
    2. ...
    3. Private Sub SafeAdd(ByVal MSG As String)
    4. If ListBox1.InvokeRequired Then
    5. Dim d As New myDelegate(AddressOf SafeAdd)
    6. ListBox1.Invoke(d, MSG)
    7. Else
    8. ListBox1.Items.Add(MSG)
    9. End If
    10. End Sub


    Du definierst dir eine Schablone für einen Delegaten der einen String als Parameter mit dabei hat. Die Logik für den Thread-sicheren Aufruf würde ich in einer kleinen Sub auslagern, ist übersichtlicher in der Verwendung. Zunächst fragst du ab, ob ein synchronisierter Zugriff gerade möglich ist (invokerequired). Falls dies nicht der Fall ist erstellst du dir eine neue Instanz deines Delegaten der eine Rücksprungadresse zur Sub selbst enthält. Diesen übergibst du dann, zusammen mit der ursprünglichen Nachricht (in dem Fall einfach nur ein String) an die Methode .invoke der ListBox. Im folgenden wird ein synchroner Zustand der beiden betreffenden Threads abgewartet und durch den Rücksprung erfolgt dann schliesslich das hinzufügen des items. Es ist klar daß aufgrund dieses Vorgehens ein Overhead entsteht und diese Art des Zugriffs ist selbstverständlich langsamer als wenn das alles nicht nötig wäre. Normalerweise sollte daher der Nutzen durch nebenläufige Programmstränge diesen Nachteil aufwiegen. Hoffe die Darstellung ist verständlich.

    Grüße,

    f0x

    Vielen vielen dank,
    nach mehrmaligen lesen, habe ich deinen zusammgefassten text einigermaßen verstanden, sodass ich mit hilfe deines Beispiels das Problem lösen konnte :).
    Funktioniert super.
    Ich bedanke mich nochmal herzlich und bei weiteren problem, werde ich mich an paradise wenden :)

    (gibt kein thnk button :P)

    mfg

    you're welcome, wie man neudeutsch sagt. Freue mich wenn es nun nicht nur einfach funktioniert sondern du auch verstanden hast warum. Dann wirst du beim nächsten Mal, wenn es auch keine ListBox ist, schon in der Lage sein das selbst zu lösen.

    Grüße,

    f0x

    gleiches problem

    hi leute,

    ich hab ein ähnliches problem: ich hab ein main-form und starte einen thread, vondem aus ich den text eines labels des mainforms ändern will(einige tausende mal). ich hab das beispiel oben versucht aber es erscheint einfach kein text...es passiert absolut nichts(bis auf den rest des threads).
    noch ein paar infos:
    corlib = dll
    cache ist eine klasse in der ich häufigverwendete variablen hab

    VB.NET-Quellcode

    1. Public Class main
    2. Public Sub main_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    3. config.loadconfig()
    4. End Sub
    5. .
    6. .
    7. .
    8. Public Shared Sub updatetab_createextractedpatch_startprogress_button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles updatetab_createextractedpatch_startprogress_button.Click
    9. If Not Worker.Threads.create_extracted_patchThread.IsAlive Then
    10. Try
    11. Worker.Threads.create_extracted_patchThread.Start()
    12. Catch ex As Exception
    13. End Try
    14. End If
    15. End Sub
    16. End Class
    17. ...
    18. Public Class Worker
    19. ...
    20. Public Class Threads
    21. Public Shared create_extracted_patchThread As New Thread(AddressOf update.create_extracted_patch)
    22. Public Delegate Sub myDelegate(ByVal MSG As String)
    24. Public Shared Sub change_statuslabel_text(ByVal text As String)
    25. If main.main_statuslabel.InvokeRequired Then
    26. Dim d As New myDelegate(AddressOf change_statuslabel_text)
    27. main.main_statuslabel.Invoke(d, text)
    28. Else
    29. main.main_statuslabel.Text = text
    30. End If
    31. End Sub
    33. Public Shared Sub update_progressbar()
    34. If main.main_ProgressBar.InvokeRequired Then
    35. Dim d As New myDelegate(AddressOf update_progressbar)
    36. main.main_statuslabel.Invoke(d)
    37. Else
    38. main.main_ProgressBar.Value += 1
    39. main.main_statuslabel.Update()
    40. End If
    41. End Sub
    43. Public Shared Sub reset_progressbar(ByVal maximum As Integer)
    44. If main.main_ProgressBar.InvokeRequired Then
    45. Dim d As New myDelegate(AddressOf reset_progressbar)
    46. main.main_statuslabel.Invoke(d)
    47. Else
    48. main.main_ProgressBar.Maximum = maximum
    49. main.main_ProgressBar.Value = 0
    50. main.main_ProgressBar.Update()
    51. End If
    52. End Sub
    54. End Class
    56. Public Class update
    57. Public Shared Sub create_extracted_patch()
    59. If cache.updatetab.outputfoldername = Nothing Or cache.updatetab.UpdateFolder = Nothing Then
    60. Exit Sub
    61. End If
    62. If Not Directory.Exists(cache.ReleaseFolder & cache.updatetab.outputfoldername) Then
    63. Try
    64. Directory.CreateDirectory(cache.ReleaseFolder & cache.updatetab.outputfoldername)
    65. Catch ex As Exception
    66. End Try
    67. End If
    68. ...
    69. Threads.change_statuslabel_text("Indexing") 'hier sollte eigentlich der text des labels geändert werden
    70. Dim emptyfiles As List(Of String) = CorLib.FileSystemHelper.GetFiles(cache.updatetab.UpdateFolder, "all", True)
    71. Dim emptydirs As List(Of String) = CorLib.FileSystemHelper.GetDirectories(cache.updatetab.UpdateFolder, True)
    73. Dim allfiles As List(Of String) = CorLib.FileSystemHelper.GetFiles(cache.updatetab.UpdateFolder, "all", False)
    75. Threads.reset_progressbar(allfiles.Count + 1)
    77. For Each emptyfile In emptyfiles
    78. Threads.change_statuslabel_text("Deleting: " & emptyfile)
    79. Try
    80. File.Delete(emptyfile)
    81. Catch ex As Exception
    82. End Try
    83. Threads.update_progressbar()
    84. Next
    86. For Each emptydir In emptydirs
    87. Threads.change_statuslabel_text("Deleting: " & emptydir)
    88. Try
    89. Directory.Delete(emptydir)
    90. Catch ex As Exception
    91. End Try
    92. Threads.update_progressbar()
    93. Next
    95. Dim filestocopy As List(Of String) = CorLib.FileSystemHelper.GetFiles(cache.updatetab.UpdateFolder, "all", False)
    97. For Each filetocopy In filestocopy
    98. Threads.change_statuslabel_text("Copying: " & filetocopy)
    99. Try
    100. File.Copy(filetocopy, cache.ReleaseFolder & cache.updatetab.outputfoldername, True)
    101. Catch ex As Exception
    102. End Try
    103. Threads.update_progressbar()
    104. Next
    106. Threads.change_statuslabel_text("Extracted Patch successfully created!")
    107. End Sub
    109. End Class
    110. End Class


    hat jemand ne idee woran das liegt das es nicht funktioniert? wenn möglich (und zeitaufwand nicht zu größ) könnt ihr einfach den code so ändern das es läuft...und ichs versteh^^

    mfg razor8

Facebook
Telefonspende