|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic.Net (ActiveX/Controles/DLL)
|
|
 |
Título da Dica: Preenchendo um controle TreeView
|
 |
|
|
|
Postada em 9/10/2003 por ~Ð@®£@Ñ
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.)
Project Types : Visual Basic Projects
Templates : Windows Application
Name : TreeView
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:
|
|
|
|
|
