Como abrir formulario maximizado

Discute sobre las herramientas de la base de datos
Responder
Avatar de Usuario
alex.milla
Mensajes: 7
Registrado: Mar Abr 05, 2011 12:29 pm
Ubicación: Barcelona

Como abrir formulario maximizado

Mensaje por alex.milla »

Buenas de nuevo a todos.

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

Muchas gracias. :super:
OpenOffice 3.2.0 (Portable) en Windows XP/Windows Vista/Windows 7
RMG
Mensajes: 3879
Registrado: Mar Nov 17, 2009 6:59 am
Ubicación: Valencia - España

Re: Como abrir formulario maximizado

Mensaje 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
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)
Augusto
Mensajes: 60
Registrado: Mié Dic 01, 2010 9:04 pm

Re: Como abrir formulario maximizado

Mensaje 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
OpenOffice 3.2 en Windows Vista
RMG
Mensajes: 3879
Registrado: Mar Nov 17, 2009 6:59 am
Ubicación: Valencia - España

Re: Como abrir formulario maximizado

Mensaje 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
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)
Avatar de Usuario
alex.milla
Mensajes: 7
Registrado: Mar Abr 05, 2011 12:29 pm
Ubicación: Barcelona

Re: Como abrir formulario maximizado

Mensaje 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:
OpenOffice 3.2.0 (Portable) en Windows XP/Windows Vista/Windows 7
Avatar de Usuario
alex.milla
Mensajes: 7
Registrado: Mar Abr 05, 2011 12:29 pm
Ubicación: Barcelona

Re: Como abrir formulario maximizado

Mensaje 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.
OpenOffice 3.2.0 (Portable) en Windows XP/Windows Vista/Windows 7
Miisu
Mensajes: 51
Registrado: Lun Feb 07, 2011 5:31 pm

Re: Como abrir formulario maximizado

Mensaje 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
NeoOffice 2.2.3 con MacOS 10.4
Responder