This program shows the transport of data from one form to the other.
To get the program going, you need: Two forms F1 and F2. On F1 you need 2 textboxes and 1 commandbutton. On F2 you need 2 textboxes and 4 commandbuttons.
How does this look ? See it here F1 ( in German )
How does this look ? See it here F2
The code for F1:
' F1.class STATIC PUBLIC SUB Main() DIM hForm AS Form hForm = NEW F1 hForm.show END PRIVATE hNew AS F2 PUBLIC SUB Button1_Click() hNew = NEW F2(textbox1.text) hNew.Show ME.hide END PUBLIC SUB _new(OPTIONAL t$ AS String) Textbox2.Text=t$ END
The code for F2:
' F2.class: 'Here the data arrive from F1 'the parameter has TO be OPTIONAL, 'otherwise it would be impossible to 'initialize an instance of this class 'without a parameter PUBLIC SUB _new(OPTIONAL t$ AS String) Textbox1.Text=t$ END 'Here some data are added to the text of F1 PUBLIC SUB Button1_Click() textbox2.text = Textbox1.Text & "Miller !" END PUBLIC SUB Button3_Click() textbox2.text = Textbox1.Text & "Smith !" END PUBLIC SUB Button4_Click() textbox2.text = Textbox1.Text & "Mayr !" END 'Here it goes back to F1 PRIVATE hNew AS F1 PUBLIC SUB Button2_Click() hNew = NEW F1(textbox2.text) hNew.Show ME.Close END
-- ReinerHoffmann - 12 Feb 2004