Remplissage d'un TreeView par un threadRésolu

Question

Bonjour,

Voici mon probl&#232;me : j'ai un formulaire qui contient un TreeView, et une m&#233;thode qui remplit ce TreeView avec la liste des ordinateurs d'un domaine.
&#199;a fonctionne mais quand le domaine est important l'appli est bloqu&#233;e pendant un moment. J'ai donc cr&#233;&#233; un thread secondaire qui lance la m&#233;thode. Mais apparemment je ne peux pas mettre &#224; jour le TreeView &#224; partir du thread secondaire. &#199;a me dit : "vous devez utiliser Control.Invoke ou Control.BeginInvoke...).

Voici le code :

Public Class frmMain

   Inherits System.Windows.Forms.Form

   Friend WithEvents tvMain as TreeView
   Friend WithEvents btnGo as Button
[...]
   Private Sub btnGo_Click(ByVal sender as Object, ByVal e as EventArgs) Handles btnGo.Click
      Dim t As New Thread(AddressOf Me.Scan)
      t.Start()
   End Sub

   Private Sub Scan()
      For Each [Computer] In [Domain]
         Me.tvMain.Nodes.Add(New TreeNode([Computer].Name))
      Next [Computer]
   End Sub

End Class

Quelqu'un aurait-il une piste, ou m&#234;me un lien vers une source qui traiterait d'un probl&#232;me similaire ?

Merci d'avance. :)

ofeelfree · Accepted Answer

Rebonjour,
J'ai trouv&#233; la solution, je la livre pour ceux que &#231;a int&#233;resse (les ajouts sont en bleu, ce qui a &#233;t&#233; retir&#233; en rouge) :

Public Class frmMain

   Inherits System.Windows.Forms.Form

   Private Delegate Sub AddTreeDelegate(ByRef Target as Object, ByRef Node as TreeNode)

   Friend WithEvents tvMain as TreeView
   Friend WithEvents btnGo as Button
[...]
   Private Sub btnGo_Click(ByVal sender as Object, ByVal e as EventArgs) Handles btnGo.Click
      Dim t As New Thread(AddressOf Me.Scan)
      t.Start()
   End Sub

   Private Sub AddTreeNode(ByRef Target as Object, ByRef Node as TreeNode)
      If (TypeOf Target Is TreeView) Then
         DirectCast(Target, TreeView).Nodes.Add(Node)
      ElseIf (TypeOf Target Is TreeNode) Then
         DirectCast(Target, TreeNode).Nodes.Add(Node)
      End If
   End Sub

   Private Sub Scan()
      Dim atd As New AddTreeDelegate(AddressOf Me.AddTreeNode)
      Dim args(1) as Object
      For Each [Computer] In [Domain]
         'Me.tvMain.Nodes.Add(New TreeNode([Computer].Name))
         args(0) = Me.tvMain
         args(1) = New TreeNode([Computer].Name)
         Me.tvMain.BeginInvoke(atd, args)
      Next [Computer]
   End Sub

End Class

Et voil&#224;, &#224; pr&#233;sent le TreeView se remplit au fur et &#224; mesure et l'application reste disponible pour r&#233;pondre aux &#233;v&#233;nements.

Bon code &#224; tous.

Remplissage d'un TreeView par un thread

1 réponse

Discussions similaires