Power Builder - Treeview

 
Vista:

Treeview

Publicado por roberto (28 intervenciones) el 23/10/2002 23:45:21
Les hago llegar mi más cordial saludo
Me pueden decir como uso los Treeview si alguien tuviera un ejemplo favor enviarmelo.

Gracias
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:Treeview

Publicado por Ricardo (1957 intervenciones) el 24/10/2002 01:39:37
Hola que tal:

En los ejemplos de PB encontrarás varios ejemplos del treeview

Saludos!
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

un ejemplo claro

Publicado por milson cardona (613 intervenciones) el 24/10/2002 02:13:12
Un saludo especial desde COLOMBIA

Bueno, en realidad es muy sencillo utilizar los TREEVIEW

-primero lógicamente, debes pegar un objeto de ese tipo en una ventana
-luego debes construir como deseas ver el treeview, debes utilizar la funcion INSERTITEMLAST
EJEMPLO
//definimos algunas variables
TreeViewitem ltv_new
Long ll_newhandle

ltv_new.Label = 'Nombre del item'
ltv_new.Data = nivel //nivel en que se va a desplegar, es un integer

ll_newhandle = tv_1.INSERTITEMLAST(handle_del_padre,ltvi_new)

donde el handle_del_padre es el handle que devolvió la función cuando se creó el nivel anterior

este es un ejemplo más real para crear un treeview que desplegará una estructura de 3 niveles
//se declaran las variables necesarias
long ll_handle_n1,ll_handle_n2a,ll_handle_n3a,ll_handle_n2b,ll_handle_n3b
TreeViewitem ltv_new

//creamos el nivel 1a
ltv_new.Label = 'ESTE ES EL NIVEL 1A'
ltv_new.Data = 1
ll_handle_n1 = tv_1.INSERTITEMLAST(0,ltvi_new)

//creamos el nivel 2a
ltv_new.Label = 'ESTE ES EL NIVEL 2A '
ltv_new.Data = 2
ll_handle_n2a = tv_1.INSERTITEMLAST(ll_handle_n1,ltvi_new)

//creamos el nivel 3a
ltv_new.Label = 'ESTE ES EL NIVEL 3A '
ltv_new.Data = 3
ll_handle_n3a = tv_1.INSERTITEMLAST(ll_handle_n2a,ltvi_new)

//creamos el nivel 3b
ltv_new.Label = 'ESTE ES EL NIVEL 3B '
ltv_new.Data = 3
ll_handle_n3b = tv_1.INSERTITEMLAST(ll_handle_n2a,ltvi_new)

//creamos el nivel 2b
ltv_new.Label = 'ESTE ES EL NIVEL 2B '
ltv_new.Data = 2
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

lo siento, sigo con el ejemplo

Publicado por milson cardona (613 intervenciones) el 24/10/2002 02:14:52
//creamos el nivel 2b
ltv_new.Label = 'ESTE ES EL NIVEL 2B '
ltv_new.Data = 2
ll_handle_n2b = tv_1.INSERTITEMLAST(ll_handle_n1,ltvi_new)

y así sucesivamente, sigues creando la estructura, mandando correctamente el handle donde quieres dsplegar la entrada

espero que te sirva, y me comentes la evolución del problema
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

se me olvidaba una cosa importante

Publicado por milson cardona (613 intervenciones) el 24/10/2002 02:33:22
Un saludo especial desde COLOMBIA

oye, se me olvidaba una cosa bien importante, debes utilizar funciones para darle buena presentación al TREEVIEW
//estas sentencias le darán apariencia a cada uno de los niveles
//consulta la funcion para obtener detalles de cada uno de los
//parámetros
tv_1.SetLevelPictures(1,2,1,0,0)
tv_1.SetLevelPictures(2,3,1,0,0)
tv_1.SetLevelPictures(3,4,1,0,0)
tv_1.SetLevelPictures(4,5,1,0,0)

//para colocar visible el item que se desea al iniciar el treeview, en este
//caso el nivel 2A
tv_1.SetFirstVisible(2)

y algo muy importante, para que se ejecuten los comando que deseas al clickear cada item del treeview, debes poner el código en el evento DOUBLECLICK, del objeto treeview, es de mucha ayuda utilizar el argumento por defecto(handle) del evento, que almacena el handle del item que provocó el evento EJ. del evento doubleclick

CHOOSE CASE handle

CASE 1
messagebox('NIVEL 1','EJECUTANDO LAS INSTRUCCIONES')
CASE 2
messagebox('NIVEL 2','EJECUTANDO LAS INSTRUCCIONES DE N2A')
CASE 3
messagebox('NIVEL 3','EJECUTANDO LAS INSTRUCCIONES DE N3A')
CASE 4
messagebox('NIVEL 3','EJECUTANDO LAS INSTRUCCIONES DE N3B')
CASE 5
messagebox('NIVEL 2','EJECUTANDO LAS INSTRUCCIONES DE N2B')

espero que esto te sirva de ilustración........

te agradecería que me comentaras si fue de ayuda o que otro problema tienes
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

RE:hola

Publicado por claudio (1 intervención) el 14/09/2006 19:21:34
sdcasdcfasdcasdfsegr fgsegrfsgfsegf
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