Restrict Form Resizing

[eiSecure]

Does anyone know how to not let the user make the form smaller than a certain size?

I don't really want to use:

If Me.Width <= 5115 Then
        Me.Width = 5115
    End If

since it flickers when the size is smaller than the one specified.

Any solutions and/or other ways of doing this?

[Wak]

if u use ShowWindow then you can holt the resize in much the same effect.

I'm not to sure of the code now, but I'll post it later, but I know it uses this function.

[Nucleus]

http://www.mvps.org/vbnet/index.html...minmaxinfo.htm

[DPHJetta426]

I am trying to do the same thing also but I subclassed my form and looked for the WM_SIZING msg

Dim r As RECT
Select Case msg
Case WM_SIZING
CopyMemory r, lParam, Len(r)
If (r.Bottom - r.Top) > 441 Or (r.Right - r.Left) > 672 Then
WndProc = CallWindowProc(MainSubclassRet, hwnd, msg, wParam, lParam)
Else
WndProc = 0
End If
Case Else
WndProc = CallWindowProc(MainSubclassRet, hwnd, msg, wParam, lParam)
End Select

The only problem w/ this is that it doesn't stop it once the dimensions are what it is supposed to be at. if you could figure this one out and reply that'd be great

[eiSecure]

Nucleus, that works okay, but the subclassing crashes very often.

[Nucleus]

Don't press the stop button while subclassing else it will crash, unload the form instead.

[Matthew Gates]

Try this:

Private Declare Function LockWindowUpdate Lib "user32" (ByVal hwndLock As Long) As Long
 
Dim LockWindow As Boolean
Dim iWidth As Integer
 
 
Private Sub Form_Load()
    iWidth = Me.Width '5115
End Sub
 
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    LockWindowUpdate 0&
End Sub
 
Private Sub Form_Resize()
    On Error Resume Next
    Static FirstLoad
 
    If FirstLoad = False Then
        FirstLoad = True
        LockWindow = True
        Exit Sub
    End If
    
    If Me.Width <= iWidth Then
        If LockWindow = True Then
            Me.Width = iWidth
            LockWindowUpdate Me.hWnd
        End If
    End If
    
End Sub