树状图 TreeView控件--访问控件的所有节点

因为Nodes集合中所包含的只是本级节点的集合，如果某个Node包含有子节点，并不会从当前的Nodes体现出来，如下代码所示，我们只能访问到所有的根节点而不是所有的节点。

假定我们是在前面示例的基础上添加一个名为“遍历节点”的按钮，然后在该按钮的Click事件中添加如下代码：

Dim node As TreeNode

Dim str As String = ""

For Each node In TreeView1.Nodes

str = str & node.Text & vbCr

Next

MessageBox.Show(str)

node = Nothing

运行后，先分别为控件添加若干个根节点与子节点，然后单击“遍历节点”按钮，效果如下图六所示：

很明显，我们遍历了Nodes集合，但是并没有如期访问到子节点，怎么解决这个问题呢？请看下一页。

如上页的问题，我们假设一个根节点的Nodes集合为Nodes1，该集合中的一个Node节点为Node2，Node2下有若干个子节点，我们把它的子节点的集合称为Nodes2，我们用For Each 遍历Nodes1时，它访问到Node2，但不会访问Nodes2集合。

如果我们要访问Nodes2，就需要像遍历Nodes1一样遍历Nodes2，解决办法如下：

首先，建立一个过程用于遍历一个Node节点下的子节点：

Private Sub PrintNode(ByVal N As TreeNode)

Debug.WriteLine(N.Text)

Dim node As TreeNode

For Each node In N.Nodes

PrintNode(node)

Next

End Sub

 

然后把“遍历节点”的Click事件中修改为如下代码：

Dim node As TreeNode

For Each node In TreeView1.Nodes

PrintNode(node)

Next

node = Nothing

 

运行后，先分别为控件添加若干个根节点与子节点，然后单击“遍历节点”按钮，然后查看“输出”窗口，效果如下图七所示：

可以发现已经能真正地遍历了所有节点。