Tree View

[W3XT3R]

He buscado en este foro y no he encontrado nada de ayuda sobre el tree view...necesito utilizarlo pero no se como se agregarian nodos....más concretamente necesito agregar nodos para que funcione como el explorador de windows....cualquier ayuda sera bien recivida

[Thaorius]

Unas funciones que hice para no escribir mucho:

Código [Seleccionar] Expandir

Public Sub AddNode(sName, sKey)
tvwResults.Nodes.Add , , sKey, sName, "closed"
tvwResults.Nodes(sKey).ExpandedImage = "open"
tvwResults.Nodes(sKey).Tag = sKey
End Sub

Public Sub ClearNodes()
tvwResults.Nodes.Clear
End Sub

Public Sub AddChild(sKey, sParentKey, sName)
tvwResults.Nodes.Add sParentKey, tvwChild, sKey, sName, "sect"
tvwResults.Nodes.Item(sKey).ExpandedImage = "sectopen"
End Sub

EDIT: Me olvide las etiquetas code.

Saludos

[MaLkAvIaN_NeT]

Public Sub CambiaEstado(ByRef ObjTree As TreeView, Optional Ocupado As Boolean)
On Error Resume Next
Dim TmpNodo As Node

Set TmpNodo = ObjTree.SelectedItem

If Ocupado = True Then
ObjTree.Nodes.Add "O", tvwChild, "O" + Str(NRO_O), TmpNodo.Text
NRO_O = NRO_O + 1
    ObjTree.Nodes.Remove (TmpNodo.Index)
NRO_L = NRO_L - 1
ElseIf Ocupado = False Then
ObjTree.Nodes.Add "L", tvwChild, "L" + Str(NRO_L), TmpNodo.Text
NRO_L = NRO_L + 1
    ObjTree.Nodes.Remove (TmpNodo.Index)
End If

End Sub