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 )
Siguiente
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 )
Siguiente
End Sub