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 < br >
Me.treeView2.SelectedNode = rootNode
Me.treeView2.SelectedNode.Nodes.Add ( nodo_nuevo )
IterateTreeNodes ( childNode , nodo_nuevo )
Siguiente < br >
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
