Centering a Form

[peter hansen]

In old Visual BASIC 6-days it was possible to set the Left and Top-property
of a Form and put it into the center of the screen by using the Screen.Left,
Screen.Width, Top and Height.

Where do I find those old properties in VB 2003.NET

// Peter

[Jerry Ham]

me.Left, me.Top, etc.

You can also set the startup position of the form to centerscreen, or if you
are using showdialog, you can use the centerowner.

"peter hansen" <wo**@tell.yo u> wrote in message
news:%2******** ********@TK2MSF TNGP10.phx.gbl. ..

In old Visual BASIC 6-days it was possible to set the Left and Top-property of a Form and put it into the center of the screen by using the Screen.Left, Screen.Width, Top and Height.

Where do I find those old properties in VB 2003.NET

// Peter

[Cor]

Hi peter

me.StartPositio n = FormStartPositi on.CenterScreen

I think this is even easier?

Cor

of a Form and put it into the center of the screen by using the Screen.Left, Screen.Width, Top and Height.

Where do I find those old properties in VB 2003.NET

[Herfried K. Wagner [MVP]]

* "peter hansen" <wo**@tell.yo u> scripsit:

In old Visual BASIC 6-days it was possible to set the Left and Top-property
of a Form and put it into the center of the screen by using the Screen.Left,
Screen.Width, Top and Height.

Set its 'StartPosition' property to 'CenterScreen' or call the form's
'CenterToScreen ' method.

--
Herfried K. Wagner [MVP]
<http://www.mvps.org/dotnet>

[Marc]

-----Original Message-----
In old Visual BASIC 6-days it was possible to set the Left and Top-propertyof a Form and put it into the center of the screen by using the Screen.Left,Screen.Width , Top and Height.

Where do I find those old properties in VB 2003.NET

// Peter
.

Try This
CenterForm(ME)
''''''''''''''' '''''''''

Sub CenterForm(ByVa l TheForm As Form)
' Centers the form on the screen.
Dim RecForm As Rectangle = Screen.GetBound s
(TheForm)
TheForm.Left = CInt((RecForm.W idth -
TheForm.Width) / 2)
TheForm.Top = CInt((RecForm.H eight -
TheForm.Height) / 2)
End Sub

[Herfried K. Wagner [MVP]]

* "Marc" <an*******@disc ussions.microso ft.com> scripsit:

Try This
CenterForm(ME)
''''''''''''''' '''''''''

Sub CenterForm(ByVa l TheForm As Form)
' Centers the form on the screen.
Dim RecForm As Rectangle = Screen.GetBound s
(TheForm)
TheForm.Left = CInt((RecForm.W idth -
TheForm.Width) / 2)
TheForm.Top = CInt((RecForm.H eight -
TheForm.Height) / 2)
End Sub

Why do that if the functionality is already built in?

;-)

--
Herfried K. Wagner [MVP]
<http://www.mvps.org/dotnet>