Pointer tous les fils, sous-fils ... d'1 NodeRésolu

Question

J'aimerais lorsque je click dans 1 check d'un node que tous les fils, sous-fils, sous-sous ....., enfin que toute la branche soit pointée, mais ça paraît + compliqué que je l'imaginais : en utilisant lastSibling ça ne suffit pas ! je fais :
For I = Node.index to Node.child.lastSibling.index
    ' mes opérations
Next

Mais ça ne pointe pas tout.

Merci de votre aide

Gobillot · Accepted Answer

et si t'essayais çà:

 For I = Node.Index To Treeview1.Nodes.Count
       'mes opérations
       Next

yan35 · Answer

D'abord, Merci de ta réponse.
Je vais essayer, mais je me demande si ça répond à mon besoin car je pense que ça pointera tous les Nodes du TV et non tous les Nodes et sous-Nodes ... du Node Checked (en d'1 branche).

Merci encore

Gobillot · Answer

oui je sais. à toi de tester si c'est bien un enfant, et pour chaque enfant voir s'il y a des enfants, etc...
je pense qu'il faudra passer par la récursivité.
Daniel

yan35 · Answer

Merci de ta réponse.
Oui, il faut passer à la récursité, mais je patine !
Si tu as des suggestions Merci..
J'essaye 1 truc du style, mais je n'arrive pas à récupérer 1 node dans la procédure appelée :


            For I = Node.Index To Node.Child.LastSibling.Index 
                If Tree.Nodes(I).Checked = False Then
                    Tree.Nodes(I).Checked = True
                End If
                If Tree.Nodes(I).Children > 0 Then
                    CheckRecurs (Tree.Nodes(I).Child)
                End If
            Next

Public Sub CheckRecurs(NodEnfant As MSComctlLib.Node)

' pointage
End Sub

Gobillot · Answer

Call Rchild(Node.Index, Node.Key)

Private Sub Rchild(Index As Long, Parent As String)
    Dim i As Long
    For i = Index + 1 To tree.Nodes.Count
        If tree.Nodes(i).Parent.Key = Parent Then
           tree.Nodes(i).Cheched = True
           Call Rchild(tree.Nodes(i).Index, tree.Nodes(i).Key)
           End If
        Next
End Sub

yan35 · Answer

Merci bcp de ta réponse, je vais tester tout ça.
C'est sympa de me sortir de cette galère, les Nodes c'est pas mon truc !

Gobillot · Answer

OK Je te laisse tester.
si ça marche tu valides la réponse sinon tu dis pourquoi.

@ PLUS

yan35 · Answer

Merci ça marche, je valide toutes les réponses.
Pour info, mon code, sur lequel je bogguais marche aussi, j'avais oublié le call dans l'appel de ma proc et à chaque fois que je passais le node en argument j'obtenais 1 message d'erreur. Ta procédure n'y a fait penser ....
En tout cas MERCI de ton aide.

Gobillot · Answer

ok merci
tu as 2 façons d'appeler une procédure
avec parenthèses:
    Call CheckRecurs (Tree.Nodes(I).Child)
sans parenthèses:
    CheckRecurs  Tree.Nodes(I).Child

yan35 · Answer

Après d'autres tests, j'ai dû ajouter des compléments à ta procédure. 
Les voici :


Private Sub Rchild(Index As Long, Parent As String)
' procédure de pointage Récursive
Dim i As Long
For i = Index + 1 To Tree.Nodes.Count
    If Not Tree.Nodes(i).Parent Is Nothing Then 
'comme on pointe ts les nodes qui suivent, évite err avec nodes sans parents
        If Tree.Nodes(i).Parent.Key = Parent Then
            If Tree.Nodes(i).Checked = False Then
                Tree.Nodes(i).Checked = True
            End If
            If Tree.Nodes(i).Children > 0 Then  
            ' ne lance la récursité que s'il y a des enfants
                Call Rchild(Tree.Nodes(i).Index, Tree.Nodes(i).Key)
            End If
        End If
    End If
Next
End Sub



Je crois que c'est correct et utile si d'autres s'en servent.
Par Ailleurs, ma proc qui marche est moins bonne que la tienne car si on check 1 autre node ajouté séquentiellement après dans la TV triée en ordre croissant se servir des index pour délimiter la boucle For peut conduire à un index fin < que le début, alors qu'en pointant tous les nodes après celui sélectionné ne crée pas ce prblème .....

Merci bcp de ton aide.

Gobillot · Answer

Si on des enfants sans parents d'accord faut mettre le test sinon plantage. c'est pas le cas chez moi parce que je met tout en child, sauf le premier qui est parent, et comme je fais index+1 le premier n'est jamais pris.

Pour le test:
If Tree.Nodes(i).Checked = False Then
Tree.Nodes(i).Checked = True
End If
le mettre directement à True revient au même mais êvite un test.

Par contre tester la présence des enfants, c'est très bon, ça évite un tas de boucles inutiles.

Dans ton code, pour que la boucle For se fasse il faut inverser les index ou mettre step-1 (moins pratique).

Bonne Prog.  Daniel

yan35 · Answer

Bonsoir Daniel,

Effectivement mon test

If Tree.Nodes(i).Checked = False Then
Tree.Nodes(i).Checked = True
End If

est complétement inutile.

Merci encore
yannick

Gobillot · Answer

Essayer de répondre aux questions, ça permet d'apprendre un tas de choses. Il y a pas longtemps que je fais du VB et j'ai encore beaucoup à apprendre.

Celui qui sait qu'il ne sait pas, éduque le. Celui qui sait qu'il sait, écoute le. Celui qui ne sait pas qu'il sait, éveille le. Celui qui ne sait pas qu'il ne sait pas, fuis le. 

Bonne nuit Yannick.

smerlo · Answer

Vous m'enlevez une sacrée épine du pied avec ce post, je voyais bien qu'il fallait investiguer du côté de la reccursivité mais ça me faisait peur.
Un grand merci à tous les 2.

Pointer tous les fils, sous-fils ... d'1 Node

14 réponses

Discussions similaires