Página 1 de 1
Como abrir formulario maximizado
Publicado: 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.
Re: Como abrir formulario maximizado
Publicado: 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
Publicado: 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
Publicado: 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
Publicado: 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.
Lo reconozco, el código no es lo mío.
Re: Como abrir formulario maximizado
Publicado: 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.
Gracias por la ayuda.
Re: Como abrir formulario maximizado
Publicado: 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
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