[vb.net][treeview] Construction d'un Treeview

Version imprimable

Voir 40 message(s) de cette discussion en une page

09/02/2006, 10h06
arnolem

[vb.net][treeview] Construction d'un Treeview
Rebonjour, j'ouvre un autre poste pour ne pas mélanger les idées.
J'ai des chaines qui ressemble à ça

Citation:

c:\windows
c:\windows\system32
c:\windows\system32\truc.txt
c:\tmp\
c:\tmp\tmp.tmp

j'ai une boucle qui lie ligne par ligne et j'arrive séparer les élement dans le but d'en créer un arbre.
Je voulais savoir comment créer correctement cette arborescence:
Création d'un Node parent unique C:\
Création de Node enfant unique Windows & tmp
...

j'ai seulement réussi à faire ça dans une boucle pour le moment :
Code:

1 2 3 4 TreeView.Nodes.Add(_element(1)) 'c:\ & TreeView.Nodes.Add(_element(2)) 'windows & tmp TreeView.Nodes.Add(_element(3)) 'truc.txt & tmp.tmp
Mais j'ai bien entendu une arborecence à plat et chaque node répété.
help me please :?
09/02/2006, 10h23
toniolol

Re: [vb.net][treeview] Construction d'un Treeview

Salut,
je ne suis pas un pro des TreeView...j'en utilise depuis lundi !
Je me demande si tu ne pourrais pas faire quelque chose avec la propriété FullPath.
Du genre chercher dans tes noeuds si un FullPath correspond au répertoire de ton fichier à rajouter...c'est un peu brouillon mais je vois la chose de cette manière !
09/02/2006, 10h26
arnolem

ben non, j'ai regardé mais FullPath est readOnly, tu ne peux pas dire que le fullpath d'un node est "c:\tmp\tmp.txt"
tu peux juste lire la valeur d'un noeud
merci quand meme
09/02/2006, 10h39
graphicsxp

Marrant je fais un truc un peu similaire (mais plus compliqué :P ) en ce moment. Ajoute ton premier node parent, ensuite pour les enfants tu fais une boucle. Mais avant d'ajouter un node enfant, parcours ton 'arbre' récursivement depuis le parent du node a ajouter, ensuite le parent du parent et ainsi de suite jusqu'au root node. A chaque fois tu regardes si le node enfant que tu voulais ajouter existe déjà ou non dans l'arborescence. Si oui alors tu arretes la récursion.
09/02/2006, 10h40
arnolem

en fait je n'arrive pas à 2 choses
1 - Définir qu'un noeud est déja existant afin de ne pas le recreer
2 - Créer un Noeud enfant du dernier noeud créer

Je te file mon code en brut. BuildSubTree est en fait appellée dans un boucle pour chaque root node de ton tree.
chkExists vérifie si le node enfant que tu t'appretes a ajouter, a déjà été ajouté ou non auparavant dans sa hierarchie de nodes parents seulement.
Je précise que pour comparer deux nodes, j'utilise un QueryID (propre a mon projet) stocké dans .Tag
Ca devrait t'aider a avancer car.
Bon courage.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
 Public Function chkExists(ByVal n As TreeNode) As Boolean
        m_retval = False
        If Not n Is Nothing Then
            If DirectCast(n.Tag, Query).QueryID = m_curQueryId Then
                m_retval = True
            ElseIf Not n.Parent Is Nothing Then
                chkExists(n.Parent)
            End If
        End If
        Return m_retval
    End Function
 
 Public Sub BuildSubTree(ByVal n As TreeNode)
        'get the queries that the current query link to 
        Dim dt As DataTable = GetQueryLinks(CType(n.Tag, Query).QueryID)
        Dim stopLoop As Boolean = False
        If dt.Rows.Count > 0 Then
            For Each row As DataRow In dt.Rows
                'find that query in m_dtAllQueries to get its name (sortorder ?)
                Dim r As DataRow = m_dtAllQueries.Rows.Find(row("LinkedQueryId"))
                'create the query
                Dim q As New Query(r("QueryName").ToString, CInt(r("QueryId")), CInt(r("SortOrder")))
                'create the new node and add it
                Dim n1 As TreeNode = n.Nodes.Add(q.QueryID.ToString)
                n1.Tag = q
                RemoveSourceQuery(q)
                AddAllQueryLinks(q)
                'find recursively if the current query was referenced before as a parent, then we are running into an infinite loop
                'the condition for stopping the recursion is met. Just add an extra (...) node for making it user-friendly
                m_curQueryId = DirectCast(n1.Tag, Query).QueryID
                If chkExists(n) Then
                    stopLoop = True
                    n1.Nodes.Add("...")
                End If
                'carry on the recursion
                If Not stopLoop Then BuildSubTree(n1)
                stopLoop = False
            Next
        End If

09/02/2006, 10h51
arnolem

merci je regarde ça :wink:

petit problème de comprehension :

si je vais ça, sa ne marche pas :
Code:

1 2 3 4 5 TreeView.Nodes.Add("C") TreeView.Nodes(0).Nodes.Add("Windows") TreeView.Nodes(1).Nodes.Add("System32") TreeView.Nodes(3).Nodes.Add("fichier.txt")
si déja manuellement çça marche pas, comment faire en boucle , lol

09/02/2006, 12h08
graphicsxp
Code:

TreeView.Nodes.Add("C")

là tu ajoutes C comme root node

Code:

TreeView.Nodes(0).Nodes.Add("Windows")

là tu ajoutes Windows en tant que child node de C
Code:

1 2 TreeView.Nodes(1).Nodes.Add("System32") TreeView.Nodes(3).Nodes.Add("fichier.txt")
et là.... tu fais n'importes quoi :D . Tu essayes d'ajouter des child nodes au root nodes 2 et 4 (l'index commence a 0) et qui donc n'existent meme pas.

Pour ajouter un child node a Window:

Code:

TreeView.Nodes(0).Nodes(0).Nodes.Add("System32")

Donc utilise la récursivité pour ton besoin.
09/02/2006, 12h15
arnolem

oki ! merci, c'est vraiment la mer..
moi qui pensait faire un Nodes(i), ça va etre chaud maintenant
bon vais un passer du temps mes bon, faut que ça marche.
Sinon a tu penser par passer par un fichier xml, ou dans mon cas, repasser par un dataSet ?
09/02/2006, 12h16
graphicsxp

Citation:

Envoyé par arnolem

Sinon a tu penser par passer par un fichier xml, ou dans mon cas, repasser par un dataSet ?

Pour faire quoi :?:

et au lieu de faire un :

Code:

1
2
3
4
5
 
TreeView.Add("_root")
TreeView.Nodes(0).Nodes.Add("dossier")
TreeView.Nodes(0).Nodes(0).Nodes.Add("dossier")
TreeView.Nodes(0).Nodes(0).Nodes(0).Nodes.Add("fichier")

on peut pas faire un :

Code:

1
2
3
4
5
 
TreeView.Add("_root")
TreeView.PreviewNode.Add("dossier")
TreeView.PreviewNode.Nodes.Add("dossier")
TreeView.PreviewNode.Nodes.Add("fichier")

PreviewNode n'existe pas, c'et moi qui ai mis sa !

09/02/2006, 12h21
arnolem

Citation:

Envoyé par graphicsxp

Citation:

Envoyé par arnolem

Sinon a tu penser par passer par un fichier xml, ou dans mon cas, repasser par un dataSet ?

Pour faire quoi :?:

ben au lieu de créer ligne par ligne, tu créer un objet qui stocke l'arborescence que tu charge en une ligne.

Citation:

Envoyé par neguib

Je crois qu'en premier lieu, il serait interressant que ce fichier soit un xml qui structure déjà l'arborescence des paths répertoriés ainsi sa gestion par exemple dans l'appli pour un Treeview serait grandement simplifié
09/02/2006, 12h24
graphicsxp

Citation:

Envoyé par arnolem

Citation:

Envoyé par graphicsxp

Citation:

Envoyé par arnolem

Sinon a tu penser par passer par un fichier xml, ou dans mon cas, repasser par un dataSet ?

Pour faire quoi :?:

ben au lieu de créer ligne par ligne, tu créer un objet qui stocke l'arborescence que tu charge en une ligne.

Citation:

Envoyé par neguib

Je crois qu'en premier lieu, il serait interressant que ce fichier soit un xml qui structure déjà l'arborescence des paths répertoriés ainsi sa gestion par exemple dans l'appli pour un Treeview serait grandement simplifié

Certes pourquoi pas? Mais ce n'est pas compliqué de faire une méthode récursive qui le fait, d'ailleurs je t'ais donné le code.
D'ou sort cette citation de Neguib, je ne vois aucun post de lui ici 8O
09/02/2006, 12h38
arnolem

sorry, http://www.developpez.net/forums/vie...591724#2591724
09/02/2006, 15h53
arnolem
bon je suis toujour dessus, je fais un autre truc un peu moin compliqué pour les besoins que j'en ai.
Peut tu me dire comment vérifier qu'un node existe à partir de son nom
je le faisait comme ça avec des datacolone :
Code:

1 2 3 If Not (Dt.Columns.Contains(_Col)) Then Dt.Columns.Add(_Col, GetType(String)) End If
09/02/2006, 15h57
graphicsxp

Pourquoi ne pas stocker tes noms de répertoires dans le tag des nodes?
Ensuite tu compares le tag du node courant avec le tag du node le précédent dans la hierarchie (parent) et ainsi de suite jusqu'au root node. Tu fais ca récursivement en utilisant le code que je t'ai donné. Tu remarqueras que je compare deux nodes en utilisant leur tag (mais je vais plus loin car je compare en fait une propriété que j'ai appellé QueryId et qui appartient a l'objet stocké dans le tag. Pour toi le tag sera de type String tout simplement.
09/02/2006, 16h00
neguib

:lol: http://www.developpez.net/forums/tem...ini_search.gif Recherche avancée sur le forum

tu veux parler de çà http://www.developpez.net/forums/viewtopic.php?t=418119&highlight=treenode :wink:

Citation:

Envoyé par neguib

:lol: http://www.developpez.net/forums/tem...ini_search.gif Recherche avancée sur le forum

tu veux parler de çà http://www.developpez.net/forums/viewtopic.php?t=418119&highlight=treenode :wink:

héhé, Neguib l'oeuil de Lynx. :lol:
[EDIT]
Heu, par contre la c'est une recherche dans les nodes enfants. Ce qu'il veut ici c'est une recherche récursive dans les parents du node enfant, donc l'inverse.

Plus un truc de ce genre donc:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 Private m_retval as boolean Private m_name as String Public Function chkExists(ByVal n As TreeNode) As Boolean m_retval = False If Not n Is Nothing Then If n.Text.Equals(m_name) Then m_retval = True ElseIf Not n.Parent Is Nothing Then chkExists(n.Parent) End If End If Return m_retval End Function

merci, ça marche nikel :

Code:

1
2
3
4
5
6
7
8
9
10
 
   tv.Nodes.Add(_server)
        Dim n As TreeNode
        For Each _row As DataRow In Dt.Rows
            Dim tn As TreeNode = Me.GetNodeByName(Me.tv.Nodes, _row("Partage").ToString)
            If Not (tn Is Nothing) Then
            Else
                tv.Nodes(0).Nodes.Add(_row("Partage").ToString)
            End If
        Next

Voir 40 message(s) de cette discussion en une page