Um controle TreeView em VB6 (Visual Basic 6 ) exibe informações em uma hierarquia. A treeview consiste em nós que são relacionados entre si em alguns aspectos. Windows Explorer é um bom exemplo de TreeView exibição de arquivos e pastas de uma maneira hierárquica . O nó no controle TreeView pode conter outros nós , chamados de " nós filho. " Você pode exibir nós pai como expandida ou recolhida . Cada nó tem propriedades como "Pai ", " FirstNode " e " nós ". Você pode recuperar todos os nós usando um procedimento recursivo em VB6 para copiar o nó para outro treeview . Coisas que você precisa
programa VB6
Show Mais instruções
1

Clique em " Iniciar", " Todos os Programas " e " Visual Basic 6 ". Clique em "Arquivo " e " Novo" para criar um novo projeto. Digite um nome para o projeto e selecione um local para os arquivos do projeto. Clique em " Form1 " no painel de navegação à seção esquerda da janela.
2

Clique em "Ferramentas" e "Botão ". Clique na área em branco do Form1 para adicionar o botão . Direito do mouse no formulário 1 e digite o seguinte código para criar um procedimento recursivo que repete cada nó no treeview :

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

Dim childNode Como TreeNode

Para Cada childNode Em tNode.Nodes

Dim newNode Como TreeNode = New TreeNode ( childNode.Text )

NewNode.Tag = childNode.Tag < br >

Me.treeView2.SelectedNode = rootNode

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

IterateTreeNodes ( childNode , newNode )

Próxima < br >

End Sub
3

Dê um duplo clique no botão e digite o seguinte código para copiar os nós em TreeView1 para TreeView2 :

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

Dim t como TreeNode

Para Cada tNode Em Me.treeView1.Nodes

Dim newNode como TreeNode = New TreeNode ( tNode . texto)

NewNode.Tag = originalNode.Tag

Me.treeView2.Nodes.Add ( newNode )

IterateTreeNodes ( tNode , newNode )

Próxima

End Sub