如何移动treeview得整个节点（包括子节点）－－最好是比较简单得方法

Question

Private Sub Command1_Click()
    Set TreeView1.Nodes("abcd2").Parent = TreeView1.Nodes("abce")
    Set TreeView1.Nodes("abce1").Parent = TreeView1.Nodes("abce")
End SubPrivate Sub Form_Load()
    With TreeView1.Nodes
        .Add , , "abcd", "abcd"
        .Add "abcd", tvwChild, "abcd1", "abcd1"
        .Add "abcd", tvwChild, "abcd2", "abcd2"
        .Add "abcd2", tvwChild, "abcd201", "abcd201"
        .Add , , "abce", "abce"
        .Add "abce", tvwChild, "abce1", "abce1"
    End With
End Sub

Answer 1

那么上下移动呢？开始是
abcd
 |－－－abcd1
 |------abcd2
 |------abcd3
abce
 |------abce1
修改后：abcd
 |－－－abcd2
 |------abcd3
 |------abcd1
abce
 |------abce1

Answer 2

很简单，你可以直接更改要移动的节点的父节点为目标节点
Private Sub Command1_Click()
    
    Dim TmpNode As Node
    Set TmpNode = TreeView1.Nodes("q5qq")
    Set TmpNode.Parent = TreeView1.Nodes("q2qq")'主要的一句，实现移动
    
End SubPrivate Sub Form_Load()
    
    Dim TmpNode As Node
    TreeView1.Nodes.Add , , "qqq", "1"
    Set TmpNode = TreeView1.Nodes.Add(TreeView1.Nodes(1), tvwChild, "q1qq", "2")
    Set TmpNode = TreeView1.Nodes.Add(TmpNode, tvwChild, "q5qq", "6")
    Set TmpNode = TreeView1.Nodes.Add(TmpNode, tvwChild, "q6qq", "7")
    Set TmpNode = TreeView1.Nodes.Add(TmpNode, tvwChild, "q7qq", "8")
    TreeView1.Nodes.Add TreeView1.Nodes(1), tvwChild, "q2qq", "3"
    TreeView1.Nodes.Add TreeView1.Nodes(1), tvwChild, "q3qq", "4"
    TreeView1.Nodes.Add TreeView1.Nodes(1), tvwChild, "q4qq", "5"
    
End Sub

Answer 3

想不出还有什么办法了Private Sub Command1_Click()
    Set TreeView1.Nodes("abcd3").Parent = TreeView1.Nodes("abcd")
    Set TreeView1.Nodes("abcd2").Parent = TreeView1.Nodes("abcd")
End SubPrivate Sub Form_Load()
    With TreeView1.Nodes
        .Add , , "abcd", "abcd"
        .Add "abcd", tvwChild, "abcd1", "abcd1"
        .Add "abcd", tvwChild, "abcd2", "abcd2"
        .Add "abcd", tvwChild, "abcd3", "abcd3"
    End With
    TreeView1.Nodes("abcd").Expanded = True
End Sub