Slik kopierer Utforsker i VB6

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

Bruksanvisning

1 Klikk "Start", "Alle programmer" og "Visual Basic 6." Klikk "Fil" og "New" for å opprette et nytt prosjekt. Skriv inn et navn for prosjektet og velg en plassering for prosjektfiler. Klikk "Form1" i navigasjonsruten til venstre i vinduet.

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

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

Dim childNode As TreeNode

For 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 sender As Object, ByVal e As System.EventArgs)

Dim t As TreeNode

For 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