Como abrir formulario maximizado
- alex.milla
- Mensajes: 7
- Registrado: Mar Abr 05, 2011 12:29 pm
- Ubicación: Barcelona
Como abrir formulario maximizado
Buenas de nuevo a todos.
¿Cómo puedo hacer que un formulario al abrirlo se maximice automáticamente?
Muchas gracias.
¿Cómo puedo hacer que un formulario al abrirlo se maximice automáticamente?
Muchas gracias.
OpenOffice 3.2.0 (Portable) en Windows XP/Windows Vista/Windows 7
Re: Como abrir formulario maximizado
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
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
OpenOffice 4.1.15 y LibreOffice 6.2.4.2 en W-10, y LibreOffice 4.1.6.2 en Open Suse 13.1(VirtualBox)
Re: Como abrir formulario maximizado
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
Abrazo
OpenOffice 3.2 en Windows Vista
Re: Como abrir formulario maximizado
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
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
OpenOffice 4.1.15 y LibreOffice 6.2.4.2 en W-10, y LibreOffice 4.1.6.2 en Open Suse 13.1(VirtualBox)
- alex.milla
- Mensajes: 7
- Registrado: Mar Abr 05, 2011 12:29 pm
- Ubicación: Barcelona
Re: Como abrir formulario maximizado
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.
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.
OpenOffice 3.2.0 (Portable) en Windows XP/Windows Vista/Windows 7
- alex.milla
- Mensajes: 7
- Registrado: Mar Abr 05, 2011 12:29 pm
- Ubicación: Barcelona
Re: Como abrir formulario maximizado
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.
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.
OpenOffice 3.2.0 (Portable) en Windows XP/Windows Vista/Windows 7
Re: Como abrir formulario maximizado
hola...
solo que buscas más que maximizar es dimensionar el formulario a cierto tamaño determinado usa este macro:
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
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 segundo numero posición en relación a Y
los ultimo dos números son alto y ancho respectivamente
Saludos
NeoOffice 2.2.3 con MacOS 10.4