Notice: Undefined offset: 2 in /home2/icentarb/public_html/icentar/classes/class.permissions.php on line 735
'--------------------------------------------------------------------------------------- ' Procedure : ReSizeForm ' DateTime : 27/01/2003 ' Author : Jamie Czernik ' Purpose : Routine should be called on a form's onOpen or onLoad event. '--------------------------------------------------------------------------------------- Public Sub ReSizeForm(ByVal frm As Access.Form) Dim rectWindow As tRect Dim lngWidth As Long Dim lngHeight As Long Dim sngVertFactor As Single Dim sngHorzFactor As Single On Error Resume Next sngVertFactor = getFactor(True) 'Local function returns vertical size change. sngHorzFactor = getFactor(False) 'Local function returns horizontal size change. Resize sngVertFactor, sngHorzFactor, frm 'Local procedure to resize form sections & controls. If WM_apiIsZoomed(frm.hwnd) = 0 Then 'Don't change window settings for max'd form. Access.DoCmd.RunCommand acCmdAppMaximize 'Maximize the Access Window. 'Store for dimensions in rectWindow:- Call WM_apiGetWindowRect(frm.hwnd, rectWindow) 'Calculate and store form height and width in local variables:- With rectWindow lngWidth = .right - .left lngHeight = .bottom - .Top End With 'Resize the form window as required (don't resize this for sub forms):- If frm.Parent.Name = VBA.vbNullString Then Call WM_apiMoveWindow(frm.hwnd, ((getScreenResolution.Width - _ (sngHorzFactor * lngWidth)) / 2) - getLeftOffset, _ ((getScreenResolution.Height - (sngVertFactor * lngHeig