Label-Text einer Form durch einen/mehrere Thread/s ändern

  • VB.NET

Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von razor8.

    Label-Text einer Form durch einen/mehrere Thread/s ändern

    hallo leute, ich hab folgendes problem:

    ich hab ein Label, dessen text ich in einem Thread ändern will, aber es passiert einfach garnichts. ich habs mit hilfe dieses Beitrags versuch aber es halt leider auch nicht funktioniert

    ich hab folgende Klassen:

    Main : hier wird das Form geladen
    Worker: hier sind alle klassen drin, mit denen die ganze arbeit verrichtet wird
    Worker\Threads: hier werden die Threads deklariert
    Worker\Update: hier sind alle Methoden dirn die im Teil: "Update" des programms gebraucht werden

    hir ist mal der code zusammengefasst:

    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


    habt ihr vlt ne ahnung wieso das mit dem delegate-invoke nicht funktioniert?

    danke für eure hilfe

    ps: ihr könnt den code gerne so verändern, das er funktioniert^^

Facebook
Telefonspende