求一个思路和一个定义的方法 - VFP论坛

楼主

已结贴√ 问题点数：100 回复次数：4

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

程序代码：

&&百钱买百鸡.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的？

第 2 楼

得分:0

回复 2楼吹水佬

问题一解决了，非常感谢。

问题二，。。。　　有点乱　

　　　

程序代码：

&&百钱买百鸡.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
    minHeight=280
    minWidth=375
    
    ADD OBJECT cmdExit as myCmd1 WITH top=formHeight-5-25,left=formWidth-5-85
    
    ADD OBJECT pageFrame1 as myPf WITH top=5,left=5
*!*        pageFrame1.addObject('page1','questionDesc')
*!*        pageFrame1.addObject('page2','questionAnsw')
    
    PROCEDURE UnLoad
        CLEAR EVENTS
    ENDPROC
    
*!*        PROCEDURE resize
*!*            &&
*!*        ENDPROC 
ENDDEFINE

*!*    DEFINE CLASS questionDesc as Page
*!*        visible=.t.
*!*        caption="问题描述"
*!*    ENDDEFINE 

*!*    DEFINE CLASS questionAnsw as Page
*!*        visible=.t.
*!*        caption="解答"
*!*    ENDDEFINE 

DEFINE CLASS myPf as PageFrame
    visible=.t.
    pageCount=2
    height=formHeight-10-25
    width=formWidth-5
    anchor=15
    
ENDDEFINE

DEFINE CLASS myCmd1 as CommandButton
    visible=.t.
    caption="退出"
    height=25
    width=85
    anchor=12
    
    PROCEDURE click
        thisform.release
    ENDPROC
ENDDEFINE

报告老师，我低头不是因为我在装低调，是你问的问题，我真的不会答，，，

第 3 楼

得分:0

回复 4楼吹水佬

原来是这样　　不但解决了问题二　　还解决了问题三　　

报告老师，我低头不是因为我在装低调，是你问的问题，我真的不会答，，，

第 4 楼

得分:0

程序代码：

&&百钱买百鸡.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
    minHeight=280
    minWidth=375
    
    ADD OBJECT cmdExit as myCmd1 WITH top=formHeight-5-25,left=formWidth-5-85
    
    ADD OBJECT pageFrame1 as myPf WITH top=5,left=5
    
    PROCEDURE UnLoad
        CLEAR EVENTS
    ENDPROC
    
*!*        PROCEDURE resize
*!*            &&
*!*        ENDPROC 
ENDDEFINE

DEFINE CLASS myPf as PageFrame
    visible=.t.
    &&pageCount=2
    height=formHeight-10-25
    width=formWidth-5
    anchor=15
    
    ADD OBJECT page1 as myPage1
    ADD OBJECT page2 as myPage2
    
ENDDEFINE

DEFINE CLASS myPage1 as Page
    visible=.t.
    caption="问题描述"
    
    ADD OBJECT p1Lbl1 as qdLbl WITH top=15,left=10,caption="百钱买百鸡，公鸡、母鸡、小鸡都要买，各能几只？"
    ADD OBJECT p1Lbl2 as qdLbl WITH top=45,left=10,caption="铜钱一百"
    ADD OBJECT p1Lbl3 as qdLbl WITH top=75,left=10,caption="公鸡一只五钱"
    ADD OBJECT p1Lbl4 as qdLbl WITH top=105,left=10,caption="母鸡一只三钱"
    ADD OBJECT p1Lbl5 as qdLbl WITH top=135,left=10,caption="小鸡三只一钱"
    
ENDDEFINE 

DEFINE CLASS qdLbl as Label
    fontsize=10
    autoSize=.t. 
ENDDEFINE

DEFINE CLASS myPage2 as Page
    visible=.t.
    caption="解答"
ENDDEFINE 

DEFINE CLASS myCmd1 as CommandButton
    visible=.t.
    caption="退出"
    height=25
    width=85
    anchor=12
    
    PROCEDURE click
        thisform.release
    ENDPROC
ENDDEFINE

运行后修改　　提示“从内存中移去类”　　什么情况

报告老师，我低头不是因为我在装低调，是你问的问题，我真的不会答，，，

第 5 楼

得分:0

回复 7楼吹水佬

哦，原来是这样

报告老师，我低头不是因为我在装低调，是你问的问题，我真的不会答，，，