求一个思路和一个定义的方法
程序代码:
&&百钱买百鸡.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的?