un controllo TreeView in VB6 ( Visual Basic 6) visualizza le informazioni in una gerarchia . Un controllo TreeView è costituito da nodi che sono collegati tra loro in qualche modo . Esplora risorse di Windows è un buon esempio di TreeView visualizzazione di file e cartelle in modo gerarchico . Il nodo nel controllo TreeView può contenere altri nodi , chiamati " nodi figlio . " È possibile visualizzare i nodi padre come espanso o compresso . Ogni nodo ha proprietà come " genitore ", " FirstNode " e "Nodi ". È possibile recuperare tutti i nodi utilizzando una procedura ricorsiva in VB6 per copiare il nodo a un altro albero. Cose che ti serviranno
VB6 programma
Mostra più istruzioni
1

clic su "Start ", " Tutti i programmi " e " Visual Basic 6 . " Fare clic su "File" e "Nuovo" per creare un nuovo progetto . Immettere un nome per il progetto e selezionare un percorso per i file di progetto . Fare clic su " Form1 " sul pannello di navigazione sulla sezione sinistra della finestra .
2

Clicca su "Strumenti " e " Button ". Fare clic su un'area vuota del Form1 per aggiungere il pulsante . Fare clic con il modulo 1 e immettere il codice seguente per creare una procedura ricorsiva che itera ogni nodo della treeview :

IterateTreeNodes Private Sub ( ByVal tnode Come TreeNode , ByVal rootNode Come TreeNode ) per

dim childNode Come TreeNode

Ogni childNode In tNode.Nodes

dim newNode Come TreeNode = New TreeNode ( childNode.Text ) per

NewNode.Tag = childNode.Tag < br >

Me.treeView2.SelectedNode = rootNode

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

IterateTreeNodes ( childNode , newNode ) per

Successivo < br

End > Sub

3 Fare doppio clic sul pulsante e inserire il codice riportato di seguito per copiare i nodi TreeView1 a TreeView2 :

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

Dim t come TreeNode

Ogni tnode In Me.treeView1.Nodes

Dim newNode come TreeNode = New TreeNode ( tnode . Text ) per

NewNode.Tag = originalNode.Tag

Me.treeView2.Nodes.Add ( newNode )

IterateTreeNodes ( tnode , newNode ) per

Avanti

End Sub