перемещение node'ов в TreeView

[Chuvak]

допустим есть дерево в TreeView:

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


1
  11
  12
  13
  14
  15
2
3
4


надо при нажатии на кнопку переместить узел, например, "14" выше
т.е., чтобы стало так:

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

1
  11
  12
  14
  13
  15
2
3
4


как это можно сделать?

[RayShade]

Вот так примерно:

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


Public Sub tvMoveTreeItem(Optional direction As String = "DOWN")
Dim st As String
Dim ndx As Node
Dim vname, vkey, vimage, vimagesel As String
If tvXML.SelectedItem Is Nothing Then Exit Sub
If tvXML.Nodes.Count = 1 Then Exit Sub

Select Case direction
Case "UP":
If tvXML.SelectedItem.Previous Is Nothing Then Exit Sub
vkey = tvXML.SelectedItem.Key
vimage = tvXML.SelectedItem.Image
vname = tvXML.SelectedItem.Text
vimagesel = tvXML.SelectedItem.SelectedImage
st = tvXML.SelectedItem.Previous.Key
tvXML.Nodes.Remove tvXML.SelectedItem.Key
Set ndx = tvXML.Nodes.Add(st, tvwPrevious, vkey, vname, vimage, vimagesel)
Set tvXML.SelectedItem = ndx
Case "DOWN":
If tvXML.SelectedItem.Next Is Nothing Then Exit Sub
vkey = tvXML.SelectedItem.Key
vimage = tvXML.SelectedItem.Image
vimagesel = tvXML.SelectedItem.SelectedImage
vname = tvXML.SelectedItem.Text
st = tvXML.SelectedItem.Next.Key
tvXML.Nodes.Remove tvXML.SelectedItem.Key
Set ndx = tvXML.Nodes.Add(st, tvwNext, vkey, vname, vimage, vimagesel)
Set tvXML.SelectedItem = ndx
End Select
End Sub


[Chuvak]

так-то всё ништяк, а вот если дерево такое:

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

1
  11
      111
      111
  12
      121
      122
      123
  13
      131
  14
      141
      142
  15
      151
2
3
4


короче, если у узлов есть вложенные узлы

[RayShade]

Я эту проблему тоже решил Мог если надо код послать по почте потому что он длинный очень

[Chuvak]

буду ждать

[Chuvak]

реальное спасибо

[RayShade]

Код довольно сумбурен Но разобраться можно. Если вопросы будут то пиши.

[Chuvak]

одна проблема появилась при перемещении узла без вложений

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

  If vkey Like "KEY*" Then
    Set ndx = var_TreeView.Nodes.Add(st, tvwNext, vkey, vname, vimage)
  Else
    Set ndx = var_TreeView.Nodes.Add(st, tvwNext, vkey, vname, vimage)' в этой строке
  End If


пишет ошибку "Element not found"

[AndyGee]

А можно мне этот код, пожалуйста!
andygee@aub.kg

[RayShade]

Я думаю, можно просто поставить On error resume next и забить

[Chuvak]

всё, я разобрался, всё пашет