
18/10/2005, 09:13
|
 | | | Fecha de Ingreso: junio-2005 Ubicación: portuguesa (Venezuela)
Mensajes: 187
Antigüedad: 19 años, 10 meses Puntos: 1 | |
con esto te puedes guiar coloca esto en un form nuevo y agrega un control treview
y en sus propiedades activa "singlesel"
Private Sub Form_Load()
Dim nodX As Node
Dim I As Integer
TreeView1.BorderStyle = vbFixedSingle ' Muestra el borde.
' Crea un nodo raíz.
Set nodX = TreeView1.Nodes.Add(, , "raíz", "Raíz")
For I = 1 To 5 ' Agrega 5 nodos secundarios.
Set nodX = TreeView1.Nodes.Add(I, tvwChild, , "Nodo " & CStr(I))
Next I
End Sub
Private Sub Form_Click()
Dim I As Integer
For I = 1 To TreeView1.Nodes.Count
' Expande todos los nodos.
TreeView1.Nodes(I).Expanded = True
Next I
End Sub
espero te sirva ok
saludos..
nos vmos...
__________________ A quien dices un secreto le entregas tu libertad :si: |