how to swap two nodes of a treeview

[Sam]

Hi,
How can I swap positions and values of two nodes in a treeview ?

Thx

 

[Phil G.]

Sam,

Treenode has a collection, TreeNodeCollection (would you believe! . This
collection class has an item property that takes an index. So, yes it should
be pretty simple as long as you know the indices or relative indices!

HTH, Phil

 

[Sam]

Hi Phil,

So, yes it should be pretty simple

I wish it was

I can swap the text of two nodes no problem, which means my indexes are
correct at least. However when I swap the nodes, there is no effect at
all :

Dim n1 As TreeNode = FindControlNode(CType(obj1, Field))
Dim n2 As TreeNode = FindControlNode(CType(obj2, Field))

Dim tmp As TreeNode = n1
n1 = n2
n2 = tmp

Can you help?

 

[Sam]

I 've solved the problem by doing series of RemoveAt and Insert

 

[aa25]

Re: How to swap two treenodes in a treeview

... for all those who are almost desperate, here is what I use:


'before calling this sub in my code I've already checked if n1 and n2 are the children of 'the same parent node

Private Sub swapNodes(ByVal n1 As MyTreeNode, ByVal n2 As MyTreeNode, Optional ByVal nSelected As MyTreeNode = Nothing)

Dim nParent As MyTreeNode = n1.Parent



If nParent IsNothingThenExitSub 'in my code I prevent top level nodes swapping

​

​

​

​

​

Me.MTreeView1.BeginUpdate()


nParent.Nodes.RemoveAt(n2.Index)

nParent.Nodes.RemoveAt(n1.Index)

nParent.Nodes.Insert(n2.Index - 1, n1)

nParent.Nodes.Insert(n1.Index, n2)

Me.MTreeView1.Focus()

Me.MTreeView1.EndUpdate()

If nSelected Is Nothing Then nSelected = n2

MTreeView1.SelectedNode = nSelected





​

EndSub