Discussion :

[Gabout]

Bonsoir,

Je viens d'achever l'adaptation d'un treeview récupéré sur le net.
La difficulté est de l'ordre de l'esthétisme. A l'ouverture du formulaire, les données sont présentées sans être correctement "rangées".

Je voudrais qu'elles apparaissent à l'utilisateur uniquement avec le premier niveau, libre à lui de développer la branche qui l'intéresse.

Dans le même ordre d'idée existe-t-il un moyen de développer l'ensemble des branches du treeview ?

[Tofalu]

Par défaut, quand on remplit un treeview, seule sa racine apparait.

Pour tout déployer, il faut parcourir chaque noeud. La question a été posée il y a quelques jours, effectue une recherche sur ce forum

[Moha25fr]

bonjour

Lors de la reconstruction du treeview
à la racine utilise .Expanded =false
Exemple
Set NodX = Xtree.Nodes.Add......
NodX.Expanded = False


A+

[Mahefasoa]

Salut Gabout,

Ce que je te propose est une façon de développer et de réduire une arborescence d'un TreeView.
Il va sans dire que tu connais les Nodes car c'est sur eux que s'applique la propriétés Expanded.
La syntaxe est la suivante:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

objet.Expanded=Bolean

Exemple: j'ai un treeview nommé Explor. Pour développer le troisième noeud dans Explor, je fais

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Explor.Nodes(3).Expanded=True

et pour le réduire, je fais

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Explor.Nodes(3).Expanded=False

Pour développer l'ensemble du treeview, tu as deux alternatives en utilisant la méthode EnsureVisible: soit à la création des noeuds, soit après (mais bien plus tard, par clic sur un bouton).
Pour le premier cas, après chaque création, tu ajoutes (je suppose que tu as utilisé une variable pour les noeuds, par exemple Dim ndx As Node)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ndx.EnsureVisible

L'avantage, c'est de ne pas avoir besoin de recourrir d'identifier l'index de chaque noeud.
Pour le second cas, il faut parcourrir chaque noeud du début à la fin en insérant ensuite la méthode pour développer

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
dim i as long
for i=1 to Explor.Nodes.Count
   explor.nodes(i).ensurevisible
next

et n'oublie pas de te replacer sur le premier élément du treeview.

J'espère que cela t'a aidé un peu.

[Gabout]

Tous mes remerciements, vous m'avez sorti un GROSSE épine du pied.

Bon week end à tous !