[RESUELTO] MINIMIZA todas las Pantallas

Discute sobre las herramientas de la base de datos

[RESUELTO] MINIMIZA todas las Pantallas

Notapor meritxell » Jue Ene 13, 2011 2:09 pm

A ver si lo conseguimos... Pregunta:

¿Alguién podría indicarme cómo crear un botón para minimizar TODAS las pantallas del Open Base?

Gracias
Última edición por meritxell el Mar Ene 18, 2011 11:12 am, editado 1 vez en total
Openoffice 3.2 - Windows 7
meritxell
 
Mensajes: 3
Registrado: Jue Ene 13, 2011 1:32 pm

Re: MINIMIZA todas las Pantallas

Notapor Cascabel » Jue Ene 13, 2011 7:29 pm

Quede claro que lo que sigue es válido SOLO PARA WINDOWS.
Asocia la macro sMinimizaTodo al evento "Ejecutar una acción" de un botón.
Minimizará tanto la ventana de Base como las ventanas de todos los formularios, consultas y tablas abiertos (vivos o en diseño).
No lo he probado con informes. He observado que no afecta a la ventana del editor de Basic.

Código: Seleccionar todo   Expandir vistaContraer vista
Declare Function ShowWindow Lib "user32" (ByVal lHwnd As Long,ByVal lCmdShow As Long) As Boolean

Sub sMinimizaTodo()
   Dim oFrames As Object
   Dim oFrame As Object
   Dim i As Integer
   Dim c As Integer
   'Minimiza la ventana de Base
   oFrame=ThisDatabaseDocument.CurrentController.Frame
   sMinimizaVentana(oFrame)
   'Minimiza las otras ventanas
   oFrames=oFrame.Frames
   c=oFrames.Count
   For i=0 To c-1
      oFrame=oFrames(i)
      sMinimizaVentana(oFrame)
   Next
End Sub

Sub sMinimizaVentana(Frame As Object)
   Dim oConWin As Object
   Dim oHandle
   oConWin=Frame.GetContainerWindow()
   oHandle=oConWin.GetWindowHandle(dimarray(),1)
   ShowWindow(oHandle,2)   '2 para minimizar
End Sub
OOo 3.3.0: OOO330m20 (Build:9567) en WXP+SP3 y en Ubuntu 10.10
Cascabel
 
Mensajes: 283
Registrado: Mié Nov 11, 2009 10:53 am

Re: [RESUELTO] MINIMIZA todas las Pantallas

Notapor meritxell » Mar Ene 18, 2011 11:13 am

Muchísimas Gracias!
Funciona perfectamente!
Estoy impresionada, no lo hubiera resuelto yo misma nunca.

gracias.
Openoffice 3.2 - Windows 7
meritxell
 
Mensajes: 3
Registrado: Jue Ene 13, 2011 1:32 pm

Re: [RESUELTO] MINIMIZA todas las Pantallas

Notapor Miisu » Mar Mar 08, 2011 5:06 pm

y alguna forma para linux ?


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: No hay usuarios registrados visitando el Foro y 3 invitados