pageframe

85 views
Skip to first unread message

xor...@hotmail.com

unread,
Aug 13, 2022, 11:18:18 PM8/13/22
to Comunidad de Visual Foxpro en Español
En un form tengo un pageframe al cual las paginas se las
asigno en base a cuantos clientes tiene un cursor.
no se cuantos clientes puedan ser. varian entre 1 a 20.
hasta aqui todo bien, si lo logro hacer.
la pregunta es como le puedo poner codigo al evento
activate de cada pagina?

ZeRoberto

unread,
Aug 14, 2022, 12:17:38 AM8/14/22
to publicesvfoxpro
Con una clase 

Saludos

Ze




--
Blog de la Comunidad Visual FoxPro en Español: http://comunidadvfp.blogspot.com
---
Has recibido este mensaje porque estás suscrito al grupo "Comunidad de Visual Foxpro en Español" de Grupos de Google.
Para cancelar la suscripción a este grupo y dejar de recibir sus mensajes, envía un correo electrónico a publicesvfoxp...@googlegroups.com.
Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/ddb8f03e-9829-443c-add5-4be2444daff8n%40googlegroups.com.

Zarlu

unread,
Aug 15, 2022, 7:18:12 PM8/15/22
to Comunidad de Visual Foxpro en Español
Buenas tardes xorro67!

Te comento...
En un form agregué un PpageFrame con una página y dos botones.

En el primer botón: (para agregar Pages)
Thisform.pageframe1.PageCount=Thisform.pageframe1.PageCount+1
lcPageCount=Thisform.pageframe1.PageCount
lcBinde=[BINDEVENT(Thisform.pageframe1.page]+ALLTRIM(STR(lcPageCount))+[,"Activate",Thisform.command2,"Click")]
&lcBinde

En el segundo botón: ( command2 )
LOCAL axEvt[1]
AEVENTS(axEvt, 0)
DO Case
    CASE "page2" $ LOWER(axEvt[1,1].name)    
        WAIT "Método Activate Page2" Windows nowait
    CASE "page3" $ LOWER(axEvt[1,1].name)
        WAIT "Método Activate Page3" Windows nowait
ENDCASE

A ver si la idea te sirve

Suerte
zarlu
Chetumal, Quintana Roo, México
Reply all
Reply to author
Forward
0 new messages