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

 

 

367 - Recorrer nodos en un Treeview

<Volver> - Anterior - Siguiente

 

 

 

---

 

 

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

 

Recursos Visual basic 6.0 - Enlaces relacionados

• Agregar nodos e indicar la relación ( RelationShip )

Recursos Visual basic.NET - Enlaces relacionados

• Buscar nodo en Treeview por la clave

 

Buscar en Recursos vb

---

Recursos visual basic - Buscar - Privacidad - Copyright © 2005 - 2008 - www.recursosvisualbasic.com.ar