FoxPro/Visual FoxPro - Opciones desde tres PageFrame

 
Vista:
sin imagen de perfil

Opciones desde tres PageFrame

Publicado por Hernando (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
sin imagen de perfil
Val: 1.011
Oro
Ha mantenido su posición en FoxPro/Visual FoxPro (en relación al último mes)
Gráfica de FoxPro/Visual FoxPro

Opciones desde tres PageFrame

Publicado por Fidel José (657 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
sin imagen de perfil

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