FoxPro/Visual FoxPro - Btree

   
Vista:

Btree

Publicado por Julio Bustamante (1 intervención) el 17/05/2008 17:59:36
Saludos,

Estoy probando el control oletree pero tengo incovenientes no comprendo los parametros que se envia al metedo add de el objecto node. si alguien tiene una explicacion de los parametros les agradezco.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Btree

Publicado por Gabriel Sánchez (112 intervenciones) el 17/05/2008 18:57:26
Hola: Aquí un ejemplo para cargar el treeview.
<Haber agregado el treeview y su respectivo ImageList>
<nombre para treeview = treeview, nombre para ImageList = Image_list>
1) Crear un cursor llamado cPrueba(c1 c(9), c2 c(30))

2) Agregar datos:
A01 Nivel1
A01001 SubNivel1 - Nivel1
A01002 SubNivel2 - Nivel1
A02 Nivel2
A02001 SubNivel1 - Nivel2
A02002 SubNivel2 - Nivel2
A02002001 SubNivel1 - SubNivel2
A02002002 SubNivel2 - SubNivel2

Bueno son datos para prueba(por el ancho del campo 1 sólo podemos
agregar hasta 9 caracteres y ten en cuenta que los niveles están de 3 en 3

3) Programar en el evento init del formulario:
*------------------------------------
o = this.treeview
o.ImageList = this.image_list && nombre de objeto image

SELECT cPrueba
GO TOP
o.Nodes.Clear
SCAN
loPadre = LEFT(ALLTRIM(c1), LEN(ALLTRIM(c1)) - 3)
lnImg = INT(LEN(ALLTRIM(c1)) / 3)
IF EMPTY(loPadre)
o.nodes.add(,, ALLTRIM(c1), ALLTRIM(c2), lnImg)
ELSE
o.nodes.add(loPadre, 4, ALLTRIM(c1), ALLTRIM(c2), lnImg)
ENDIF
ENDSCAN
USE IN cPrueba
*---------------------------
Espero te sirva.
Gabriel
Nota: Debes agregar tres imágenes al control image.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar