How can I order the nodes in a TreeView? (VB5)

[Mr Chat]

Hello all

I am trying to write a specialist outlining tool, using the TreeView
control (in VB5 running on W95).

It has gone quite well so far. I have found some very useful info on
how to read and write tree structures to disk, and I've even figured
out how to cut, copy and paste branches of the tree. So, I'm fairly
pleased with progress.

But, I've got one major problem. The order of the nodes is important,
and I can't find a way to control this. I mean that, for my
application, this:

=Animals
==Cats
==Dogs
==Horses
==Giraffes

Is NOT equivalent to this:

=Animals
==Dogs
==Cats
==Horses
==Giraffes

The functionality I want (using the first example above) is to drag
'Giraffes' over 'Dogs' and release it, such that we now have:

=Animals
==Cats
==Dogs
==Giraffes
==Horses

Sounds simple, but I can't seem to find a way of controlling the order
of the nodes (except that their order seems to be the order in which
they are created. I suppose I could re-create the whole tree by
writing it to disk, deleting it, then re-reading it, every time there
is a drag and drop, but this seems a bit elaborate...).

Any help you can give me would be very much appreciated.

Thanks

Mr Chat

[Steve Gerrard]

It's not elegant, but this sort of code should do the trick:

Private Sub Command1_Click()
'add some test nodes
With TreeView1
Call .Nodes.Add(, , , "First")
Call .Nodes.Add(, , , "Second")
Call .Nodes.Add(, , , "Third")
End With
End Sub

Private Sub Command2_Click()
Dim oOldNode As Node
Dim oNewNode As Node

With TreeView1.Nodes
'get node #3
Set oOldNode = .Item(3)
'remove it from tree
Call .Remove(3)
'add a new node in front of #2, set key and text to old node
Set oNewNode = TreeView1.Nodes.Add(2, tvwPrevious, oOldNode.Key,
oOldNode.Text)
'set other properties as needed
oNewNode.Image = oOldNode.Image
'etc
End With

End Sub
"Mr Chat" <sa*****@richariya.freeserve.co.uk> wrote in message
news:54**************************@posting.google.c om...

Hello all

I am trying to write a specialist outlining tool, using the TreeView
control (in VB5 running on W95).

It has gone quite well so far. I have found some very useful info on
how to read and write tree structures to disk, and I've even figured
out how to cut, copy and paste branches of the tree. So, I'm fairly
pleased with progress.

But, I've got one major problem. The order of the nodes is important,
and I can't find a way to control this. I mean that, for my
application, this:

=Animals
==Cats
==Dogs
==Horses
==Giraffes

Is NOT equivalent to this:

=Animals
==Dogs
==Cats
==Horses
==Giraffes

The functionality I want (using the first example above) is to drag
'Giraffes' over 'Dogs' and release it, such that we now have:

=Animals
==Cats
==Dogs
==Giraffes
==Horses

Sounds simple, but I can't seem to find a way of controlling the order
of the nodes (except that their order seems to be the order in which
they are created. I suppose I could re-create the whole tree by
writing it to disk, deleting it, then re-reading it, every time there
is a drag and drop, but this seems a bit elaborate...).

Any help you can give me would be very much appreciated.

Thanks

Mr Chat