Как поменять местами две ветки TreeView?

[Sebas]

tn1.index=tn2.index

[Sebas]

сорри,в вб6 вроде пахало

тады remove insert

[RayShade]

Есть тривиальное решение. запоминаешь параметры нода, удаляешь его и создаешь заново, указав ему в качестве placement соседнее с нужной нодой положение.

Если нода имеет детей, то рекурсивно сохраняешь из все, скажем, в коллекцию, а потом рекурсивно же создаешь обратно.

[Ennor]

Можно сделать так: создать новую ноду в нужном месте, после чего перетащить в нее всех детей старой ноды, после чего старую грохнуть. Рекурсии здесь, по крайней мере, не требуется, т.к. захватывается только один уровень вложенности - ближайшие дети подопытного кролика. А перебрать их всех можно по свойствам Child и Next означенного кролика. Таким образом, непредсказуемая в общем случае глубина рекурсии у тебя заменяется одним Do ... Loop.

[Ennor]

Можно примерно так:

Код: Выделить всё

Dim V as MsComCtlLib.Node
...
Do Until V.Children = 0
  Me.tvw_Tree.Nodes.Remove V.Child.Key
Loop

Правда, не знаю, как это будет насчет производительности - скорее всего не фонтан. Да, и еще этот метод требует какого-нить уникального идентификатора - ключа в данном случае, на индекс я бы не полагался...