Apache OpenOffice Community Forum

Code: Select all

'
' use the MS Winows API
'
' Add this section to the beginning of 
' the basic module where you add
' the actual work procedures
'
Declare Function ShowWindow Lib "user32" _ 
(ByVal lHwnd As Long, _ 
ByVal lCmdShow As Long) As Boolean 


'
' This is procedure that does the actual work
' 
sub MaximizeFrame( aFrame as object ) 
    dim window 
    dim handle 

    window = aframe.getContainerWindow() 
    handle = window.getWindowHandle(dimarray(), 1)  REM 1=WIN32 
    ShowWindow( handle, 3 ) 

end sub 

'
' Here is a helper procedure for doing this
' with an embedded data entry form in
' Base
'
' 
' In the form designer window 
' select any control 
' right click and select Form
' on then event property page 
' you want to assign the "When loading" 
' event to this procedure
' not the actual work procedure above.
'
sub onWhenLoading( oEvent as object ) 

   MaximizeFrame( oEvent.Source.Parent.Parent.CurrentController.Frame) 

end sub