Visual Basic - PROBLEMAS CON TREEVYEW AYUDA CON TODO RESPETO

HOLA:
CON TODO RESPETO NECESITO AYUDA URGENTE CON TEEVYEW QUIERO QUE EL ARBOL NO SE EXPANDA PARA QUE APARESCAN COMPRIMIDOS.... GRACIAS

CON TODO RESPETO

Estimado Amigo:

Cunado se programa un control tv cada nodo queda identificado con la clave que tu mismo le asignes. Esta clave se puede utilizar para determinar que nodo se presentará colapsado y cual no. A continuación un pequeño ejemplo que espero sirva de guia a tús propósitos:

With Me

'Asigna nodos padres e hijos con su respectiva clave y nombre
.tvMenu.Nodes.Add , , "M", "Menu"
.tvMenu.Nodes.Add "M", tvwChild, "A1", "Vehiculos"
.tvMenu.Nodes.Add "A1", tvwChild, "A11", "Rojos"
.tvMenu.Nodes.Add "A1", tvwChild, "A12", "Verdes"

.tvMenu.Nodes.Add "M", tvwChild, "A2", "Motos"
.tvMenu.Nodes.Add "A2", tvwChild, "A21", "Rojos"
.tvMenu.Nodes.Add "A2", tvwChild, "A22", "Verdes"

'Controla nodos colapsados
.tvMenu.Nodes("M").Expanded = True
.tvMenu.Nodes("A1").Expanded = False
.tvMenu.Nodes("A2").Expanded = False

End With

Cordial Saludo

Hola wilson :

Lo unico que tienes que poner al final cuando llenas todos los nodos es este código que te describo a continuación :

Tree.Nodes.Item(1).Expanded = false

Espero que te sirva,

Saludos.
Peru