Ordonner une Arborescence

Bonjour,

Je souhaite créer une arborescence avec des éléments qui se placent dans un ordre bien précis.
Je veux que l'utilisateur puisse monter ou descendre des éléments ou changer leur identation.

c'est exactement ce que fait l'outil de création de menus de VB6.

Existe t il un contrôle spéciale qui fait cela ?
Dans le cas contraire avez vous une solution ?

J'ai déja essayé avec le contrôl treeview mais c'est un bordel incroyable dès qu'il s'agit de déplacer des objets...

Je n'ai peut être pas la bonne méthode ?!!

Merci pour votre aide.

Lolux

Ben non, c'est avec le treeview que tu pourras représenter une arborescence !!

Christophe R.

Je ne souhaite pas la représenter, je souhaite la configurer.

Comme je le disais, l'outil de création de menus de Vb6 permer de créer des menus et non de les représenter.

Lolux

Ouais mais pour que ton utilisateur puissent déplacer tes items, il faut bien que tu les lui montre non ? ou alors je ne comprends pas ce que tu veux !!

Christophe R.

Tu comprend pas ce que je veux ;p)

Quand tu cré une arbo, il y a des noeud pères et des noeuds fils. Le problème c'est que les noeuds sont ordonnés dans leur ordre de création. Et oui ! Il n'y a pas de propriété qui indique le rang du noeud fils.
Donc ce que je voudrai c'est une sorte de liste simple dans laquel je peux (comme dans l'outil de créations de menu) monter et déscendre des lignes et modifier leur identation sans qu'il y ai de notion de noeuds pères ou fils.
Une fois que l'utilisateur a ordonné tout ça dans la liste, l'appli cré l'arborescence dans un treeview.

Simple non ?

Bon je vais continuer à cogiter.

Merci a toi

Lolux

Je capte rien ! Pourquoi tu ne veux pas faire travailler directement ton utilisateur sur une treeview !?
Ca simplifierai grandement les choses, non ?
Bouger les noeuds dans les treeview, ce n'est pas si complexe que cela !

Christophe R.

"Bouger les noeuds dans les treeview, ce n'est pas si complexe que cela "

Admetons que l'utiliateur a créé l'arbo suivante :

A ---> B ---> C ---> D ---> E ---> F

S'il veut modifier l'Ordre des noeuds C, D, E en D, E, C

A ---> B ---> D ---> E ---> C ---> F

Tu fais comment ?

Lolux

Comme cela :
Ajoute une Treeview nommé Treeview1 à une form, et deux boutons nommés Command1 et Command2
Ajoute ce code à celui de la form :

Private Sub Command1_Click() Dim Textbuffer As String, KeyBuffer As String, KeyBuffer2 As String On Error GoTo NoMore With TreeView1.SelectedItem Textbuffer = .Next.Text KeyBuffer = .Next.Key .Next.Text = .Text .Next.Key = "NewKey" .Text = Textbuffer KeyBuffer2 = .Key .Key = KeyBuffer .Next.Key = KeyBuffer2 .Next.Selected = True End With NoMore: End Sub Private Sub Command2_Click() Dim Textbuffer As String, KeyBuffer As String, KeyBuffer2 As String On Error GoTo NoMore With TreeView1.SelectedItem Textbuffer = .Previous.Text KeyBuffer = .Previous.Key .Previous.Text = .Text .Previous.Key = "NewKey" .Text = Textbuffer KeyBuffer2 = .Key .Key = KeyBuffer .Previous.Key = KeyBuffer2 .Previous.Selected = True End With NoMore: End Sub Private Sub Form_Load() With TreeView1.Nodes .Add , , "a", "a" .Add "a", tvwChild, "b", "b" .Add "a", tvwChild, "c", "c" .Add "a", tvwChild, "d", "d" .Add "a", tvwChild, "e", "e" .Add "a", tvwChild, "f", "f" .Item("f").EnsureVisible End With Command1.Caption = "Descendre" Command2.Caption = "Monter" End Sub

Et ca fonctionne
Christophe R.

J'ai oublié de préciser ! l'utilisateur doit sélectionner un noeud (le noeud "b" par exemple, puis cliquer sur les boutons "Monter" ou "descendre" pour faire bouger le noeud !
A noter qu'il ne faut surtout pas qu'un noeud ait pour clé la chaine "NewKey" !! mais cela peut se contourner assez facilement !

Christophe R.

Ahhhhh ! Très intéréssant !

Je n'avais jamais utilisé les commandes Next et Previous du TreeView et c'est ça qui me manquait.

Il me faut maintenant approfondir tout ça car cette problématique n'est qu'une partie de mon module.

Grand merci à toi pour cette info qui je n'en doute pas va enfin me faire avancer.

Tchô !

Lolux