Discussion :

[Faladin]

Bon vendredi à tous!

J'ai cette sub récursive qui cherche tous les sous-dossiers à partir d'une racine passée en paramètre et affiche tous les sous-dossiers dans un TreeView:

Code :

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

1
2
3
4
5
6
7
8
    Public Sub LoadSubTree(ByRef noeud As TreeNode, ByVal chemin As String)
        For Each dossier In Directory.GetDirectories(chemin)
            noeud.Nodes.Add(Replace(dossier, chemin & "\", ""))
        Next
        For Each tn As TreeNode In noeud.Nodes
            LoadSubTree(tn, tn.FullPath)
        Next
    End Sub

À l'aide d'un bouton, je lances la routine comme ceci:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
    Public Sub LoadNewTree()
        Dim FolderBrowserDialog1 As New FolderBrowserDialog
        FolderBrowserDialog1.ShowNewFolderButton = False
        FolderBrowserDialog1.ShowDialog()
        If FolderBrowserDialog1.SelectedPath <> "" Then
            'Clear ou Remove donne le même résultat
            'Explo_win.TreeView.Nodes.Clear()
            Explo_win.TreeView.Nodes.RemoveAt(0)
            Explo_win.TreeView.Nodes.Add(FolderBrowserDialog1.SelectedPath)
            LoadSubTree(Explo_win.TreeView.Nodes(0), FolderBrowserDialog1.SelectedPath)
            Explo_win.TreeView.SelectedNode = Explo_win.TreeView.Nodes(0)
        End If
        Explo_win.TreeView.ExpandAll()
    End Sub

Le problème est qu'à la fin de l'exécution, mon TreeView contient 2 fois la même racine et tout ses sous-dossiers. J'ai beau faire du "step-by-step" mais je ne comprends pas comment il fait pour afficher une 2e fois la racine. De plus, à la fin de l'exécution, j'ai vérifié le TreeView.Nodes.Count et il est égal à 1. Donc le TreeView ne voit qu'un noeud, mais il y en a 2 d'afficher (voir load.jpg)


J'utilise la même fonction à l'ouverture pour ouvrir le dossier de base, sans problème.
(voir ouverture.jpg)

[zehle]

Code :

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

1
2
 
Explo_win.TreeView.Nodes.Clear()

au lieu de

Code :

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

1
2
 
Explo_win.TreeView.Nodes.RemoveAt(0)

non?


Edit : Avait pas lu le commentaire

[tigunn]

Salut,

Quelle valeur a le paramètre "chemin" au moment du premier appel de LoadSubTree(...) ? ou mieux que te donne

Code :

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

Replace(dossier, chemin & "\", "")

la 1ere fois?

[Faladin]

Salut,

Quelle valeur a le paramètre "chemin" au moment du premier appel de LoadSubTree(...) ? ou mieux que te donne

Code :

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

Replace(dossier, chemin & "\", "")

la 1ere fois?

La première fois, chemin à la valeur de mon chemin de base et le Replace donne bel et bien le nom de mon premier dossier parcouru (le Replace sert à afficher que le nom du dossier sur les noeuds de l'arbre et non leur chemin complet depuis le c:\)

J'ai fait le test au lancement de mon programme et suite à un changement de racine, en utilisant le même noeuds de base, et dans les deux cas c'est le même résultat pour le Replace.

-------

Aujourd'hui j'ai essayé aussi de faire du Step-by-Step en affichant un msgbox entre chaque ajout de noeud. J'ai remarqué que mes noeuds s'affichent correctement jusqu'à la dernière itération, à ce moment précis il rajoute un copier/coller de tous les noeuds qu'il vient de créer.

J'ai aussi remarqué que si je refais l'opération plusieurs fois à la suite, le dernier noeud est toujours gardé en mémoire dans l'arbre. Donc après 5 essais, j'avais 5 fois la même racine.

Donc, je me demande, est-ce que j'aurais mal compris le but de la fonction clear()?

Sinon, autres tentatives???

[tigunn]

D'après msdn:

La méthode Clear vide la collection et réinitialise sa propriété Count à 0.
&&
RemoveAt(index) Supprime Activity dans ICollection au niveau de l'index spécifié.

A mon avis clear() semble plus indiqué, mais a moins de faire appel plusieurs fois dans ton code a LoadNewTree(), je vois pa sen quoi cela pourrait jouer ??!!

[Faladin]

Ouais j'ai lu la même chose, je me disais que le RemoveAt(0) devais nécessairement supprimer que le noeud 0, mais les autres noeuds qui restent dans le TreeView après le changement de racine n'appartiennent PAS au treeview.

J'ai créer un simple bouton qui faire le TreeView.Clear(), et il ne supprime que le premier noeud en haut de la liste. D'où l'exemple que j'avais inclus en pièce jointe initialement, qui indiquait le nombre de noeuds dans la liste, et peut importe l'affichage il n'en comptait qu'un seul!!!

Donc les noeuds qui sont affichés une deuxième fois ne sont là qu'en affichage, et non dans la liste de l'arbre.