程序代码:
&&百钱买百鸡.prg
&&_screen.Visible= .F.
formHeight=280
formWidth=375
objForm=CREATEOBJECT("fm1")
objForm.show
READ EVENTS
DEFINE CLASS fm1 as Form
windowType=1
showWindow=2
Desktop=.t.
autoCenter=.t.
caption="百钱买百鸡(举解法)"
height=formHeight
width=formWidth
ADD OBJECT cmdExit as myCmd1 WITH top=formHeight-5-25,left=formWidth-5-85
ADD OBJECT pageFrame1 as myPf WITH top=5,left=5
&&ADD OBJECT page1 as myPage1
&&ADD OBJECT page2 as myPage2
PROCEDURE UnLoad
CLEAR EVENTS
ENDPROC
&&PROCEDURE ??调整窗口大小
&&思路
&&ENDPROC
ENDDEFINE
DEFINE CLASS myPf as PageFrame
visible=.t.
pageCount=2
height=formHeight-10-25
width=formWidth-5
ENDDEFINE
*!* DEFINE CLASS myPage1 as Page
*!* &&
*!* ENDDEFINE
*!* DEFINE CLASS myPage2 as Page
*!* &&
*!* ENDDEFINE
DEFINE CLASS myCmd1 as CommandButton
visible=.t.
caption="退出"
height=25
width=85
PROCEDURE click
thisform.release
ENDPROC
ENDDEFINE
问题一:窗口大小调整了,页框的大小怎么随之刷新?求思路
问题二:page控件是怎么add object的?