Recorrer las paginas de un marco de pagina

Puedes hacerlo cambiando la propiedad ActivePage.

Ej:
PUBLIC oMiForm
oMiForm = CREATEOBJECT("MiForm")
oMiForm.SHOW(1)
RETURN

DEFINE CLASS MiForm AS FORM
DOCREATE = .T.
CAPTION = "MiForm"
NAME = "MiForm"
ADD OBJECT Pageframe1 AS PAGEFRAME WITH ;
ERASEPAGE = .T., ;
PAGECOUNT = 5, ;
TOP = 8, ;
LEFT = 16, ;
WIDTH = 335, ;
HEIGHT = 192, ;
NAME = "Pageframe1"
ADD OBJECT Command1 AS COMMANDBUTTON WITH ;
TOP = 208, ;
LEFT = 96, ;
HEIGHT = 27, ;
WIDTH = 180, ;
CAPTION = "Cambiar Pagina", ;
NAME = "Command1"
PROCEDURE Command1.CLICK
*-- Recorro las paginas
LOCAL ln
ln = THISFORM.Pageframe1.ACTIVEPAGE
ln = ln + 1
IF ln > THISFORM.Pageframe1.PAGECOUNT
ln = 1
ENDIF
THISFORM.Pageframe1.ACTIVEPAGE = ln
ENDPROC
ENDDEFINE

Luis María Guayán
Tucumán, Argentina
________________________________
SysOp de www.PortalFox.com
Microsoft Visual FoxPro MVP
________________________________
La palabra imposible solo figura
en el diccionario de los tontos

"Manuel Castellanos" escribió en el mensaje
news:

Como se recorre, por programacion, entre las paginas de un marco de pagina...
Por ejemplo, si al presionar un boton, yo quisiera pasar a otra pagina

Gracias por la ayuda que me puedan dar...

Saludos desde Honduras
Manuel Castellanos