VB Snippet - Limit Form Resize
VB Code:
'*******************************************************************************
' MODULE: Form1
' AUTHOR: Speedy
'
' DESCRIPTION:
' LIMIT FORM RESIZE EXAMPLE
' YOU WILL NEED TO HANDLE THE FLICKERING EFFECT !!!
'*******************************************************************************
Option Explicit
'*******************************************************************************
' Form_Load (SUB)
'
' DESCRIPTION:
' ACTION ON FORM LOAD
'*******************************************************************************
Private Sub Form_Load()
' RESIZE THE FORM
Call Form_Resize
End Sub
'*******************************************************************************
' Form_Resize (SUB)
'
' DESCRIPTION:
' ACTION ON RESIZE OF FORM
'*******************************************************************************
Private Sub Form_Resize()
On Error Resume Next
Dim WMIN As Double, HMIN As Double
WMIN = 2500
HMIN = 2500
If Me.Width <= WMIN Then
' DO NOT ALLOW WIDTH TO BE SET BELOW MINIMUM
Me.Width = WMIN
End If
If Me.Height <= HMIN Then
' DO NOT ALLOW WIDTH TO BE SET BELOW MINIMUM
Me.Height = HMIN
End If
End Sub