Treeview中遍历的问题：Treeview.Nodes

Question

public string DOMDepthFirst(TreeNode tn)
{ 
string strUpdata;;
int i;
 //节点
if (tn.Nodes.Count!=0)
{
for (i=0;i<tn.Nodes.Count;i++)
{
 DOMDepthFirst(tn.Nodes[i]);
}
}
   
}

Answer 1

Sub setfocus(ByVal Trv As TreeView,ByVal PID as string)
        Dim i As Integer
        For i = 0 To Trv.Nodes.Count - 1
            Trv.Nodes(i).Expanded = False
            If Trv.Nodes(i).ID = PID Then
                addnode(trv.nodes(i))
            End If
            setchildfocus(Trv.Nodes(i), PID)
        Next    End Sub
    Sub setchildfocus(ByRef node As TreeNode, ByVal PID As String)
        Dim i As Integer
        If node.Nodes.Count > 0 Then
            For i = 0 To node.Nodes.Count - 1
                'node.Nodes(i).Expanded = False
                If node.Nodes(i).ID = PID Then                   addnode(node.nodes(i))
                End If
                setchildfocus(node.Nodes(i), PID)
            Next
        End If
    End Subsub addnode(Byval node as treenode)
   dim xnode as treenode
   xnode.text="text1"   
   node.nodes.add(xnode)
end sub