Ein TreeView-Steuerelement in VB6 (Visual Basic 6 ) zeigt Informationen in einer Hierarchie . Eine Baumansicht besteht aus Knoten , die miteinander in gewisser Weise verwandt sind. Windows- Explorer ist ein gutes Beispiel für TreeView Anzeigen von Dateien und Ordner in einer hierarchischen Weise . Der Knoten in TreeView-Steuerelement kann andere Knoten , genannt " untergeordneten Knoten . " Sie können als übergeordnete Knoten erweitert oder reduziert . Jeder Knoten verfügt über Eigenschaften wie "Parent ", " FirstNode " und " Knoten ". Sie können abgerufen werden jeden Knoten mit einer rekursiven Prozedur in VB6 , um den Knoten zu einem anderen Baum-Ansicht kopieren. Things You
VB6 Programm
brauchen anzeigen Weitere Anweisungen
1

Klicken Sie auf " Start", " Alle Programme " und " Visual Basic 6 ". Klicken Sie auf " Datei" und " Neu", um ein neues Projekt zu erstellen. Geben Sie einen Namen für das Projekt und wählen Sie einen Speicherort für die Projektdateien. Klicken Sie auf " Form1 " im Navigationsbereich auf der linken Seite des Fensters .
2

Klicken Sie auf " Extras" und "Button ". Klicken Sie auf den leeren Bereich des Form1 die Schaltfläche hinzufügen. Rechten Maustaste auf die Form 1 und geben Sie den folgenden Code, um eine rekursive Prozedur , die jeden Knoten durchläuft in der Baumansicht zu erstellen :

Private Sub IterateTreeNodes (ByVal TNODE Wie TreeNode , ByVal rootNode Wie TreeNode )

Dim childNode Wie TreeNode

For Each childNode In tNode.Nodes

Dim NewNode Wie TreeNode = New TreeNode ( childNode.Text )

NewNode.Tag = childNode.Tag

Me.treeView2.SelectedNode = rootNode

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

IterateTreeNodes ( childNode , NewNode )

Weiter < br >

End Sub
3

Doppelklicken Sie auf die Schaltfläche , und geben Sie den folgenden Code , um die Knoten in TreeView1 zu TreeView2 kopieren :

private Sub button1_Click (ByVal sender As Object , ByVal e As System.EventArgs )

Dim t wie TreeNode

For Each TNODE In Me.treeView1.Nodes

Dim NewNode wie TreeNode = New TreeNode ( TNODE . Text )

NewNode.Tag = originalNode.Tag

Me.treeView2.Nodes.Add ( NewNode )

IterateTreeNodes ( TNODE , NewNode )

Weiter

End Sub