FoxPro/Visual FoxPro - Cómo cerrar un subformulario desde un formulario? URGENTE

   
Vista:

Cómo cerrar un subformulario desde un formulario? URGENTE

Publicado por Luis Fiallos (1 intervención) el 12/08/2014 17:59:34
Quiero saber como puedo cerrar un subformulario desde el evento Destroy o cualquier otro evento de un formulario.
No sé como hacer referencia de formulario1 a sun subformulario.
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

Cómo cerrar un subformulario desde un formulario? URGENTE

Publicado por Saul (676 intervenciones) el 12/08/2014 23:07:54
Hola Luis:

no se que quieres hacer pues no te explicas del todo bien, pero vamos a suponer que es lo que necesitas ok.

Supongo que tienes un FormClientes (FormPrincpal)
Luego tienes dos SubForm Uno que dice datos Generales y Otro que puede ser datos Privados.

Digamos aque llamas tu FormPrincipal

Do form Clientes

Y claro el que se muesta pues sera tu form selecciones como principal

Ahora bien el principal digamos que es SubForm1 (Datos Generales)

Y quieres mostrar SubForm2 (Datos Privados)


THISFORMSET.FORM1visible = .F.
THISFORMSET.FORM2.visible = .T.


THISFORMSET.FORM2.refresh()

Espero y te sirva

saludos

Sha
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

Cómo cerrar un subformulario desde un formulario? URGENTE

Publicado por Fidel José (558 intervenciones) el 13/08/2014 00:25:06
1) Si tu formulario es un archivo scx, lo debes llamar con DO FORM.

* En la llamada al SubFormulario
Addproperty(thisform,"SubFormu",null)
DO FORM SubFormulario NAME Thisform.SubFormu WITH Param1, Param2, etc

* En el destroy
IF VARTYPE(this.SubFormu)="O"
This.SubFormu.Release
ENDIF


2) Si es un formulario de clase,
* en la llamada
Addproperty(thisform,"SubFormu",NewObject("frmClase","MyLib.vcx","",Param1,param2 )
thisform.SubFormu.Name="SubFormulario"
thisform.SubFormu.Show

* En el destroy
IF VARTYPE(this.SubFormu)="O"
This.SubFormu.Release
ENDIF
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