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

Question

http://expert.csdn.net/Expert/topic/1793/1793753.xml?temp=.5592157

Answer 1

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 2

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