VFP 愛用者社區

syntech · 發表於: 星期二六月 03, 2008 3:21 pm 文章主題:

OO P 的學問很深,
很多人連最基本的都沒搞懂就上了.

hichin · 註冊時間: 2008-02-21 文章: 88 第 18 樓

fpchin · 發表於: 星期二六月 03, 2008 3:38 pm 文章主題:

本人的做法如下:

obj1 = createobject("form1")
obj1.show

define class form1 as form
windowtype = 1
dimension a(2)
left = 100
top = 100

add object text1 as textbox with ;
top = 10,;
left = 10,;
width = 100,;
height = 25

add object text2 as textbox with ;
top = this.text1.top + this.text1.height,;
left = this.text1.left,;
width = this.text1.width,;
height = this.text1.height

add object cmd1 as commandbutton with ;
top = this.height - 30,;
left = 10,;
width = 100,;
height = 25,;
caption = "command 1"

PROCEDURE INIT
thisform.text1.value = 0
thisform.text2.value = 0
ENDPROC

PROCEDURE CMD1.CLICK
xobj = createobject("form2")
xobj.obj1 = thisform
xobj.show
thisform.text1.value = thisform.a(1)
thisform.text2.value = thisform.a(2)
ENDPROC

enddefine

define class form2 as form
windowtype = 1
top = 150
left = 150
obj1 = ""

add object cmd2 as commandbutton with ;
top = this.height - 30,;
left = 10,;
width = 100,;
height = 25,;
caption = "command 1"

PROCEDURE CMD2.CLICK
thisform.obj1.a(1) = 1
thisform.obj1.a(2) = 2
thisform.release
ENDPROC
enddefine