关闭

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

126人阅读 评论(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
    
    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的?

0
0

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:339652次
    • 积分:11262
    • 等级:
    • 排名:第1397名
    • 原创:833篇
    • 转载:2篇
    • 译文:0篇
    • 评论:16条
    文章分类
    个人专栏

    个人比较喜欢编程之外,还主动学习挺多知识的,例如:c++、java、php等,都会多学一些东西,反正学会了就是有更多的出路咯。还有呢,编程之余,我也喜欢看下衣品乐和素木连衣裙的资料咯。同时呢,由于自己平时工作挺忙的,都没时间看哦,不知道衣品乐连衣裙怎么样?感觉挺热门的,不知道其优惠怎么样。同时呢,我个人感觉素木女装挺不错的。同时呢,素木连衣裙也都挺好的吧,因为素木和衣品乐是比较知名的品牌,再观察几天吧。呵呵。

    最新评论