The following macros can be used to open a form in a maximized state:
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