求一个思路和一个定义的方法

来源：互联网发布：xampp教程数据库编辑：程序博客网时间：2024/05/27 01:21

程序代码：

&&百钱买百鸡.prg&&_screen.Visible= .F.formHeight=280formWidth=375objForm=CREATEOBJECT("fm1")objForm.showREAD EVENTSDEFINE 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 ENDDEFINEDEFINE 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*!*        &&*!*    ENDDEFINEDEFINE CLASS myCmd1 as CommandButton    visible=.t.    caption="退出"    height=25    width=85        PROCEDURE click        thisform.release    ENDPROCENDDEFINE

问题一：窗口大小调整了，页框的大小怎么随之刷新？求思路

问题二：page控件是怎么add object的？

0 0