Question

如何遍历树的所有节点

Answer 1

 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        CallTreeView(Me.TreeView1)
    End Sub
    Private Sub ForTreeNode(ByVal TempNode As TreeNode)
        MessageBox.Show(TempNode.FullPath)
        Dim aNode As TreeNode
        For Each aNode In TempNode.Nodes
            ForTreeNode(aNode)
        Next
    End Sub
    Private Sub CallTreeView(ByVal aTreeView As TreeView)
        Dim TempNode As TreeNode
        For Each TempNode In aTreeView.Nodes
            ForTreeNode(TempNode)
        Next
    End Sub