B4J Question B4J Newbie Questions (Forms)

[LWGShane]

How do I center the form?

 

[Erel]

In the center of the screen?

Sub AppStart (Form1 As Form, Args() As String)
   MainForm = Form1
   MainForm.Show
   CenterForm(MainForm)
End Sub

Sub CenterForm(f As Form)
   Dim ps As Screen = fx.PrimaryScreen
   MainForm.WindowLeft = (ps.MaxX - ps.MinX) / 2 - MainForm.Width / 2
   MainForm.WindowTop = (ps.MaxY - ps.MinY) / 2 - MainForm.Height / 2
End Sub

 

[LWGShane]

Thanks!

I also remember my other question I was going to post: Is there a tutorial anywhere that deals with opening new forms?

 

[Erel]

Remember that a Form is not special. You work with it like any other object.

To show a form you call Form.Show.

 

[LWGShane]

Remember that a Form is not special. You work with it like any other object.

To show a form you call Form.Show.

Thanks again.