要在树中找东西,可以用个递归函数解决
如:
public function FindNode(tnc as TreeNodeCollection) as TreeNode
dim tNode as treenode
for each tNode in tnc
if tNode 满足条件 then
return tNode
else if tNode.nodes.count>0 then
dim tmpNode as treenode=findnode(tnode.nodes)
if not tmpNode is nothing then return tmpNode
else
return nothing
end if
next
return nothing
end function