Discussion :

[Faladin]

Bonjour à tous,

Y'a pas une collection dans un TreeView qui contient TOUS les noeuds, peut importe leur niveau?

Mon but est de chercher un noeud et de retourner le chemin d'accès:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
For each noeud in TreeView.Nodes
   If noeud.Name = "Blabla" Then
      chemin = noeud.FullPath
   End If
End For

Je sais que ça fonctionne pas car la collection .Nodes ne renvoi que les noeuds du premier niveau.

Le seul moyen de faire cela est-il de me promener niveau par niveau avec plusieurs boules For?

Merci

[Pol63]

une sub récursive est mieux que plusieurs boucles for

et le seul moyen d'avoir une collections de tous les noeuds, c'est de la faire soi meme (j'image que c'est toi qui ajoute les noeuds ...)

[Faladin]

C'est ce que je pensais pour la liste des noeuds, je trouvais rien de concluant.

Pour la sub récursive, je suis pas très familier avec le principe, je vais vérifier de ce côté..

MErci Sperot

[Pol63]

exemple de récursivité qui ajoute tous les noeuds à une collection :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
Private _Coll as List(Of TreeNode)
 
 
Private Sub RemplissageColl()
    AddNodesToColl(MonTreeView.Nodes)
End Sub
 
 
 
Private Sub AddNodesToColl(NodesNiveau as TreeNodeCollection)
 
    For Each tn as Treenode In NodesNiveau 
        _Coll.Add(tn)
        AddNodesToColl(tn.Nodes)
    Next
 
End Sub

donc y a un point de départ, un paramètre de sub qui change
au premier tour, tous les nodes tu treeview vont être ajoutés et en meme temps, la sub va etre appelée avec tous ses sous nodes en paramètre
etc....

for each ne rentre pas dans la sub si la collection est vide, donc arrivé au bout d'une branche ca redescend d'un niveau

suivre en pas à pas et regardant la pile d'appel peut aider à comprendre le processus

[Faladin]

exemple de récursivité qui ajoute tous les noeuds à une collection :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
Private _Coll as List(Of TreeNode)
 
 
Private Sub RemplissageColl()
    AddNodesToColl(MonTreeView.Nodes)
End Sub
 
 
 
Private Sub AddNodesToColl(NodesNiveau as TreeNodeCollection)
 
    For Each tn as Treenode In NodesNiveau 
        _Coll.Add(tn)
        AddNodesToColl(tn.Nodes)
    Next
 
End Sub

Erreur sur la ligne:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

_Coll.Add(tn)

Object reference not set to an instance of an object.

[Faladin]

Je comprends pas l'erreur de ton code, mais je n'avais pas besoin de monter une liste. Voici donc mon code fonctionnel qui cherche le chemin complet associé au noeud cherché.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
        Public chemin As String = ""
 
Private Function Seek_Path(ByVal NodesNiveau As TreeNodeCollection, ByVal Seeked_Node As String)
        For Each tn As TreeNode In NodesNiveau
            '_Coll.Add(tn)
            If tn.Text = Seeked_Node Then
                If chemin = "" Then
                    chemin = tn.FullPath & "\"
                End If
                Exit For
            Else
                Seek_Path(tn.Nodes, Seeked_Node)
            End If
        Next
        Return chemin
End Function

Et j'appelle la fonction comme suit (imbriquer dans une autre fonction..)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
        open_item_window(DipLine, trouver_chemin(Explo_win.TreeView.Nodes, TBLine.Text))
        Fonction.chemin = ""

[Faladin]

Ah euh...j'oubliais...

Merci beaucoup!

héhé

[Pol63]

mon erreur était de mettre
Private _Coll as List(Of TreeNode)
au lieu de
Private _Coll as New List(Of TreeNode)

cette erreur est la plus simple à déceler pourtant ...

[Faladin]

cette erreur est la plus simple à déceler pourtant ...

sperot51
Expert Confirmé Sénior
Date d'inscription: avril 2007
Messages: 2 133

VS

Faladin
Membre régulier
Date d'inscription: juillet 2007
Messages: 126

.......

Je suis pas de taille...Merci de m'encourager

Même GoogleFight te donne vainqueur