Bonjour tlm !
Après 3h30 de recherches infructueuses sur le net, je vous expose mon problème. Je dispose dans un treeview d'une liste de familles et de leurs sous familles (et leurs sous-sous-famille, etc ...)
ex:
Et je souhaite récupérer/afficher, lorsque l'utilisateur clic sur un élément de l'arbre, la liste de toutes les sous familles et sous-sous familles du noeud courant.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7 supFam1 subfam1 subfam1.1 subfam1.2 subfam1.3 subfam2 subfam2.1
Je pense a l'utilisation d'une méthode récursive, mais je ne sais pas comment parcourir récursivement les noeuds fils d'un noeud donné (celui qui a été cliqué).
Je pars sur la base suivante:
et bien entendu c'est la fonction ListerSousNoeuds(ByVal Nde As Object) qui me fait défaut
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5 Private Sub TV1_NodeClick(ByVal Nde As Object) dim resultat as string 'par exemple resultat = ListerSousNoeuds(Nde) End Sub
J'ai tenté d'utiliser des TreeNodes mais VBA/Access 2003 ne semble pas les reconnaître.
Merci de votre aide
Partager