Pessoal, estou tentando criar um controle de TV. Porém, os nós-filhos não se agrupam aos nós-pais. Já vi em vários sites, e o resultado dá certo, porém ao testar, não fica da forma esperada.
- Código:
Private Sub TVInit()
With TV.Nodes
Set nodObject = .Add(, , "ID1", "Grupo ID 1")
Set nodObject = .Add("ID1", tvwChild, "SID1", "Sub-Grupo ID 1-1")
Set nodObject = .Add("ID1", tvwChild, "SID2", "Sub-Grupo ID 1-2")
Set nodObject = .Add(, , "ID2", "Grupo ID 2")
Set nodObject = .Add("ID2", tvwChild, "SID3", "Sub-Grupo ID 2-3")
Set nodObject = .Add("ID2", tvwChild, "SID4", "Sub-Grupo ID 2-4")
End With
End Sub