具體説，就是先設計一个標準窗體，把控件佈置好，長寛比例固定，然後在這基礎上設定一個字體基準値，當窗體尺寸變化時，所有控件的尺寸都隨之等比例變化，字體大小亦按大致的比例變化大概（不能確保）能不失真，要反覆調試才能取得這個基準値。

敢想敢做.赞!

乱了　　　现在脑袋都要爆了　　　过两天再弄　　　　清醒清醒　　　　　

泉城飞狐老师说得好，其实你何必一定用Prog 来建立类和过程呢？直接设计Form来上手，先把主要矛盾解决，再来钻研细节，岂不是更好吗？Visual 的理念，就是为了把程序员从不必要的细节中解放出来。

看代码中经常出现close all或clear all，就说明基础尚不扎实。

思路清晰，用什麽寫都可以；思路不清，怎麽寫都不可以。

比较同意泉城飞狐的意思。

CLEAR ALL
CLOSE PROCEDURES
SET PROCEDURE TO "MyFormClass", "MyLoginForm"&&,"otherForm"
runShouliaoForm()

CLOSE PROCEDURES
&&CLOSE ALL
RETURN

PROCEDURE runShouliaoForm
    PUBLIC  shouliaoForm
    shouliaoForm=CREATEOBJECT("m1Form")   
    shouliaoForm.show
    READ EVENTS
    RETURN
ENDPROC

DEFINE CLASS m1Form as myForm
    showWindow=2
    caption="功能1——收料单"
    autoCenter=.t.
    windowType=1
    minWidth=this.Width
    minHeight=this.Height
    aspect=this.width/this.height        
    beforeWidth=this.width
    beforeHeight=this.Height
    formZoom=1
   
    ADD OBJECT referLabel as label&& WITH visible=.f.  &&参照控件，调试时可见
   
    ADD OBJECT titleLabel as label WITH caption="收　料　单",backColor=RGB(222,222,222)

    PROCEDURE Arrange
        IF this.width<>this.beforeWidth
            this.height=this.width/this.aspect
        ENDIF
        IF this.height<>this.beforeHeight
            this.width=this.height*this.aspect
        ENDIF
        this.formZoom=this.height/this.minHeight
        this.refresh
        this.beforeHeight=this.height
        this.beforeWidth=this.width
        
        WITH this.titleLabel
            .top=24*this.formZoom
            .left=(this.width-.width)/2
            .width=127*this.formZoom
            .height=29*this.formZoom
            &&.fontSize=thisform.fontReSize(.name,.height,.width,18,1)            
        ENDWITH
        
        IF this.height<>this.minHeight
            thisform.fontReSize(this.titleLabel.name,this.titleLabel.height,this.titleLabel.width,18,1)
        ELSE     
            this.titleLabel.fontSize=18
        ENDIF
        
    ENDPROC
   
    PROCEDURE fontReSize
        PARAMETERS nName,nHeight,nWidth,nFontSize,nClass
        IF nClass=1
            referControl="referLabel"
            this.&referControl..caption=this.&nName..caption
            this.&referControl..autoSize=.t.
        ENDIF
        LOCAL tempFontSize
        
        FOR tempFontSize=8 TO 72 STEP 1
            this.&referControl..fontSize=tempFontSize
            IF (this.&referControl..height>this.&nName..height).or.(this.&referControl..width>this.&nName..width)
                this.&nName..fontSize=tempFontSize-1
                RETURN
            ENDIF                        
        ENDFOR
*!*            IF tempFontSize>nFontSize
*!*                RETURN tempFontSize
*!*            ELSE
*!*                RETURN nFontSize
*!*            ENDIF         
    ENDPROC
   
    PROCEDURE Activate
        This.Arrange
    ENDPROC
   
    PROCEDURE Resize
        This.Arrange
    ENDPROC
   
    PROCEDURE Destroy
        CLEAR EVENTS
    ENDPROC
      
ENDDEFINE


大致是这样了　　　　锁定窗口纵横比　　　　计算出缩放比例　　　　根据缩放比调整控件大小

再把控件的参数丢进方法　　　

方法中循环测试参照控件上最大能放多大字号　　才能不超参数

最后得到比较合适的字号　　

最后　　还是不得不用参照控件　　　试了半天不参照　　　　搞不出来　　　。。。

另一个新生产的问题　　

我想用方法返回值　　　当作.fontSize的值　　　　总说类型不对

messagebox(type(nFontSize))是U型，这是什么数据类型啊　　。。。。。怎么转成数值

说明nFontSize没定义
1、nFontSize是C型吗？
2、试试用messagebox(vartype(nFontSize))

    ADD OBJECT titleLabel as label WITH caption="收　料　单"
    ADD OBJECT howLineLabel as label WITH caption="本单有几项材料？"

            WITH this.titleLabel
            .fontBold=.t.
            .top=24*this.formZoom
            .left=209*this.formZoom
            .width=127*this.formZoom
            .height=29*this.formZoom
            .fontSize=thisform.fontReSize(.name,.height,.width,18,1)            
        ENDWITH
        WITH this.howLineLabel
            .top=this.titleLabel.top+this.titleLabel.height/2-.height/2
            .left=this.width-(this.width-(this.width/2+.width/2))/4*3
            .width=108*this.formZoom
            .height=12*this.formZoom
            .fontSize=thisform.fontReSize(.name,.height,.width,9,1)
        ENDWITH

    PROCEDURE fontReSize
        PARAMETERS nName,nHeight,nWidth,nFontSize,nClass
        IF nClass=1
            referControl="referLabel"
            this.&referControl..caption=this.&nName..caption
            this.&referControl..autoSize=.t.
            this.&nName..backColor=RGB(222,222,222)
        ENDIF 
        LOCAL tempFontSize
        FOR tempFontSize=nFontSize TO 72 STEP 1
            this.&referControl..fontSize=tempFontSize
            IF (this.&referControl..height>this.&nName..height).or.(this.&referControl..width>this.&nName..width)
                &&MESSAGEBOX(VARTYPE(tempFontSize),64)
                &&RETURN 
                EXIT  
            ENDIF                         
        ENDFOR
        MESSAGEBOX(VARTYPE(tempFontSize),64)
        IF this.height<>this.minHeight
            RETURN tempFontSize
        ELSE 
            RETURN nFontSize
        ENDIF         
    ENDPROC

解决了　　　用这个方法　　　传进去的字号　　　如果窗口没改变　　　字号就是默认的　　　　如果窗口改了大小　　　　字号就会变大

原来是RETURN和EXIT的区别没弄明白　　　　真是　　　有些知识　　　光看书　　　永远记不住怎么用　　　　还是要实践啊