Resize a .NET form

  • Thread starter Thread starter Rob
  • Start date Start date
R

Rob

I want to resize the height of a form without resizing the width,
therefore I tried:

Private Sub Form1_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Resize

Me.Width = 226

End Sub

However this causes a lot of flickering on my form. How can I turn
off the flickering ?

Please help, RS
 
Rob said:
I want to resize the height of a form without resizing the width,
therefore I tried:

Private Sub Form1_Resize(ByVal sender As Object, ByVal e As
System.EventArgs) Handles MyBase.Resize

Me.Width = 226

End Sub

However this causes a lot of flickering on my form. How can I turn
off the flickering ?
Click to expand...


Example:

Imports System.Runtime.InteropServices

Public Class Form1

<StructLayout(LayoutKind.Sequential)> _
Private Structure MinMaxInfo
Public reserved As Point
Public maxSize As Point
Public maxPosition As Point
Public minTrackSize As Point
Public maxTrackSize As Point
End Structure

Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)

Const WM_GETMINMAXINFO As Integer = &H24

MyBase.WndProc(m)

If m.Msg = WM_GETMINMAXINFO Then
Dim mmi As MinMaxInfo

mmi = DirectCast( _
Marshal.PtrToStructure(m.LParam, GetType(MinMaxInfo)), _
MinMaxInfo _
)

mmi.maxTrackSize.X = 226
mmi.minTrackSize.X = 226

Marshal.StructureToPtr(mmi, m.LParam, True)
End If

End Sub

End Class




Armin
 
Rob said:
I want to resize the height of a form without resizing the width,
Click to expand...
Private Sub Form1_Resize(ByVal sender As Object, ByVal e As
System.EventArgs) Handles MyBase.Resize
Me.Width = 226
End Sub
Click to expand...
However this causes a lot of flickering on my form.
Click to expand...

Fix the width of the form using MinimumSize and MaximumSize:

Me.MinimumSize = New Size( 226, 0 )
Me.MaximumSize = New Size( 226, 600 ) ' say

Better still, get the current screen size and use that for the maximum
height instead - I can't' remember the code just at the moment.

HTH,
Phill W.
 
Better still, get the current screen size and use that for the maximum
height instead - I can't' remember the code just at the moment.
Click to expand...

I'm guessing you're referring to either
Screen.PrimaryScreen.Bounds.Height or
Screen.PrimaryScreen.WorkingArea.Height

Thanks,

Seth Rowe
 
rowe_newsgroups said:
I'm guessing you're referring to either
Screen.PrimaryScreen.Bounds.Height or
Screen.PrimaryScreen.WorkingArea.Height
Click to expand...

That's the ones!

WorkingArea is the better of the two, taking into account those awkward
people (like me) who move the Start bar around the screen and make it a
different size ... ;-)

Regards,
Phill W.
 
Back
Top