Expandir por código un treeview

[Carlos R. Veron]

Buenos días, tengo un control treeview que cargo sus nodos dependiendo 

de una lista de botones que selecciona el usuarios, hasta acá

todo bien, pero necesitaría que el treeview aparezca expandido

y no encuentro nada en VFP tome algo de VB, pero no me funciona

esta es la linea de código.

This.TreeView.Nodes(3).Expand()

no da error pero no hace nada

Intente seleccionar el nodo pero no existe la propiedad SelectNode

Si alguno tiene algo que me ayuda desde ya muchas gracias.

Saludos

[Miguel Canchas]

This.TreeView.Nodes(3).Expand = .T.

 

 

MK

[Carlos R. Veron]

Hola Miguel, modifique esta linea de codigo pero no se expande

este es el código que tengo para cargar el treeview desde la tabla

 PARAMETERS nMenu

LOCAL lcNivel, lcTexto, lnTipo, lnResta

This.olecontrol1.Nodes.Clear

SELECT treeview

SET FILTER TO item = nMenu

GO TOP

DO WHILE !EOF()

   lcNivel = ALLTRIM(treeview.nivel)

   lcTexto = ALLTRIM(treeview.detalle)

   IF LEN(ALLTRIM(lcNivel)) = 5

      ** Cuando el valor del LEN() = 5 asumo que es un nodo raiz

      lnTipo = 0

      THISFORM.Olecontrol1.Nodes.ADD(, lnTipo, lcNivel, lcTexto, , )

   ELSE

      ** si LEN() > 5 es un hijo, siempre multiplos de 5

      lnTipo=4

      lnResta = LEN(ALLTRIM(Nivel)) - 5

      lcKey = SUBSTR(ALLTRIM(lcNivel), 1, lnResta)

      THISFORM.Olecontrol1.Nodes.ADD(lcKey, lnTipo, lcNivel, lcTexto, ,)

   ENDIF

   SKIP

ENDDO

SET FILTER TO

ThisForm.olecontrol1.Nodes(3).Expanded = .T.

RELEASE lcNivel, lcTexto, lnTipo, lnResta

 

En nMenu tengo que tipo de menu debo cargar.

Muchas gracias.

[Allan Raúl Acuña]

* EXPANDE TODO

If Thisform.arbol.Nodes.Count > 0

For Each loNode In Thisform.arbol.Nodes

If loNode.Children > 0

loNode.Expanded = .T.

Endif

Endfor

ENDIF

Saludos cordiales.

Lic. Allan Raúl Acuña
Analista Programador
msn= allan...@hotmail.com
skype= NicEasySoft
            +(505) 8 999 8950

Managua, Nicaragua

Centroamérica

---

Date: Tue, 4 Aug 2015 09:06:48 -0700
From: carlos...@arnet.com.ar
To: publice...@googlegroups.com
CC: mcan...@ximesa.com
Subject: Re: [vfp] Expandir por código un treeview

[Arnaldo Toledano]

Proba
This.TreeView.Nodes(3).Expand= .T.


Arnaldo Toledano

[Arnaldo Toledano]

Perdón
es

This.TreeView.Nodes(1).Expand= .T.

Nodes(1)
Arnaldo Toledano

-------- Mensaje reenviado --------

Asunto:

Re: [vfp] Expandir por código un treeview

Fecha:	Tue, 4 Aug 2015 13:56:34 -0300
De:	Arnaldo Toledano <arnaldo....@gmail.com>
A:	publice...@googlegroups.com

[Carlos R. Veron]

Buenas tardes, gracias a todos buscando

habia encontrado el codigo que publico Allan Raul 

asi que ya quedo funcionando. Gracias.

Saludos