Como abrir formulario maximizado

Discute sobre las herramientas de la base de datos

Como abrir formulario maximizado

Notapor alex.milla » Jue Abr 07, 2011 11:01 pm

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

Re: Como abrir formulario maximizado

Notapor RMG » Vie Abr 08, 2011 3:32 pm

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.6 y LibreOffice 6.2.4.2 en W-10, y LibreOffice 4.1.6.2 en Open Suse 13.1(VirtualBox)
RMG
 
Mensajes: 3594
Registrado: Mar Nov 17, 2009 6:59 am
Ubicación: Valencia - España

Re: Como abrir formulario maximizado

Notapor Augusto » Mar Abr 12, 2011 3:23 pm

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

Re: Como abrir formulario maximizado

Notapor RMG » Mar Abr 12, 2011 6:00 pm

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.6 y LibreOffice 6.2.4.2 en W-10, y LibreOffice 4.1.6.2 en Open Suse 13.1(VirtualBox)
RMG
 
Mensajes: 3594
Registrado: Mar Nov 17, 2009 6:59 am
Ubicación: Valencia - España

Re: Como abrir formulario maximizado

Notapor alex.milla » Mié Abr 13, 2011 10:31 pm

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

Notapor alex.milla » Jue Abr 21, 2011 8:40 pm

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

Re: Como abrir formulario maximizado

Notapor Miisu » Dom Abr 24, 2011 2:44 am

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
NeoOffice 2.2.3 con MacOS 10.4
Miisu
 
Mensajes: 51
Registrado: Lun Feb 07, 2011 5:31 pm


Volver a Base

¿Quién está conectado?

Usuarios navegando por este Foro: mferrete y 4 invitados