von lichten » Di, 08.01.2008 14:17
Hallo,
ich arbeite seit kurzem mit Base und habe keine Ahnung von der Programmiersprache. Um mal ein bisschen mit Makros zu spielen und diese auszuprobieren, habe ich mir ein Makro (nachfolgend aufgeführt) aus dem Internet geholt, damit mir Formulare gleich an meine Bildschirmgröße angepasst, angezeigt werden. Wenn ich aber jetzt Base starte, wird mir folgende Meldung gebracht:
BASIC-Laufzeitfehler.
Es ist eine Exception aufgetreten
Type: com.sun.star.lang.DisposedExceptionMessage:.
Ich habe keine Ahnung, ob das nun an dem verwendeten Makro liegt, oder ob ich einen anderen Fehler mache.
Das Makro, das ich verwende ist folgendes:
Option Explicit
Declare Function ShowWindow Lib "user32" _
(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
Vielleicht kann mir ja von Euch einer helfen,. Vielen Dank schon im Voraus,
Ludwig
Hallo,
ich arbeite seit kurzem mit Base und habe keine Ahnung von der Programmiersprache. Um mal ein bisschen mit Makros zu spielen und diese auszuprobieren, habe ich mir ein Makro (nachfolgend aufgeführt) aus dem Internet geholt, damit mir Formulare gleich an meine Bildschirmgröße angepasst, angezeigt werden. Wenn ich aber jetzt Base starte, wird mir folgende Meldung gebracht:
BASIC-Laufzeitfehler.
Es ist eine Exception aufgetreten
Type: com.sun.star.lang.DisposedExceptionMessage:.
Ich habe keine Ahnung, ob das nun an dem verwendeten Makro liegt, oder ob ich einen anderen Fehler mache.
Das Makro, das ich verwende ist folgendes:
Option Explicit
Declare Function ShowWindow Lib "user32" _
(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
Vielleicht kann mir ja von Euch einer helfen,. Vielen Dank schon im Voraus,
Ludwig