En TreeView kontroll i VB6 ( Visual Basic 6 ) visar information i en hierarki . En trädvy består av noder som är relaterade till varandra på något sätt . Windows Explorer är ett bra exempel på TreeView visa filer och mappar på ett hierarkiskt sätt . Noden i trädvy kontroll kan innehålla andra noder , kallade " underordnade noder . " Du kan visa överordnade noder som expanderat eller kollapsat . Varje nod har egenskaper såsom " Förälder ", " FirstNode " och " noder ". Du kan hämta varje nod med en iterativ procedur i VB6 att kopiera nod till en annan trädvy . Saker du behöver
VB6 program
Visa fler instruktioner
1
Klicka på "Start ", " Alla program " och " Visual Basic 6 . " Klicka på " File " och " New " för att skapa ett nytt projekt . Ange ett namn för projektet och välj en plats för projektet filer . Klicka på " Form1 " på navigeringsfönstret på den vänstra delen av fönstret .
2
Klicka på " Verktyg " och " Knapp ". Klicka på tomt område i Form1 lägga till knappen . Högerklicka på formulär 1 och ange följande kod för att skapa en rekursiv procedur som itererar varje nod i trädvyn :
Private Sub IterateTreeNodes ( ByVal tNode Som TreeNode , ByVal rootNode Som TreeNode ) katalog
Dim childNode Som TreeNode
For Each childNode I tNode.Nodes
Dim NewNode Som TreeNode = Ny TreeNode ( childNode.Text ) katalog
NewNode.Tag = childNode.Tag
Me.treeView2.SelectedNode = rootNode
Me.treeView2.SelectedNode.Nodes.Add ( NewNode ) katalog
IterateTreeNodes ( childNode , NewNode ) katalog
Nästa
End Sub
3
Dubbelklicka på knappen och skriv in följande kod att kopiera noder i TreeView1 till TreeView2 :
Private Sub button1_Click ( ByVal avsändare som Object , ByVal e som System.EventArgs ) katalog
Dim t som TreeNode
För varje tNode I Me.treeView1.Nodes
Dim NewNode som TreeNode = Ny TreeNode ( tNode . Text ) katalog
NewNode.Tag = originalNode.Tag
Me.treeView2.Nodes.Add ( NewNode ) katalog
IterateTreeNodes ( tNode , NewNode ) katalog
Nästa
End Sub
