Eliminacion de paginas determinadas en pageframe (codigo)

17/11/2004 - 17:33 por Anonimo | Informe spam

Hola a tod@s

Quiero consultar como puedo hacer para una vez creadas las paginas de un
pageframe puedo eliminar una determinada, por ej:

Para crear el pageframe uso en un boton:

numpag = thisform.pageframe1.PageCount
nompag = "Page"+ALLTRIM(STR(numpag))+"."
numale = 45741 * RAND()+12.5
thisform.pageframe1.&nompag.caption =
"P."+ALLTRIM(STR(numpag))+ALLTRIM(STR(numale))
thisform.pageframe1.PageCount = numpag + 1
thisform.pageframe1.&nompag.addobject("boton","boton_cerrar")
thisform.pageframe1.&nompag.boton.visible = .T.

Luego en funciones.prg hago:

DEFINE CLASS boton_cerrar AS COMMANDBUTTON && Crea el boton de cerrar
Caption = 'Cerrar' && Caption on the Command button
Left = 335
Top = 164
Height = 27
Width = 84
PROCEDURE Click
nombre_obj=this.parent.name
objeto = this.parent.parent.&nombre_obj
this.parent.parent.removeobject(objeto)
****>>> this.parent.parent.pagecount =
this.parent.parent.pagecount -1
****>>> this.parent.removeobject(objeto)
ENDDEFINE

Bueno con las lineas remarcadas probe y no hay caso: la idea es que en cada
pagina hay un boton para cerrarla, y dejar el resto pero no doy con la
instruccion apropiada para la eliminacion de pagina.-

Saludos y muchas gracias
Marcelo

Siga el debate

1 respuesta

Tengo una respuesta

Preguntas similare

Mostrar todos los temas similares

Leer las respuestas

#1 Ana María Bisbé York

18/11/2004 - 10:54 | Informe spam

Hola Marcelo:

En el Click puedes tener:

loPage= this.Parent
loPageFrame = this.Parent.Parent

loPage.Pageorder = loPageframe.PageCount
loPageFrame.PageCount = loPageframe.PageCount -1

No es necesario que crees los objetos oPage y oPageFrame, te los incluyo
solo con fines didácticos. La idea es que con el PageCount lo que haces es
añadir y quitar páginas. Como siempre quita la de mayor número de orden
(PageOrder), pues para garantizar que estás quitando la que deseas, le das
el último número de orden y ya está.

Si lo corres con el depurador verás que pone momentáneamente esa pag al
final de todas y luego PageCount -1 la borra.

Saludos,

Ana
www.amby.net

escribió en el mensaje
news:

Hola a

Quiero consultar como puedo hacer para una vez creadas las paginas de un
pageframe puedo eliminar una determinada, por ej:

Para crear el pageframe uso en un boton:

numpag = thisform.pageframe1.PageCount
nompag = "Page"+ALLTRIM(STR(numpag))+"."
numale = 45741 * RAND()+12.5
thisform.pageframe1.&nompag.caption > "P."+ALLTRIM(STR(numpag))+ALLTRIM(STR(numale))
thisform.pageframe1.PageCount = numpag + 1
thisform.pageframe1.&nompag.addobject("boton","boton_cerrar")
thisform.pageframe1.&nompag.boton.visible = .T.

Luego en funciones.prg hago:

DEFINE CLASS boton_cerrar AS COMMANDBUTTON && Crea el boton de cerrar
Caption = 'Cerrar' && Caption on the Command button
Left = 335
Top = 164
Height = 27
Width = 84
PROCEDURE Click
nombre_obj=this.parent.name
objeto = this.parent.parent.&nombre_obj
this.parent.parent.removeobject(objeto)
****>>> this.parent.parent.pagecount > this.parent.parent.pagecount -1
****>>> this.parent.removeobject(objeto)
ENDDEFINE

Bueno con las lineas remarcadas probe y no hay caso: la idea es que en

cada

pagina hay un boton para cerrarla, y dejar el resto pero no doy con la
instruccion apropiada para la eliminacion de pagina.-

Saludos y muchas gracias
Marcelo

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

Busqueda sugerida