Does anyone know a simple way to have a program start with the main
form maximized on Display2?
form maximized on Display2?
-
-
Re: Maximize form on Display2
On May 25, 11:28 am, Kevin <kevinp@nospam_ cfl.rr.comwrote :Assuming Display2 shows up as Screen.AllScree ns(1) add this to aDoes anyone know a simple way to have a program start with the main
form maximized on Display2?
module:
Public Sub Main()
Application.Ena bleVisualStyles ()
Dim f As New MainForm()
f.StartPosition = FormStartPositi on.Manual
' You'll want to do some checking/error handling here to
' prevent an IndexOutOfRange Exception from occuring
f.Top = Screen.AllScree ns(1).WorkingAr ea.Y
f.Left = Screen.AllScree ns(1).WorkingAr ea.X
f.WindowState = FormWindowState .Maximized
f.ShowDialog()
End Sub
Doing this requires you turn off the ApplicationFram ework and select
Sub Main as the starting point.
Thanks,
Seth Rowe
-
Re: Maximize form on Display2
Thanks for the reply, but actually I found Screen.AllScree ns() just
after posting the question (Guess I should've looked a little harder,
eh?). Then I did a For...Each loop to get the working area of each
screen.
Works great. Thanks again.
On 25 May 2007 10:18:18 -0700, rowe_newsgroups <rowe_email@yah oo.com>
wrote:
>On May 25, 11:28 am, Kevin <kevinp@nospam_ cfl.rr.comwrote :>>Does anyone know a simple way to have a program start with the main
>form maximized on Display2?
>Assuming Display2 shows up as Screen.AllScree ns(1) add this to a
>module:
>
Public Sub Main()
Application.Ena bleVisualStyles ()
>
Dim f As New MainForm()
>
f.StartPosition = FormStartPositi on.Manual
>
' You'll want to do some checking/error handling here to
' prevent an IndexOutOfRange Exception from occuring
>
f.Top = Screen.AllScree ns(1).WorkingAr ea.Y
f.Left = Screen.AllScree ns(1).WorkingAr ea.X
>
f.WindowState = FormWindowState .Maximized
>
f.ShowDialog()
End Sub
>
>Doing this requires you turn off the ApplicationFram ework and select
>Sub Main as the starting point.
>
>Thanks,
>
>Seth RoweComment
Comment