Sección de códigos , trucos y ejemplos para visual basic

367 - Recorrer nodos en un Treeview

Contenido:

Recorrer en forma recursiva un Treeview
Recorrer Treeview para copiar el contenido a otro Treeview
Enlaces relacionados

Recorrer en forma recursiva

Ejemplo que muestra como recorrer en forma recursiva los nodos de un control Treeview.

El ejemplo, al hacer clic en un nodo ( Evento NodeClick ), llama a la rutina " Recorrer nodos", pasándole como parámetro el nodo que recorrerá en forma recursiva. El resultado lo imprime o visualiza en un control Textbox Multilinea

Formulario

Controles

Agregar un control Treeview llamado Treeview1
y un Textbox multilinea con la propiedad Scrollbars en 2

Código fuente en el formulario

Option Explicit Public Sub Recorrer_Nodos(objNode As Node) Dim Nodo As Node Set Nodo = objNode ' recorre los nodos en forma recursiva hasta que no haya mas nodos Do ' muestra el resultado en el textbox text1 = text1 & Nodo.Text & vbNewLine If Not Nodo.Child Is Nothing Then ' Nodos que cuelgan del actual Call Recorrer_Nodos(Nodo.Child) End If ' siguiente nodo Set Nodo = Nodo.Next Loop While Not Nodo Is Nothing End Sub Private Sub Form_Load() Dim Nodo As Node Dim i As Integer With TreeView1 ' borra todos los nodos .Nodes.Clear ' Crea el Nodo principal Call .Nodes.Add(, , "root", "root") ' Crea el Nodo 1 Call .Nodes.Add("root", tvwChild, "nodo1", "Nodo 1") ' agrega 5 elementos al nodo 1 For i = 1 To 5 Call .Nodes.Add("nodo1", tvwChild, "ItemA" & i, "Elemento:" & i) Next 'Crea el nodo 2 Call .Nodes.Add("root", tvwChild, "nodo2", "Nodo 2") ' agrega 5 elementos al nodo 2 For i = 1 To 5 Call .Nodes.Add("nodo2", tvwChild, "ItemB" & i, "Elemento:" & i) Next ' expande los nodos .Nodes("root").Expanded = True End With text1 = "" End Sub Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node) text1 = "" ' le pasa a la rutina el nodo en el que se hizo clic Call Recorrer_Nodos(Node) End Sub

Copiar el contenido de un Treeview a otro control Treeview

Este código usa una función llamada CopiarTreeview que se le debe indicar dos parámetros. que son :

El treeview Origen
El treeview para el destino.

El ejemplo copia la estructura exacta , es decir los nodos incluyendo:

El índice
la clave
El texto
la imagen del nodo
La imagen seleccionada para el nodo

Descargar código fuente

Recursos vb 6.0 - Enlaces relacionados

Agregar nodos e indicar la relación ( RelationShip )

Recursos vb.net - Enlaces relacionados

Buscar nodo en Treeview por la clave

Buscar en Recursos vb