|
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
|
