Ari não deu certo !
Não dá nenhum erro, mas não inseri nenhum novo nó.
Meu arquivo ClassTreeView.vb
Public Class ClassTreeView
Public Class PlaInfo
Public PlaConta As String
Public PlaDescr As String
Public PlaPai As PlaInfo
Public Nivel As Integer
End Class
Public lista As List(Of PlaInfo)
Public Function ListarPla() As List(Of PlaInfo)
Dim lista As New List(Of PlaInfo)
lista.Add(New PlaInfo With {.PlaConta = "1", .PlaDescr = "RECEITAS", .Nivel = 1, .PlaPai = Nothing})
lista.Add(New PlaInfo With {.PlaConta = "1.01", .PlaDescr = "RECEITAS OPERACIONAIS", .Nivel = 2, .PlaPai = Nothing})
lista.Add(New PlaInfo With {.PlaConta = "1.01.01", .PlaDescr = "CLIENTES", .Nivel = 3, .PlaPai = Nothing})
lista.Add(New PlaInfo With {.PlaConta = "1.01.02", .PlaDescr = "CLIENTES DUVIDOSOS", .Nivel = 3, .PlaPai = Nothing})
lista.Add(New PlaInfo With {.PlaConta = "1.02", .PlaDescr = "OUTRAS RECEITAS", .Nivel = 2, .PlaPai = Nothing})
lista.Add(New PlaInfo With {.PlaConta = "1.02.01", .PlaDescr = "RECEITAS ESPECIAIS", .Nivel = 3, .PlaPai = Nothing})
lista.Add(New PlaInfo With {.PlaConta = "2", .PlaDescr = "DESPESAS", .Nivel = 1, .PlaPai = Nothing})
lista.Add(New PlaInfo With {.PlaConta = "2.01", .PlaDescr = "DESPESAS FIXAS", .Nivel = 2, .PlaPai = Nothing})
lista.Add(New PlaInfo With {.PlaConta = "2.01.01", .PlaDescr = "IMPOSTOS", .Nivel = 3, .PlaPai = Nothing})
lista.Add(New PlaInfo With {.PlaConta = "2.01.01.01", .PlaDescr = "IPI", .Nivel = 4, .PlaPai = Nothing})
lista.Add(New PlaInfo With {.PlaConta = "2.02", .PlaDescr = "DESPESAS EXTRAS", .Nivel = 2, .PlaPai = Nothing})
ListarPla = lista
End Function
Public Sub CarregarTreeView(ByVal TreeView As TreeView)
' lista itens
Dim lista = ListarPla()
' loop na lista para buscar o pai
For Each plaInfo In lista
' chave do pai
Dim chavePai As String = ""
If plaInfo.PlaConta.Contains(".") Then
chavePai = plaInfo.PlaConta.Substring(0, plaInfo.PlaConta.LastIndexOf("."))
End If
' busca pelo pai
Dim pai = (From plaPai In lista _
Where plaPai.PlaConta = chavePai _
Select plaPai).SingleOrDefault()
' verifica se o pai foi encontrado
If pai IsNot Nothing Then
plaInfo.PlaPai = pai
End If
Next plaInfo
' inicializa edição da treeView
TreeView.BeginUpdate()
' limpa treeView
TreeView.Nodes.Clear()
' ordena lista pelo nível
lista.Sort(Function(x, y) x.Nivel.CompareTo(y.Nivel))
' adiciona nós
For Each plaInfo In lista
If (plaInfo.PlaPai Is Nothing) Then
TreeView.Nodes.Add(plaInfo.PlaConta, plaInfo.PlaDescr)
Else
Dim treeNodePai = TreeView.Nodes.Find(plaInfo.PlaPai.PlaConta, True)
If (treeNodePai IsNot Nothing) Then
treeNodePai(0).Nodes.Add(plaInfo.PlaConta, plaInfo.PlaDescr)
End If
End If
Next plaInfo
' finaliza edição da treeView
TreeView.EndUpdate()
End Sub
Public Sub AdicionarNó(ByRef treeView As TreeView, ByVal descr As String, ByVal id As String, ByVal nivel As Integer)
Dim classPlaInfo As New PlaInfo With {.PlaConta = id, .PlaDescr = descr, .PlaPai = Nothing, .Nivel = nivel}
Me.lista.Add(classPlaInfo)
CarregarTreeView(treeView)
End Sub
End Class
E o Form1.Vb
Public Class Form1
Dim classTreeview As New ClassTreeView()
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
classTreeview.lista = classTreeview.ListarPla()
classTreeview.CarregarTreeView(Me.TreeView1)
End Sub
Private Sub menu_Adicionar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles menu_Adicionar.Click
classTreeview.AdicionarNó(Me.TreeView1, "Teste", "1.01.01.01", 4)
End Sub
End Class
Rafael Fernandes D Orazio
Preencher TreeView
