Primeros pasos con el control Treeview

[Analyzer]

Inserté el MS Treeview control 6.0 (SP4) que viene en los objetos OLE de VFP9 SP2.

Por ilógico que parezca, leí que debo usar la palabra object aquí:

http://www.universalthread.com/ViewPageArticle.aspx?ID=576

Por ejemplo, si pongo esto en el init del form:

Thisform.tree1.Object.Enabled = .f.

Imposibilita que el usuario haga clicks sobre los nodos, para seleccionarlos.

Tengo un tabla libre como la de la figura.

En el init del treeview, que renombre a tree1 tengo este código.

IF NOT USED("TABLATRE") 

USE TABLATRE IN 0

ENDIF

SELECT TABLATRE

*CARGA LOS PADRES

SCAN 

MESSAGEBOX("Revisando.. "+STR(RECNO()),0+64,"Aviso",1000)

     this.object.Nodes.Add(,0,tablatre.codigo,ALLTRIM(tablatre.texto))

ENDSCAN

 

*CARGA LOS HIJOS

SCAN 

MESSAGEBOX("Revisando para agregar hijos.. "+STR(RECNO()),0+64,"Aviso",1000)

   this.oBJECT.Nodes.Add(tablatre.codigo,1,tablatre.codhijo,ALLTRIM(tablatre.textohijo))

ENDSCAN

Se agregan los hijos, pero no dentro de los padres sino en la parte de abajo.

Lo que quiero es que se agreguen pero dentro de cada padre.

Gracias de antemano!

[Analyzer]

Ya lo logré amigos !!

Y lo comparto con ustedes, por si alguien más se interesa por el tema del Treeview ocx.

Solo había que cambiar el 1, por el 4 en la siguiente línea para lograr que los nodos hijos aparezcan dentro de los nodos padres.

this.oBJECT.Nodes.Add(tablatre.codigo,4,tablatre.codhijo,ALLTRIM(tablatre.textohijo))

El enlace que había citado, lo menciona en el parámetro "relationship".

4	Child. Node becomes a child node of the node named in relative.

Traducción de TheNewInquirer:

4. Hijo. El nodo se convierte en nodo hijo del nodo mencionado en el parámetro "relative".

http://www.universalthread.com/ViewPageArticle.aspx?ID=576

En la figura adjunta puede apreciarse como se ve el control al hacer click sobre los nodos padres.

Saludos!

[Moises Daniel Vilchez Tello]

bien

--
_______________________________________________________________
Has recibido este mensaje porque estás suscrito al Grupo "Mundo Visual
FoxPro" de Grupos de Google.
 
Para anular la suscripción a este grupo, envía un mensaje a:
mundovisualfox...@googlegroups.com
---
Has recibido este mensaje porque estás suscrito al grupo "Mundo Visual FoxPro" de Grupos de Google.
Para anular la suscripción a este grupo y dejar de recibir sus correos electrónicos, envía un correo electrónico a mundovisualfox...@googlegroups.com.

Para obtener más opciones, visita https://groups.google.com/groups/opt_out.
 
 

--
Moises Daniel Vilchez Tello
Chiclayo - Lambayeque - Peru