Cómo copiar TreeView en Visual Basic 6

Un control TreeView en Visual Basic 6 (Visual Basic 6) muestra la información en una jerarquía. A la vista de árbol consta de nodos que están relacionados entre sí de alguna manera. Explorador de Windows es un buen ejemplo de TreeView mostrar archivos y carpetas de una manera jerárquica. El nodo de control TreeView puede contener otros nodos, llamados "nodos hijos." Se pueden visualizar nodos padre como expandir o contraer. Cada nodo tiene propiedades tales como "Padre", "FirstNode" y "nodos". Puede recuperar todos los nodos mediante un procedimiento recursivo en VB6 para copiar el nodo a otro árbol.

Instrucciones

1 Haga clic en "Inicio", "Todos los programas" y "Visual Basic 6." Haga clic en "Archivo" y "Nuevo" para crear un nuevo proyecto. Introduzca un nombre para el proyecto y seleccione una ubicación para los archivos de proyecto. Haga clic en "Form1" en el panel de navegación de la parte izquierda de la ventana.

2 Haga clic en "Herramientas" y "botón". Haga clic en el área en blanco de la Form1 para agregar el botón. Haga clic con el Formulario 1 e introduzca el código siguiente para crear un procedimiento recursivo, el cual itera cada nodo en el árbol:

IterateTreeNodes Sub privada (ByVal TNODE Como NodoArbol, rootNode ByVal como NodoArbol)

Dim childNode As TreeNode

Para cada childNode En tNode.Nodes

Dim newNode Como NodoArbol = Nueva NodoArbol (childNode.Text)

NewNode.Tag = childNode.Tag

Me.treeView2.SelectedNode = rootNode

Me.treeView2.SelectedNode.Nodes.Add (newNode)

IterateTreeNodes (childNode, newNode)

Siguiente

End Sub

3 Haga doble clic en el botón e introduzca el código siguiente para copiar los nodos en TreeView1 a TreeView2:

Private Sub Button1_Click (remitente de ByVal como objeto, ByVal e As System.EventArgs)

Dim t As TreeNode

Para cada TNODE En Me.treeView1.Nodes

Dim newNode Como NodoArbol = Nueva NodoArbol (tNode.Text)

NewNode.Tag = originalNode.Tag

Me.treeView2.Nodes.Add (newNode)

IterateTreeNodes (TNODE, newNode)

Siguiente

End Sub