treeview中的node 递归算法

Question

Private Function ListTree(ByVal xNode As node) As Nodes
Dim xx As nodeSet xx = xNode.NextNodes = ListTree.Add(xx, tvwChild, xx.Key)ListTree xx
End Function
'----------------------算法的目的是求任意节点下所有子节点的key.不知道我这样写有什么不对的？？请各位指教。

Answer 1

Private Sub Command1_Click()
    Dim nodex As Node
    For Each nodex In TreeView1.Nodes
        Debug.Print nodex.Text
    Next
End Sub

Answer 2

Private Sub Command1_Click()
    Dim nodex As Node
    For Each nodex In TreeView1.Nodes
        Debug.Print nodex.Key
    Next
End Sub