От формы к программе формы

Эта программа показывает перемещение данных с одной формы в другую.

Чтобы программа работала, вам нужно: две формы F1 и F2. На F1 вам нужно 2 textboxes и 1 commandbutton. На F2 вам нужно 2 textboxes и 4 commandbuttons.

How does this look ? See it here F1 ( in German )

prgformtoformplus1.png

Как это выглядит ? Посмотрите F2

prgformtoformplus2.png

Код для 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

Код для 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