Crear una jeraquia con TreeView

[druz]

Hola amigos,

1 Estoy trabajando con visual basic 6 y deseo crear una jerarquia con nodos en treeview... pero mi problema es que no se como crear nodos y despues agrupar. Como creo, modifico y eliminos nodos en un treeview...

2 También he visto que aprietan el segundo botom del mouse y aparece una cuadro de comando para agregar otros nodo como se hace?

Si tuvieras un ejemplo te lo agredeceria o donde puedo encontrar información en la internet...

Atte
Druz

[Dans]

Mira te recomiendo que cheques el ejemplo que viene con MSDN el nombre es Datatree.
Y tambien en el mismisimo VISDATA puedes encontrar un manejo del control TreeView.

Espero te haya servido.
Cualquier cosa aqui estamos para apoyar.

[Dans]

Mira te recomiendo que cheques el ejemplo que viene con MSDN el nombre es Datatree.
Y tambien en el mismisimo VISDATA puedes encontrar un manejo del control TreeView.

Espero te haya servido.
Cualquier cosa aqui estamos para apoyar.

[polielb]

te paso el codigo que encontre y lo agregue a mi trabajo, es para agregar a la lista hago una consulta donde esta agrupado por Areas y luego los dptos.

Sub CargoGrupos()

Dim ant As String
Dim i As Long, j As Long
Dim sp As String, sh As String
'cargo Grupo de USUARIOS
Randomize

Tgrupos.Nodes.Clear
Set Temporal = DE.Agenda.Execute("SELECT Usuarios.CodGrupo, Usuarios.CodUsu, Usuarios.Contraseña, Usuarios.NombreLargo, GrupoDeUsuarios.Nombre, Usuarios.Nombre AS NomUsuario FROM Usuarios INNER JOIN GrupoDeUsuarios ON usuarios.CodGrupo = GrupoDeUsuarios.CodGrupo ORDER BY Usuarios.CodGrupo, Usuarios.CodUsu")
With Temporal
If .State = 0 Then
.Open
End If
.MoveFirst
ant = Temporal("codgrupo")
i = 1
j = 0
GoSub PonerTitulo
sp = "nodo" & CStr(i)
Do Until .EOF
If ant = Temporal("codgrupo") Then
j = j + 1
sh = sp & "-" & CStr(j)
Tgrupos.Nodes.Add sp, tvwChild, sh, Temporal("nombrelargo")
.MoveNext
Else
ant = Temporal("codgrupo")
i = i + 1
sp = "nodo" & CStr(i)
GoSub PonerTitulo
End If
Loop
End With
Exit Sub

PonerTitulo:
sp = "nodo" & CStr(i)
Tgrupos.Nodes.Add , , sp, Temporal("nombre") '& CStr(i)
Return

End Sub

esto lo encontre en la paguina del guille
lo que necesito, si me lo podes averigura el checkbox del treeview como cuando tilda corroboro a que item corresponde, o sea, como reconocer el index del item que tildo