| Pregunta: | 10269 - TREE VIEW CONTROL |
| Autor: | lucio salazar e |
| hola , alguien podria auxiliarme con un ejemplo de como agregar quitar, modificar un elemento dentro de un tree view control 6.0 gracias,. | |
| Respuesta: | Eloy Francisco Santillán Urbina |
| En la libreria de componentes de visual foxpro 6.0 encuentras un buen ejemplo y el resto es un poco de investigacion... pon un step en un objetro tree y luego dale un vistaso a las propiedades de object y te daras cuenta como trabajo... te envio un codigo que tengo para inicializar una clase tree que tengo... espero que te sirva
LOCAL area, oldalias, _condchecked THISFORM.MOUSEPOINTER = 11 *THISFORM.LOCKSCREEN = .T. o = THIS area = o.ALIAS IF !EMPTY(THIS.PARENT.COMMENT) LOCAL ds ds = THIS.PARENT.COMMENT SET DATASESSION TO &ds ENDIF IF !EMPTY(area) SELECT (area) ELSE o.ALIAS = ALIAS() ENDIF DO WHILE o.nodes.COUNT > 0 o.nodes.REMOVE(o.nodes.ITEM(1).KEY) ENDDO SCAN DO CASE CASE padre = hijo OR ISNULL(hijo) o.nodes.ADD(,1,ALLTRIM(STR(padre))+"_",descripcion,0) OTHERWISE o.nodes.ADD(ALLTRIM(STR(padre))+"_",4,ALLTRIM(STR(hijo))+"_",descripcion,0) ENDCASE IF !EMPTY(THIS.condchecked) _condchecked = THIS.condchecked THIS.nodes.ITEM(THIS.nodes.COUNT).checked = &_condchecked IF !ISNULL(THIS.nodes.ITEM(THIS.nodes.COUNT).PARENT) AND &_condchecked THIS.nodes.ITEM(THIS.nodes.COUNT).PARENT.checked = &_condchecked ENDIF ENDIF ENDSCAN IF THIS.nodes.COUNT > 0 THIS.SELECTEDITEM = THIS.nodes.ITEM(1) ENDIF IF !EMPTY(oldalias) SELECT (oldalias) ENDIF *THISFORM.LOCKSCREEN = .F. THISFORM.MOUSEPOINTER = 0 En este ejemplo e creado un a tabla con la estructura padre, hijo y descripcion, y en el arbol hijo sera el codigo del elemento que se y padre el elemento superior, descripcion es el texto que se muestra... Hasta la proxima.. ELoy. | |