troperation.bas

vb控件vb控件vb控件vb控件vb控件vb控件vb控件

Attribute VB_Name = "TrOperation"
 Sub CopySubNode(Soutv As Treeview, SouNd As Node, DesTv As Treeview, DesNd As Node)
    Dim i As Integer
    Dim so As Node, de As Node
    If SouNd.Children = 0 Then Exit Sub
    Set so = SouNd.Child
    For i = 1 To SouNd.Children
        Set de = DesTv.Nodes.Add(DesNd, tvwChild, , so.Text, so.Image, so.SelectedImage)
        de.Expanded = True
        CopySubNode Soutv, so, DesTv, de
        Set so = so.Next
    Next
 End Sub
 Sub DeleteNode(Soutv As Treeview, SouNd As Node)
    If SouNd Is Nothing Then Exit Sub
    Soutv.Nodes.Remove SouNd.Index
End Sub