OpenOffice.info

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

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:
[code]
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
[/code]

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