Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: W3XT3R en 11 Noviembre 2005, 17:07 pm

Título: Tree View
Publicado por: W3XT3R en 11 Noviembre 2005, 17:07 pm

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 ;)

Título: Re: Tree View
Publicado por: Thaorius en 11 Noviembre 2005, 21:19 pm

Unas funciones que hice para no escribir mucho:

Código:

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

Título: Re: Tree View
Publicado por: MaLkAvIaN_NeT en 12 Noviembre 2005, 02:31 am

Citar

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