alejandro
25 de Enero del 2004

Alguien seria tan amable de decirme como crear una carpeta en un treeview

Jose oscar
25 de Enero del 2004

Hola maestro
tresview necesita estos parametros,
TreeView1.Nodes.Add [relativo a], [Typo de relacion], [Clave asignada], [Texto a mostrar], [Imagen icono]

Tipo de relacion:Tvwchild, se coloca dentro del nodo especificado en relativo a

Tvwnext: se coloca despues del nodo especicado en relatico y asi sucecivamente.
TvwChild
TvwNext
TvwFirst
TvwLast
TvwPrevious

el sicuiente ejercicio es una "truchada" pero debe orientarte de como funcionan los nodos. los hay con TvwNext, Tvwprevious, TvWlast, fijate donde se colocany la carpeta que contiene sub-carpetas, ellas son HOLA y otra mas que tiene subcarpetas

Espero te sirva
Suerte

Private Sub Form_Load()


TreeView1.ImageList = ImageList1

'TreeView1.Nodes.Add [relativo a], [Typo de relacion], [Clave asignada], [Texto a mostrar], [Imagen icono]

TreeView1.Nodes.Add , tvwFirst, "Otro libre", "otro libre", "Programas"
TreeView1.Nodes.Add , tvwLast, "Maslibre", "Mas libre", "Programas"


TreeView1.Nodes.Add , tvwChild, "Hola", "Archivo hola", "Programas"
TreeView1.Nodes.Add , tvwChild, "Libre", "Archivo libre", "Programas"
TreeView1.Nodes.Add "Hola", tvwChild, "Hola1", "Archivo hola 2", "Programas"
TreeView1.Nodes.Add "Hola", tvwChild, "Hola2", "Archivo hola 234", "Programas"
TreeView1.Nodes.Add "Hola", tvwChild, "Hola3", "Archivo hola 2345", "Programas"
TreeView1.Nodes.Add "Hola", tvwChild, "Hola4", "Archivo hola 23456", "Programas"
TreeView1.Nodes.Add "Hola", tvwChild, "Hola5", "Archivo hola 234567", "Programas"


TreeView1.Nodes.Add "Hola4", tvwChild, "Dentro de Hola", "Dentro de hola 4", "Programas"
TreeView1.Nodes.Add "Hola4", tvwChild, "Dentro de hola", "Dentro de hola 4 segundo", "Programas"
TreeView1.Nodes.Add "Dentro de Hola", tvwNext, "Holas7", "Dentro de dentro hola 4 tvwnext", "Programas"
TreeView1.Nodes.Add "Dentro de Hola", tvwPrevious, "Holas8", "Dentro de dentro hola 4 tvwPrevius", "Programas"


TreeView1.Nodes.Add "Hola", tvwNext, "Holas15", "Con tvwnext", "Programas"
TreeView1.Nodes.Add "Hola", tvwFirst, "Holas151", "Con Tvwfirst", "Programas"


End Sub

Private Sub TreeView1_Collapse(ByVal Node As MSComctlLib.Node)
MsgBox prompt:="Colapso del nodo " & Node.Key & " con nombre " & Node.Text
End Sub

Private Sub TreeView1_Expand(ByVal Node As MSComctlLib.Node)
MsgBox (" Expansion del nodo " & Node.Text)
End Sub