B4J Question Open another form

[RobRock92]

How can I open a new form with a button?

I need the code, thanks

 

[Spinter]

Sub Process_Globals
    Private fx As JFX
    Private MainForm As Form
    Dim Text1 As TextArea
    Dim Button1 As Button
    Private frm As Form
End Sub
 
Sub AppStart (Form1 As Form, Args() As String)
    MainForm = Form1
    MainForm.RootPane.LoadLayout("1") 'Load the layout file.
    MainForm.Show
End Sub
 
Sub Button1_Action
    frm.Initialize("frm", 300dip, 200dip)
    frm.Title = "Choose color"
    frm.SetFormStyle("DECORATED")
    frm.RootPane.LoadLayout("2")
    frm.Show 
End Sub
 
Sub frm_CloseRequest (EventData As Event)
    frm.Close
End Sub

 

[RobRock92]

thanks a lot...

 

[Erel]

Note that you do not need to handle CloseRequest event. The form will be closed anyway.

 

[Spinter]

Note that you do not need to handle CloseRequest event. The form will be closed anyway.

ok thanks!!