vb.net 如何遍历treeviewr中的所有结点（winform）

[想飞的狼]

请问vb.net 如何遍历treeviewr中的所有结点，谢谢，在线等

[想飞的狼]

取出哪些是被选中的

[sp951]

递归 + 判断

[hua456]

dim arrSelectedNode as new arraylist

private sub getSelectedNode(p_node as treeNode)
dim node as treeNode

for each node in p_node.nodes
if node.IsSelected then
arrSelectedNode.add(node)
end if
if node.Nodes.count > 0
getSelectedNode(node)
end if
next
end sub

[积善成魔]

Private Sub GetCheckedNodes(ByVal nCollection As TreeNodeCollection, ByVal nTreeNods As TreeNode())

For Each n As TreeNode In nCollection
If n.Checked Then '打钩状态
ReDim Preserve nTreeNods(nTreeNods.Length)
nTreeNods(nTreeNods.Length - 1) = n
End If
GetCheckedNodes(n.Nodes, nTreeNods)
Next

End Sub

Private Function GetTreeViewNodes(ByVal nTreeView As TreeView) As TreeNode()

Dim nTreeNode(-1) As TreeNode
GetCheckedNodes(nTreeView.Nodes, nTreeNode)
Return nTreeNode

End Function