WPF TreeView via Thread updaten

  • VB.NET

    WPF TreeView via Thread updaten

    Hallo Leute, ich habe folgendes Problem: Ich will ein TreeViewItem zu einem TreeView-Control von einem anderen (STA)Thread hinzufügen, dies funktioniert aber trotz invoke nicht. Ich schreibe gerade ein kleines Programm, das GCF bzw NCF Datein entpacken soll. Zunächst will ich den Verzeichnissbaum des Archives in einem TreeView darstellen. Alle anderen sachen wie das Manipulieren der Progressbar etc funktioniern einwandfrei.

    Hier die Fehlermeldung: "The calling thread cannot access this object because a different thread owns it."

    Die Dll, die ich verwendet habe findet ihr hier: [VB.NET] CacheLib - GCF/NCF Library

    Mein code:

    VB.NET-Quellcode

    1. Private Sub Open_Button_Click(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs) Handles Open_Button.Click
    2. Try
    3. Dim a As String = FrmConstr.FileBrowser()
    4. If a IsNot Nothing Then
    5. 'C ist eine Klasse in der ich alle Laufenden Threads manage
    6. If C.LoaderInstance Is Nothing Then
    7. C.LoaderInstance = New Worker.Loader(a, DecryptionKey_TextBox.Text) 'initialisiere neue instanz des threads
    8. Else
    9. If C.LoaderInstance.IsRunning = True Then
    10. C.LoaderInstance.Abort()
    11. End If
    12. 'events entfernen falls vorhanden
    13. RemoveHandler C.LoaderInstance.EnableControls, AddressOf EnableControlls
    14. RemoveHandler C.LoaderInstance.DirectoriesLoaded, AddressOf DirectoryTreeLoaded
    15. RemoveHandler C.LoaderInstance.ProgressIntermediate, AddressOf ProgressBarIsIntermediateChanged
    16. C.LoaderInstance = New Worker.Loader(a, DecryptionKey_TextBox.Text)
    17. End If
    19. 'events zur instanz hinzufügen
    20. AddHandler C.LoaderInstance.EnableControls, AddressOf EnableControlls
    21. AddHandler C.LoaderInstance.DirectoriesLoaded, AddressOf DirectoryTreeLoaded
    22. AddHandler C.LoaderInstance.ProgressIntermediate, AddressOf ProgressBarIsIntermediateChanged
    24. Try
    25. 'Thread department auf STA setzen... dies ist notwendig damit ich im Thread WPF controlls erstellen kann...sonst bekomme ich ne böse exception
    26. C.LoaderInstance.Thread.TrySetApartmentState(System.Threading.ApartmentState.STA)
    27. C.LoaderInstance.Start()
    28. Catch ex As System.Threading.ThreadStateException
    29. C.LoaderInstance.Abort()
    30. C.LoaderInstance = Nothing
    31. End Try
    33. End If
    34. Catch ex As Exception
    35. LableText(ex.Message, Status_Lable)
    36. End Try
    37. End Sub


    Nun die Worker-Klasse wo die arbeit passiert:

    VB.NET-Quellcode

    1. Public Class Worker
    3. 'threadwrapper
    4. Public MustInherit Class ThreadWrapper
    5. Public ReadOnly Thread As System.Threading.Thread
    7. Public Sub New()
    8. Me.Thread = New System.Threading.Thread(AddressOf Me.StartTask)
    9. End Sub
    11. Public Overridable Sub Start()
    12. _IsRunning = True
    13. Me.Thread.Start()
    14. End Sub
    16. Public Overridable Sub [Stop]()
    17. Me.Thread.Abort()
    18. End Sub
    20. Private _IsCompleted As Boolean = False
    21. Private _IsRunning As Boolean
    23. Public ReadOnly Property IsCompleted() As Boolean
    24. Get
    25. Return _IsCompleted
    26. End Get
    27. End Property
    29. Public ReadOnly Property IsRunning() As Boolean
    30. Get
    31. Return _IsRunning
    32. End Get
    33. End Property
    35. Private Sub StartTask()
    36. _IsCompleted = False
    37. DoTask()
    38. _IsCompleted = True
    39. End Sub
    41. Protected MustOverride Sub DoTask()
    42. End Class
    44. Public Class Loader
    45. Inherits ThreadWrapper
    46. Public Event EnableControls(ByVal sender As Object, ByVal e As UpdateProgressEventArgs.Bool)
    47. Public Event DirectoriesLoaded(ByVal senders As Object, ByVal e As UpdateProgressEventArgs.DirectoryTreeItem)
    48. Public Event ProgressIntermediate(ByVal sender As Object, ByVal e As UpdateProgressEventArgs.Bool)
    50. Public Sub New(ByVal FilePath As String, ByVal DecryptionKey As String)
    51. _filepath = FilePath
    52. _key = DecryptionKey
    53. End Sub
    55. Public Sub Clear()
    56. Try
    57. _filepath = Nothing
    58. _key = Nothing
    59. Catch
    60. End Try
    61. End Sub
    63. Private _key As String
    64. Private _filepath As String
    66. Protected Overrides Sub DoTask()
    67. RaiseEvent ProgressIntermediate(Me, New UpdateProgressEventArgs.Bool(True))
    68. RaiseEvent EnableControls(Me, New UpdateProgressEventArgs.Bool(False))
    70. 'SteamCache ist eine DLL die ich geschrieben hab, ist auch hier im Forum zu finden
    71. 'Mountedfile ist eine GCF/NCF datei
    72. If _key.Length = 32 Then
    73. C.MountedFile = New SteamCache(_filepath, False, False, _key)
    74. Else
    75. C.MountedFile = New SteamCache(_filepath, False, False)
    76. End If
    78. 'mount the file
    79. C.MountedFile.Mount(FileAccess.Read, FileShare.Read)
    81. 'Build the directory-tree
    82. If C.MountedFile.IsMounted = True Then
    83. If C.MountedFile.CacheFileType = SteamCache.CacheType.GameCacheFile Then
    84. 'hier wird ein neues item erstellt, das erste(root) item, dieses wird dann an die GetAllSubDirectories methode weitergegeben (byRef)
    85. Dim root As New TreeViewItem
    86. root.Header = "\"
    87. GetAllSubDirectories(C.MountedFile.MountedGCF.FileMap(0), 0, root)
    88. 'und wenn alle items(Ordner) hinzugefügt wurden wird der event ausgelöst damit es zum TreeView hinzugefügt wird
    89. RaiseEvent DirectoriesLoaded(Me, New UpdateProgressEventArgs.DirectoryTreeItem(root))
    90. ElseIf C.MountedFile.CacheFileType = SteamCache.CacheType.NonCacheFile Then
    91. Dim root As New TreeViewItem
    92. root.Header = "\"
    93. GetAllSubDirectories(C.MountedFile.MountedNCF.FileMap(0), 0, root)
    94. RaiseEvent DirectoriesLoaded(Me, New UpdateProgressEventArgs.DirectoryTreeItem(root))
    95. End If
    96. End If
    97. RaiseEvent ProgressIntermediate(Me, New UpdateProgressEventArgs.Bool(False))
    98. RaiseEvent EnableControls(Me, New UpdateProgressEventArgs.Bool(True))
    99. End Sub
    101. Private Sub GetAllSubDirectories(ByVal FObject As SteamCache.FileObject.GcfFileObject, ByVal StartIndex As Integer, ByRef StartItem As TreeViewItem)
    102. If FObject.Attribute <> SteamCache.Manifest.Nodes.NodeAttribute.Directory Then
    103. Exit Sub
    104. End If
    106. For i As Integer = StartIndex To C.MountedFile.MountedGCF.Manifest.Nodes.Count - 1
    107. If C.MountedFile.MountedGCF.Manifest.Nodes(i).ParentIndex = FObject.NodeIndex Then
    108. If C.MountedFile.MountedGCF.Manifest.Nodes(i).Attributes = FObject.Attribute Then ' directory only
    109. 'wäre der Thread MTA anstatt STA würde die folgende Zeile nicht funktionieren
    110. Dim child As New TreeViewItem
    112. child.Header = C.MountedFile.MountedGCF.FileMap(i).FileName
    113. child.DataContext = i
    114. GetAllSubDirectories(C.MountedFile.MountedGCF.FileMap(i), i, child)
    115. StartItem.Items.Add(child)
    116. End If
    117. End If
    118. Next
    119. End Sub
    120. Private Sub GetAllSubDirectories(ByVal FObject As SteamCache.FileObject.NcfFileObject, ByVal StartIndex As Integer, ByRef StartItem As TreeViewItem)
    121. If FObject.Attribute <> SteamCache.Manifest.Nodes.NodeAttribute.Directory Then
    122. Exit Sub
    123. End If
    125. For i As Integer = StartIndex To C.MountedFile.MountedNCF.Manifest.Nodes.Count - 1
    126. If C.MountedFile.MountedNCF.Manifest.Nodes(i).ParentIndex = FObject.NodeIndex Then
    127. If C.MountedFile.MountedNCF.Manifest.Nodes(i).Attributes = FObject.Attribute Then ' directory only
    128. Dim child As New TreeViewItem
    129. child.Header = C.MountedFile.MountedNCF.FileMap(i).FileName
    130. child.DataContext = i
    131. GetAllSubDirectories(C.MountedFile.MountedNCF.FileMap(i), i, child)
    132. StartItem.Items.Add(child)
    133. End If
    134. End If
    135. Next
    136. End Sub
    139. Public Sub Abort()
    140. Finalize()
    141. End Sub
    143. Protected Overrides Sub Finalize()
    144. Clear()
    145. RaiseEvent ProgressIntermediate(Me, New UpdateProgressEventArgs.Bool(False))
    146. RaiseEvent EnableControls(Me, New UpdateProgressEventArgs.Bool(True))
    147. End Sub
    149. End Class
    150. End Class


    So und jetzt zum Problem-Code:

    VB.NET-Quellcode

    1. Delegate Sub TreeViewDlg(ByVal item As System.Windows.Controls.TreeViewItem, ByVal ControlTreeView As System.Windows.Controls.TreeView)
    3. Private Sub DirectoryTreeLoaded(ByVal sender As Object, ByVal e As UpdateProgressEventArgs.DirectoryTreeItem)
    4. AddTreeViewItem(e.Value, DirectoryTree)
    5. End Sub
    7. Public Sub AddTreeViewItem_(ByVal item As System.Windows.Controls.TreeViewItem, ByVal ControlTreeView As System.Windows.Controls.TreeView)
    8. Try
    9. ControlTreeView.Items.Clear() 'diese Zeile funktioniert komischer weise noch, erst wenn ich ein element(TreeViewItem) das im Thread erstelltwurde hinzufügen will (nächste Zeile) bekomme ich die Fehlermeldung
    10. ControlTreeView.Items.Add(item)
    11. Catch ex As Exception
    12. 'hier bekomme ich folgende Fehlermeldung: "The calling thread cannot access this object because a different thread owns it."
    13. End Try
    14. End Sub
    15. Public Sub AddTreeViewItem(ByVal item As System.Windows.Controls.TreeViewItem, ByVal ControlTreeView As System.Windows.Controls.TreeView)
    16. Try
    17. If ControlTreeView.Dispatcher.CheckAccess Then
    18. ControlTreeView.Items.Clear()
    19. ControlTreeView.Items.Add(C.DirectoryTree)
    20. Else
    21. Dim d As New TreeViewDlg(AddressOf AddTreeViewItem_)
    22. Me.Dispatcher.Invoke(d, New Object() {item, ControlTreeView})
    23. End If
    24. Catch ex As Exception
    26. End Try
    27. End Sub


    wie kann ich ein Control-Element (TreeViewItem) das nicht im Besitzer-Thread erstellt wurde zu einem Control (TreeView) hinzufügen?

    danke für eure hilfe!

Facebook
Telefonspende