Private Sub PrintRecursive(ByVal
n As TreeNode)
System.Diagnostics.Debug.WriteLine(n.Text)
'Muestra el texto del nodo en la ventana de inmediato
MessageBox.Show(n.Text) 'Muestra
el mismo mensaje por pantalla
'*** Es aqui donde añado lo que necesito guardar de cada
nodo ***
Dim aNode As TreeNode
'Por cada nodo de la raiz
For Each aNode In n.Nodes
PrintRecursive(aNode)
Next
End Sub
'Llame al procedimiento usando los nodos superiores de la
vista de árbol.
Private Sub CallRecursive(ByVal aTreeView As TreeView)
Dim n As TreeNode
'Por cada raíz
For Each n In aTreeView.Nodes
PrintRecursive(n)
Next
End Sub
No hay comentarios:
Publicar un comentario