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