Ansicht maximieren
Verfasst: Do, 15.10.2009 19:04
Hallo.
Ich möchte ein Makro schreiben, welches beim Öffnen eines Formulars in Base dieses dann auf maximale Größe öffnet.
Bei der Windows-Version gibt es dafür folgendes Makro:
Unter Linux erhalte ich beim Auführen eine Fehlermeldung 
hat jemand eine Idee, wie das Makro unter Linus ausschauen muss?
Schon jetzt danke.
Grüße
Uli
Ich möchte ein Makro schreiben, welches beim Öffnen eines Formulars in Base dieses dann auf maximale Größe öffnet.
Bei der Windows-Version gibt es dafür folgendes Makro:
Code: Alles auswählen
Option Explicit
Declare Function ShowWindow Lib "user32.dll" _
(ByVal hwnd&, ByVal nCmdShow&) as Boolean
Sub maxFrame()
Dim oFrame as Object, oWindow as Object, handle&
oFrame = ThisComponent.CurrentController.Frame
oWindow = oFrame.ContainerWindow()
handle = oWindow.getWindowHandle(dimarray(), 1) ' 1 = WIN32
ShowWindow( handle, 3 ) ' 3 = SW_MAXIMIZE
End Sub
hat jemand eine Idee, wie das Makro unter Linus ausschauen muss?
Schon jetzt danke.
Grüße
Uli