A TreeView Control i VB6 ( Visual Basic 6) viser oplysninger i et hierarki . En trævisning består af knuder , der er relateret til hinanden på nogle måder. Windows Explorer er et godt eksempel på TreeView vise filer og mapper i et hierarkisk måde. Knudepunktet i TreeView Kontrol kan indeholde andre knudepunkter , kaldet " barn noder ". Du kan få vist forælder knudepunkter som udvidet eller kollapsede. Hver knude har egenskaber, såsom " Parent ", " FirstNode " og " Nodes ". Du kan hente hver node med en iterativ procedure i VB6 at kopiere node til en anden trævisning . Ting du skal
VB6 program
Vis Flere Instruktioner
1

Klik på "Start ", " Alle programmer " og " Visual Basic 6 ". Klik på " File" og "Ny " for at oprette et nyt projekt. Indtast et navn til projektet , og vælg en placering til projektets filer. Klik på " Form1 " i navigationsruden til venstre del af vinduet.
2

Klik på " Funktioner" og " Button ". Klik på det tomme område af Form1 at tilføje knappen. Højreklik på Skema 1 og indtaste følgende kode til at oprette en rekursiv procedure, der gentager hver node i trævisningen :

Private Sub IterateTreeNodes ( ByVal tNode Som TreeNode , ByVal rootNode Som TreeNode )

Dim childNode Da TreeNode

For Each childNode I tNode.Nodes

Dim NewNode Som TreeNode = Ny TreeNode ( childNode.Text )

NewNode.Tag = childNode.Tag < br >

Me.treeView2.SelectedNode = rootNode

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

IterateTreeNodes ( childNode , NewNode )

Næste < br >

End Sub
3

Dobbeltklik på knappen og indtaste følgende kode for at kopiere knudepunkter i TreeView1 til TreeView2 :

Private Sub Button1_Click ( ByVal afsender som Object , ByVal e som System.EventArgs )

Dim t som TreeNode

For Each tNode I Me.treeView1.Nodes

Dim NewNode som TreeNode = Ny TreeNode ( tNode . Text)

NewNode.Tag = originalNode.Tag

Me.treeView2.Nodes.Add ( NewNode )

IterateTreeNodes ( tNode , NewNode )

Næste

End Sub