• Home
 · 
• Custom Controls/Forms/Menus
 · 
• Function allows a form to be resized and re-centered automatically

Function allows a form to be resized and re-centered automatically

Function allows a form to be resized and re-centered automatically

API Declarations


' I.e.
FRMNormal=2700
FRMExpanded=2900
' Usage is AdjustFormSize(Me,FrmExpanded,,,true)




Rate Function allows a form to be resized and re-centered automatically

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

' Sub Name: AdjustFormHeight
' Written By: Michael Hammer - [email protected]
' Code may be used in programs as long as credit is given where credit is 
' Needed.  Thank you
' Purpose: This Subroutine resizes a form and centers it on the screen.
'          Or in the Form named in the Parent Argument
Child.Height = NewHeight ' Set new height
If NewWidth > 0 Then
    Child.Width = NewWidth ' Set New Width
End If
If Center Then
    If Parent Is Nothing Then  ' If Parent was not enterd2
        Child.Left = Screen.Width / 2 - Child.Width / 2
        Child.Top = Screen.Height / 2 - Child.Height / 2
    Else
        Child.Left = Parent.ScaleWidth / 2 - Child.Width / 2
        Child.Top = Parent.ScaleHeight / 2 - Child.Height / 2
    End If
End If
End Sub