FoxPro/Visual FoxPro - Opciones desde tres PageFrame

   
Vista:

Opciones desde tres PageFrame

Publicado por Hernando msilvahdo@yahoo.com (10 intervenciones) el 01/07/2016 21:40:32
Buenas tardes. Muchas gracias ante todo a quien me pueda apoyar en esta consulta tan importante para:


1. Tengo un form, donde cree una pageframe con tres paginas.

2. En cada pagina tengo menús de opciones

3. Cada opción de menú, me llama una rutina (form).

4. Quiero que cuando este en la otra rutina (form), al seleccionar el command de salir, me llevé al pageframe respectivo, según el menú.

RESUMEN, que cuando este en un form, al salir me lleve a la pagina x del pageframe.


Muchas gracias a todos y feliz tarde.


Hernando Moreno
Bogotá D.C., Colombia
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
Imágen de perfil de Mauricio Antonio

Opciones desde tres PageFrame

Publicado por Mauricio Antonio (1367 intervenciones) el 01/07/2016 23:33:44
Ejecuta este form y trata de adaptarlo a tu necesidad.....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

Opciones desde tres PageFrame

Publicado por Fidel José (319 intervenciones) el 01/07/2016 23:58:08
En este ejemplo supongo que hay unos commandbutton sobre cada objeto Page, que en su propiedad Tag contienen el nombre del formulario que cada botón convoca. Se puede adaptar para un Listbox o un Combobox.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
*<Click del botón convocante>
DO FORM (this.tag) WITH this          && note que THIS va sin punto ni encomillado
*</Click del botón convocante>
 
*<Init del form>
LPARAMETERS toObjParam
ADDPROPERTY(thisform,"oControl",IIF(VARTYPE(toObjParam)="O",toObjParam,null))
*</Init del form>
 
*<Unload del form>
IF VARTYPE(this.oControl)="O"
	* Ver que el control esté sobre un objeto Page
	IF this.oControl.parent.baseclass == "Page"
 		this.oControl.parent.parent.ActivePage = this.oControl.parent.pageOrder
	ENDIF
	* Enviar el foco si el objeto esta Enabled
	IF this.oControl.Enabled
		this.oControl.setfocus
	ENDIF
ENDIF
*</Unload del form>
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

Opciones desde tres PageFrame

Publicado por Hernando (10 intervenciones) el 04/07/2016 05:17:15
Mauricio y Fidel, ustedes son muy amables. Gracia por su ayuda. Me sirvio bastante el aporte de los dos. Felicidades y que bueno que exista personas como ustedes, para brindar ayuda sin condición alguna.
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