Le contrôle TreeView en VB6 (Visual Basic 6 ) affiche des informations dans une hiérarchie. Une arborescence se compose de nœuds qui sont liés les uns aux autres en quelque sorte . Explorateur Windows est un bon exemple de TreeView afficher les fichiers et dossiers de manière hiérarchique . Le nœud dans le contrôle TreeView peut contenir d'autres nœuds , appelés « nœuds enfants. " Vous pouvez afficher les nœuds parents développés ou réduits . Chaque noeud possède des propriétés telles que « Parent », « FirstNode » et «nœuds» . Vous pouvez récupérer tous les nœuds en utilisant une procédure récursive en VB6 pour copier le nœud à l'autre arborescence. Choses que vous devez
VB6 programme
Voir Plus Instructions
1

Cliquez sur " Démarrer", " Tous les programmes " et " Visual Basic 6" . Cliquez sur " Fichier" et " Nouveau" pour créer un nouveau projet. Entrez un nom pour le projet et sélectionnez un emplacement pour les fichiers de projet. Cliquez sur " Form1 " sur le volet de navigation sur la partie gauche de la fenêtre.
2

Cliquez sur "Outils" et "Button ". Cliquez sur la zone vide de la Form1 pour ajouter le bouton . Cliquez à droite sur la Formule 1 et entrez le code suivant pour créer une procédure récursive qui parcourt chaque nœud dans l'arborescence : Photos

IterateTreeNodes Private Sub ( ByVal TNODE Comme TreeNode , ByVal rootNode Comme TreeNode )

childNode As TreeNode

Chaque childNode En tNode.Nodes

newNode As TreeNode = New TreeNode ( childNode.Text )

NewNode.Tag = childNode.Tag < br >

Me.treeView2.SelectedNode = rootNode

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

IterateTreeNodes ( childNode , newNode )

suivant < br >

End Sub
3

Double- cliquez sur le bouton et entrez le code suivant pour copier les noeuds dans TreeView1 à TreeView2 : Photos

Private Sub button1_Click ( expéditeur de ByVal As Object , ByVal e As System.EventArgs )

Dim t comme TreeNode

Chaque TNODE En Me.treeView1.Nodes

newNode As TreeNode = New TreeNode ( TNODE . texte )

NewNode.Tag = originalNode.Tag

Me.treeView2.Nodes.Add ( newNode )

IterateTreeNodes ( TNODE , newNode )

Suivant

End Sub