A Utforsker Control i VB6 ( Visual Basic 6 ) viser informasjon i et hierarki . En treeview består av noder som er relatert til hverandre på noen måter. Windows Explorer er et godt eksempel på Utforsker vise filer og mapper i en hierarkisk måte. Noden i Utforsker Kontroll kan inneholde andre noder , kalt " barn noder . " Du kan vise foreldre noder som utvides eller kollapset . Hver node har egenskaper som "foreldre ", " FirstNode " og "noder ". Du kan hente hver node bruker en rekursiv prosedyre i VB6 å kopiere node til en annen Utforsker . Du trenger
VB6 program
Vis flere instruksjoner
en

Klikk " Start", " Alle programmer " og " Visual Basic 6 . " Klikk på " File" og " New " for å opprette et nytt prosjekt . Skriv inn et navn for prosjektet og velg en plassering for prosjektet filer. Klikk på " Form1 " på navigasjonsfeltet til venstre i vinduet .
2

Klikk "Verktøy " og " Button ". Klikk på tomt område på Form1 legge til knappen . Høyreklikk på skjema 1 og skriv inn følgende kode for å lage en rekursiv prosedyre som gjentar hver node i Utforsker :

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

Dim childNode Som TreeNode

Hver childNode I tNode.Nodes

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

NewNode.Tag = childNode.Tag

Me.treeView2.SelectedNode = rootNode

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

IterateTreeNodes ( childNode , NewNode )

Neste

End Sub
3

Dobbeltklikk på knappen og skriv inn følgende kode for å kopiere nodene i TreeView1 til TreeView2 :

Private Sub button1_Click ( ByVal avsenderen som Object , ByVal e Som System.EventArgs )

Dim t som TreeNode

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

Neste

End Sub