Página 1 de 1

Como abrir formulario maximizado

NotaPublicado: Jue Abr 07, 2011 11:01 pm
por alex.milla
Buenas de nuevo a todos.

¿Cómo puedo hacer que un formulario al abrirlo se maximice automáticamente?

Muchas gracias. :super:

Re: Como abrir formulario maximizado

NotaPublicado: Vie Abr 08, 2011 3:32 pm
por RMG
Hola,

Pon esta macro al cargar el formulario.

Sub PantallaCompleta(Event As Object)
Dim oFrame As Object
Dim oDispatchHelper
oFrame=Event.Source.Parent.Parent.CurrentController.Frame
oDispatchHelper=CreateUnoService("com.sun.star.frame.DispatchHelper")
oDispatchHelper.ExecuteDispatch(oFrame,".uno:FullScreen","",0,Array())
End Sub

Saludos

Re: Como abrir formulario maximizado

NotaPublicado: Mar Abr 12, 2011 3:23 pm
por Augusto
Como andan! una consulta no han tenido problemas con el Fullscreen en OOo 3.3?? desde que instale la nueva version no hay vuelta, el fullscreen esta corrupto o algo, se ve horrible..

Abrazo

Re: Como abrir formulario maximizado

NotaPublicado: Mar Abr 12, 2011 6:00 pm
por RMG
Hola,

Parece ser que alguien más se ha quejado de lo mismo, lo que no se es si lo han podido solucionar, prueba a reparar el perfil de ususario o a reinstalar OOo. Aqui te dejo otro ejemplo de maximizar, pero solo actua en Windows.

Sub sMaximizaF(Frame As Object) 
Dim oConWin As Object   
Dim oHandle   
oConWin=Frame.GetContainerWindow()   
oHandle=oConWin.GetWindowHandle(dimarray(),1)   
ShowWindow(oHandle,3)
End Sub

Sub sAlAbrir(Event As Object)   
Dim oFrame As Object   
oFrame=Event.Source.Parent.Parent.CurrentController.Frame   
sMaximizaF(oFrame)
End Sub

Saludos

Re: Como abrir formulario maximizado

NotaPublicado: Mié Abr 13, 2011 10:31 pm
por alex.milla
Buenas.

Gracias por contestar.

Veo que el primer ejemplo es para mostarlo a pantalla completa y no maximizado.

En cambio en el 2 ejemplo no sé si estoy introduciendo algún dato mal o que.

Pero me sale el siguiente error.

Imagen

Lo reconozco, el código no es lo mío. :roll:

Re: Como abrir formulario maximizado

NotaPublicado: Jue Abr 21, 2011 8:40 pm
por alex.milla
Buenas a todos de nuevo.

Al final encontré otra solución válida para lo que quería hacer.

Sobre el formulario, botón derecho> Página > Pestaña Página > Formato escoger el formato que quiero utilizar para la resolución que voy a utilizar. Aunque ya sé que no es lo mismo para mí ha sido una opción válida. :super:

Gracias por la ayuda.

Re: Como abrir formulario maximizado

NotaPublicado: Dom Abr 24, 2011 2:44 am
por Miisu
hola...
solo que buscas más que maximizar es dimensionar el formulario a cierto tamaño determinado usa este macro:

Código: Seleccionar todo   Expandir vistaContraer vista
Sub ParaAjustarTamano( Evento ) 'asignarlo al "abrir documento", en el formulario
Dim oVentana As Object
Dim oPosTam As Object

   oVentana = Evento.Source.CurrentController.Frame.ContainerWindow
   oPosTam = oVentana.getPosSize   
   oVentana.setPosSize( 20, 20, 10000, 10000, com.sun.star.awt.PosSize.POSSIZE ) 'x(px eje X), x(px eje Y), xx(alto), xx(ancho)

End Sub


el primer numero es la posición en relación a X
el segundo numero posición en relación a Y
los ultimo dos números son alto y ancho respectivamente



Saludos