Centering a form in VB.NET

[Paladine]

Just got to playing around, and felt that the VB forum on here could use some posts.

What I was playing around with forms in VB.NET and wanted to hard code centering a form. Here is what I found...and if anyone has an easier or slicker way...let me know.

-in the windows form generated code portion of a form in VB.NET ad the following line:

Me.StartPosition = FormStartPosition.CenterScreen

-Note: to work this must be placed in the Form1 (or whatever form name) initialization code.

[Mr Gates]

I've started using this code, since it works no matter what the screen resolution is on the user's monitor. It only does it when you start up the program, but I assume that's what you want. (I always use the prefix frm for the names of forms. In this case the form name is SampApplication

Code:

------------------------------------------------------------------------------
frmSampApplication.Left = (Screen.Width - frmSampApplication.Width) / 2
frmSampApplication.Top = (Screen.Width - frmSampApplication.Height) / 2
------------------------------------------------------------------------------

[Tekmaven]

I'm 99% sure that this requires no code - its in the properties window for the form :-).

[Mr Gates]

I'm not exactly sure you can do it in the properties window, or at least get it to the exact location. It would require a lot more work than needed. If you are talking about the form layout window, you can try to center it in there, but again, it would be very hard to get it to the exact spot, and it wouldn't work on all resolutions.

[Tekmaven]

Is there a form layout window in .NET? lol

This is what I am talking about:
[img]http://tekmaven.dizla.com/centerscreen.jpg[/img]

[Mr Gates]

:o I really need to think about getting .NET

Yea, I suppose that would work. hehe.

[big_k105]

they have that same property for vb6 also, for those of us using vb6 still :(

[Tekmaven]

I love .NET. I actually live for .NET.

If your a VB6 programmer... it has somewhat of a learning curve to go .NET... but it will be extremely rewarding.

Not only is .NET 100x faster, but its more powerfull too :-).

[cscgal]

Ryan, do you think you'd be able to resize the screenshot you have posted. It's sorta annoying that I keep having to horizontally scroll everytime I visit this page.

[Paladine]

Well bite my tongue. I guess I need to start looking more at the properties window. Hehe...

Guess I was punch drunk or something.

Thanks for the tip on the tip.

Except the screen width code noted above is VB6, and not .NET.

[I_Byte]

Mr. Gates, I got my copy of VB.Net 2003 for free. I don't know how are why. I go online a lot to reseach stuff and I most have filled out a survey or something. Next thing I know, I have a 60 day trial version that doesn't expire. I just wish I knew more about vb.net than I do. I'm learning, slowly but surely! :roll:

[linksys1]

I've started using this code, since it works no matter what the screen resolution is on the user's monitor. It only does it when you start up the program, but I assume that's what you want. (I always use the prefix frm for the names of forms. In this case the form name is SampApplication

Code:

------------------------------------------------------------------------------ frmSampApplication.Left = (Screen.Width - frmSampApplication.Width) / 2 frmSampApplication.Top = (Screen.Width - frmSampApplication.Height) / 2 ------------------------------------------------------------------------------

Try this for VB.Net

Me.Top = (Screen.PrimaryScreen.WorkingArea.Height - Me.Height) / 2
Me.Left = (Screen.PrimaryScreen.WorkingArea.Width - Me.Width) / 2

[mattwilkinson99]

The issue with using primaryscreen is that you might not be on the primary screen and also the screens may be offset with respect to the primary. This code eliminates that and centers the form in the current screen:

Dim currentArea = Screen.FromControl(Me).WorkingArea
Me.Top = currentArea.Top + CInt((currentArea.Height / 2) - (Me.Height / 2))
Me.Left = currentArea.Left + CInt((currentArea.Width / 2) - (Me.Width / 2))