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 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 . Cosas que necesitará el programa VB6
Ver Más instrucciones
1

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.

2 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

For Each 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 )

End Sub

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

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

Dim t Como TreeNode

For Each tnode En Me.treeView1.Nodes

nodo_nuevo As TreeNode = New TreeNode ( tnode . Texto )

NewNode.Tag = originalNode.Tag

Me.treeView2.Nodes.Add ( nodo_nuevo )

IterateTreeNodes ( tnode , nodo_nuevo )

End Sub