form resize [resolved]

[joeframbach]

i have a picbox that i use to draw a graph. dock is set to fill so it will consume the entire graph. but, the graph is scaled and becomes stretched when the user resizes one border of the form. i want the form to always be a square shape, so the height and width are always the same.

i use this code right now, but it gives me a nice little infinite loop:

Private Sub Form1_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Resize
        If Me.Width > Me.Height Then
            Me.Height = Me.Width
        Else
            Me.Width = Me.Height
        End If
    End Sub

any suggestions?

[Slow_Learner]

Strange, on my machine it doesn't infinitely loop (although it looks to me like it ought to). Why don't you try:

Private Sub Form1_Resize(ByVal sender As Object, _
    ByVal e As System.EventArgs) Handles MyBase.Resize
        If Me.Width <> Me.Height Then
            If Me.Width > Me.Height Then
                Me.Height = Me.Width
            Else
                Me.Width = Me.Height
            End If
        End If
    End Sub

This should reduce the number of times the event fires (avoid adjusting width/height if they are already equal)

[joeframbach]

wow. thanks. that was really obvious.
but im not gonna put [resolved] up there cuz it still flickers

[hellswraith]

It is going to flicker because while the user is resizing your form while you are adjusting it also, making it fight back and forth drawing and redrawing the form.

Here is one way to stop that, but you don't get the effect visually:

Dim formResized As Boolean
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        formResized = False
    End Sub
 
    Private Sub Form1_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Resize
        formResized = True
    End Sub
 
    Private Sub Form1_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.MouseEnter
        If formResized = True Then
            MessageBox.Show("Form was resized")
            Me.Width = Me.Height
            formResized = False
        End If
    End Sub

[joeframbach]

works great! but there has to be a faster way...

[Lunatic3]

If you dont want Hellswraith code then the other code will make flicker unless you change your display settings in windows. If you are using windows XP then go to Display Setting, Choose Appearance>Effects and remove the tick where it says: 'Show window contents while dragging'
There should be somthing similar for other windows too.