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.

[Faladin]

TreeNodeCollection.Clear Method

You can use this method to clear the entire collection of tree nodes from a tree view.

Bon je crois bien que c'Est supposé nettoyer la liste alors...Je ne comprends donc toujours pas d'où vient mon bug!!

[zehle]

Teste un Refresh ou un Validate

qui sais ?

[Faladin]

J'ai déjà essayer avec les BeginUpdates, EndUpdates et Update, sans succès, mais pas avec les autres que tu viens de dire...

Je m'y lance, croisons les doigts...

[Faladin]

Validate n'existe pas
Refresh ne change absolument rien à mon bug.

La seule technique que j'ai trouvé semble être de fermé mon navigateur et de le réouvrir avec la nouelle racine, ce qui détruit le TreeView donc il ne peut pas bugger.

Par contre, c'est pas chic et à l'écran ça se voit, la form ouvre et ferme rapidement...

Je suis assez dérouté

[Faladin]

Bon je sombre dans l'oubli.

Je vais mettre la discussion , même si elle ne l'est pas vraiment.

J'ai donc fait comme mentionné plus haut, soit fermé et ouvrir mon formulaire qui contient l'arbre.

Par contre, je ne comprends pas ce qui causait mon bug.

salut et merci pour l'aide

[DelphiManiac]

Le problème vient du fait que tu passes "noeud As TreeNode" byref alors qu'il faut le passer byval.

Un objet doit être passé byval vu que c'est une référence au nœud.

Par contre je ne suis pas certain que ce soit normal que le treenode se duplique quand tu le passes en byref. Serais ce un bug ? ^^

[Faladin]

Le problème vient du fait que tu passes "noeud As TreeNode" byref alors qu'il faut le passer byval.

Un objet doit être passé byval vu que c'est une référence au nœud.

Ah ben la Bravo! En plein dans le mille!!! J'vais aller bien lire la différence entre ByRef et ByVal car je n'aurais jamais pu trouver ça par moi-même, autre que par des essais au hasard! Merci beaucoup DelphiManiac, et encore bravo!

Par contre je ne suis pas certain que ce soit normal que le treenode se duplique quand tu le passes en byref. Serais ce un bug ? ^^

La je peux pas aider, si jamais dans mes lectures je trouve je remets le passage ici...

[Faladin]

Faut pas oublier le truc le plus bizarre dans tout ça:

L'arbre se dupliquait visuellement mais pas dans la collection des noeuds de l'arbre. Il ne contenait qu'un noeud racine. Mais je pouvais toujours travailler avec mon arbre, ie que sur un événement clic je load les fichiers contenus dans le dossier, et autant sur l'original que sur le dupli ça fonctionnait...