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 ;)
Unas funciones que hice para no escribir mucho:
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
CitarPublic 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