Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Picalausa François
Hello,
Tu peux te référer à la propriété Parent d'un objet node:
Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node) Dim CurrentNode As Node
'Affiche tous les parents du node dans la listbox List1 List1.Clear
'Part du noeud sélectionné Set CurrentNode = Node
'Tant qu'il y a des noeuds à parcourir dans la hiérarchie While Not CurrentNode Is Nothing 'Le 0 permet l'ajout du noeud de manière triée dans la liste. Sinon, on le récupère à l'envers. List1.AddItem CurrentNode.Text, 0
'Passe au noeud suivant dans la hiérarchie Set CurrentNode = CurrentNode.Parent Wend End Sub
-- Picalausa François
"Jean Naimard" a écrit dans le message de news: dohqht$lqn$
Bonjour,
Je cherche un exemple simple pour remonter l'arbre d'un treeview afin d'avoir la liste complete de tous les parents d'un node.
merci de votre aide
Hello,
Tu peux te référer à la propriété Parent d'un objet node:
Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)
Dim CurrentNode As Node
'Affiche tous les parents du node dans la listbox List1
List1.Clear
'Part du noeud sélectionné
Set CurrentNode = Node
'Tant qu'il y a des noeuds à parcourir dans la hiérarchie
While Not CurrentNode Is Nothing
'Le 0 permet l'ajout du noeud de manière triée dans la liste. Sinon,
on le récupère à l'envers.
List1.AddItem CurrentNode.Text, 0
'Passe au noeud suivant dans la hiérarchie
Set CurrentNode = CurrentNode.Parent
Wend
End Sub
--
Picalausa François
"Jean Naimard" <Jean_Naimard_des_Spams@yahoo.fr> a écrit dans le message de
news: dohqht$lqn$1@apollon.grec.isp.9tel.net...
Bonjour,
Je cherche un exemple simple pour remonter l'arbre d'un treeview afin
d'avoir la liste complete de tous les parents d'un node.
Tu peux te référer à la propriété Parent d'un objet node:
Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node) Dim CurrentNode As Node
'Affiche tous les parents du node dans la listbox List1 List1.Clear
'Part du noeud sélectionné Set CurrentNode = Node
'Tant qu'il y a des noeuds à parcourir dans la hiérarchie While Not CurrentNode Is Nothing 'Le 0 permet l'ajout du noeud de manière triée dans la liste. Sinon, on le récupère à l'envers. List1.AddItem CurrentNode.Text, 0
'Passe au noeud suivant dans la hiérarchie Set CurrentNode = CurrentNode.Parent Wend End Sub
-- Picalausa François
"Jean Naimard" a écrit dans le message de news: dohqht$lqn$
Bonjour,
Je cherche un exemple simple pour remonter l'arbre d'un treeview afin d'avoir la liste complete de tous les parents d'un node.
