Recorrer TreeView en forma recursiva

Por medio de la siguiente función se puede recorrer todos los nodos de un TreeView




Private Sub RecorrerTreeView(ByRef Nodos As TreeNodeCollection)
     For Each Nodo As TreeNode In Nodos
          If Nodo.ChildNodes.Count = 0 Then
                Nodo.Text = "Hijo"
          Else
                Nodo.Text = "Padre"
                RecorrerTreeView(Nodo.ChildNodes)
          End If
     Next
End Sub




La llamada a la función sería



Private Sub Page_Load(ByVal src As Object, ByVal e As EventArgs) Handles MyBase.Init
     RecorrerTreeView(treeMenu.Nodes)
end sub



 Hasta la próxima


No hay comentarios: