Como abrir formulario maximizado

[alex.milla]

Buenas de nuevo a todos.

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

Muchas gracias.

[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

[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

[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

[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.



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

[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.

Gracias por la ayuda.

[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