Cómo copiar TreeView en Visual Basic 6

Puede copiar nodos en una vista de árbola otro en VB6.

 

Treeview

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

 

Lo que necesita

Programa VB6

 

Haga clic en "Inicio", "Todos los programas" y "Visual Basic 6." Haga clic en "Archivo" y "Nuevo" para crear un proyecto nuevo. Escriba 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.

 

Haga clic en "Herramientas" y "Botón". Haga clic en el área en blanco del Form1 para agregar el botón. Haga clic en el formulario 1 y escriba el siguiente código para crear un procedimiento recursivo que se repite cada nodo de la vista de árbol:

 

IterateTreeNodes Private Sub (ByVal tnode Como TreeNode, ByVal rootNode Como TreeNode)

 

ChildNode As TreeNode

 

Para cada childNode En tNode.Nodes

 

Nodo_nuevo As TreeNode = New TreeNode (childNode.Text)

 

NewNode.Tag = childNode.Tag

 

Me.treeView2.SelectedNode = rootNode

 

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

 

IterateTreeNodes (childNode, nodo_nuevo)

 

Próximo

 

End Sub

 

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

 

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

 

Dim t Como TreeNode

 

Para cada tnode En Me.treeView1.Nodes

 

Nodo_nuevo As TreeNode = New TreeNode (tNode.Text)

 

NewNode.Tag = originalNode.Tag

 

Me.treeView2.Nodes.Add (nodo_nuevo)

 

IterateTreeNodes (tnode, nodo_nuevo)

 

Próximo

 

End Sub