Preenchendo um controle TreeView

 

Vou mostrar agora como preencher um controle TreeView no VB.NET.  O exemplo é muito simples :

1 - Inicie um novo projeto no Visual Studio.NET com as seguintes características (sinta-se a vontade para alterar a seu gosto.)

  1. Project Types : Visual Basic Projects
  2. Templates : Windows Application
  3. Name : TreeView
  4. Location : c:\vbnet\Treeview

2- No formulário padrão insira os controles : TreeView1 e ImageList1 e um botão de comando como abaixo:

3- No controle ImageList insira duas imagens : Clique com o botão direito do mouse sobre o controle e selecione Properties e a seguir clique em Images (Collection)...

 

 

4- No evento click do botão de comando insira o seguinte código :

 

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim i As Integer

Dim J As Integer

 

With TreeView1

  .ShowRootLines = True

  .ShowPlusMinus = True

  .ImageList = ImageList1

End With

 

 i = 1

 

 For i = 1 To 10

    Dim nodp As New Windows.Forms.TreeNode("Nó" & i.ToString, 0, 0)

    TreeView1.Nodes.Add(nodp)

 

    For J = 1 To 3

         Dim nodc As New Windows.Forms.TreeNode("SubNó" & i.ToString, 1, 1)

         nodp.Nodes.Add(nodc)

   Next

 

Next

End Sub

 

Eu vou incluir 10 Nós e em cada Nó 3 Sub-nòs conforme cada loop For/Next:

 

 

Até a próximo dica  ...

 

José Carlos Macoratti