I need to make my form not resize to anything smaller than...

[vbman213]

basicly what I need is to make it so my form cant get any smaller than 11640 width X 6105 height but can resize to any size bigger...

[RobDog888]

http://www.vbforums.com/showpost.php...07&postcount=7

[MartinLiss]

Would it be a problem if it couldn't be made bigger?

[Paul M]

Private Sub Form_Resize()
If Me.Width <= 11640 And Me.Height <= 6105 Then
Me.Width = 11640
Me.Height = 6105
End If
End Sub

Try that.

[vbman213]

would't that cause flickering?

[vbman213]

http://www.vbforums.com/showpost.php...07&postcount=7

that crashed my app...

[Paul M]

No no flickering. Test it

[vbman213]

No no flickering. Test it

yes yes flickering... just resize it smaller... it goes crazy...

[Paul M]

No doesn't do that for me, it just jumps straight away to the smallest size allowed. No consistent flickering. However i will test the code in rob's link and see how that compares.

[vbman213]

ok do this take an resize the form to the smallest size you can get it then let go of the mouse and while you do that you can see the flickering

[Paul M]

O btw it should be

Or

instead of

And

in the code

[Paul M]

ok do this take an resize the form to the smallest size you can get it then let go of the mouse and while you do that you can see the flickering

No flickering at all for me, it just goes immediately back to the smallest allowed size and thats it It might be your computer.

[vbman213]

umm weird

[Paul M]

I tested the code in the link, it works well. I would probably use it over mine Have a look at it

[leinad31]

that crashed my app...

Before you subclass make sure there are no other sources of error in your source code or handle them accordingly.

[RobDog888]

Yes, the link I posted used subclassing so you can not stop the program from running by pressing the stop button on the VB IDE or it will crash your app. You need to press your close button or the 'x' close button.

You can modify the faq code to do whatever you want as it uses subclassing there will be absolutely no flickering.

[vbman213]

Ok thanks so much... now I have one more question...

the lines of that code that are the const. for the max width and height... how can I calculate that with the current users screen size so it will maximize properly or how can I just disable the Max_width, Max_Height

[Milk]

Just remove the sections of code concerned with Max Width/Height, the form will maximize correctly

[Lord Orwell]

If your computer is set to show windows contents while dragging, it triggers the form paint event constantly while resizing the window. Perhaps that is why some people are seeing flickering and others are not.

[vbman213]

I removed that and it crashes...

[Milk]

I removed that and it crashes...

You do have to be careful when sub classing

Did you remove

 'Keep the form only as wide as MAX_WIDTH
        If (r.RIGHT - r.Left > MAX_WIDTH) Then
            Select Case wParam
                Case WMSZ_LEFT, WMSZ_BOTTOMLEFT, WMSZ_TOPLEFT
                    r.Left = r.RIGHT - MAX_WIDTH
                Case WMSZ_RIGHT, WMSZ_BOTTOMRIGHT, WMSZ_TOPRIGHT
                    r.RIGHT = r.Left + MAX_WIDTH
            End Select
        End If
        
        'Keep the form only as tall as MAX_HEIGHT
        If (r.Bottom - r.Top > MAX_HEIGHT) Then
            Select Case wParam
                Case WMSZ_TOP, WMSZ_TOPLEFT, WMSZ_TOPRIGHT
                    r.Top = r.Bottom - MAX_HEIGHT
                Case WMSZ_BOTTOM, WMSZ_BOTTOMLEFT, WMSZ_BOTTOMRIGHT
                    r.Bottom = r.Top + MAX_HEIGHT
            End Select
        End If

because thats what I meant and it works for me.

[PKDEB]

The other way around is to put the resize command at Mouse Up event. So let the user resize the window as they like but once the Mouse up event occurs, it will be back to the desired size.

At lease there will no flickering, i promise

[03myersd]

O btw it should be

Or

instead of

And

in the code

Would it not be better to use two seperate if statements like this:

Private Sub Form_Resize()
If Me.Width < 11640 Then Me.Width = 11640
If Me.Height < 6105 Then Me.Height = 6105
End Sub

This way it means that the width can be reset while leaving the height alone and vice versa.

[Mark103]

I removed that and it crashes...

i believe this is a bugs