这个方法错在呢？ - VFP论坛

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

这个方法错在呢？

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
    beforeWidth=this.width
    currWidth=this.width
    beforeHeight=this.Height
    currHeight=this.Height
    minWidth=this.Width
    minHeight=this.Height
    rowStep=1
    colStep=1
    formHeightZoom=1
    formWidthZoom=1


    ADD OBJECT titleLabel1 as label WITH caption="收　料　单",backColor=RGB(222,222,222)

    PROCEDURE Arrange
        LOCAL tempFormWidth,tempFormHeight
        tempFormWidth=this.width
        tempFormHeight=this.height
        IF (this.beforeWidth<>tempFormWidth) .or. (this.beforeHeight<>tempFormHeight)
            this.currWidth=tempFormWidth
            this.currHeight=tempFormHeight
            this.formHeightZoom=thisform.currHeight/thisform.minHeight
            this.formWidthZoom=thisform.currWidth/thisform.minWidth
        ENDIF
        WITH this.titleLabel1
            .top=24*this.formHeightZoom
            .left=(this.width-.width)/2
            .width=127*this.formWidthZoom
            .height=29*this.formHeightZoom
            .fontSize=thisform.fontReSize(.height,.width,.class,18)
        ENDWITH

        this.beforeWidth=this.width
        this.beforeHeight=this.height
        thisform.refresh
    ENDPROC

    PROCEDURE Activate
        This.Arrange
    ENDPROC

    PROCEDURE Resize
        This.Arrange
    ENDPROC

    PROCEDURE fontReSize
        PARAMETERS nHeight,nWidth,nBaseClass,nBaseFontSize
        thisform.addobject('testControl',nBaseClass)
            WITH thisform.testControl
                autoSize=.t.
                LOCAL tempFontSize
                FOR tempFontSize=8 TO 72
                    thisform.testControl.fontSize=tempFontSize
                    IF (thisform.testControl.height>nHeight) .or. (thisform.testControl.width>nWidth)
                        thisform.testControl.fontSize=tempFontSize-0.5
                    ENDIF
                ENDFOR
            ENDWITH
        IF thisform.testControl.fontSize<=nBaseFontSize
            RETURN nBaseFontSize
        ELSE
            RETURN thisform.testControl.fontSize
        ENDIF
        thisform.testControl.release
    ENDPROC

    PROCEDURE Destroy
        CLEAR EVENTS
    ENDPROC

ENDDEFINE

红字部分　　是我想实现的方法　　但是　　　总是有同名成员对象存在　　　什么情况呢？

我想这个方法实现的功能　　就是把控件的宽、高、类、最低字号传进来
当窗体放大或者缩小的时候，再建一个同样的控件　　　进行字号对比　　　最后返回最适合的字号
对比完成　　释放这个临时的控件
。。。　　请各位老师指导一下　　　谢谢　　　迷糊了　　　　

搜索更多相关主题的帖子: PUBLIC　

第 2 楼

得分:32

看看这句：
thisform.addobject('testControl',nBaseClass)
问题：
1、thisform是不是同一个表单
2、addobject()第一个参数是“常数”
3、这句有无多次被执行

第 3 楼

得分:0

完全的乱了　　　。。。

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
    beforeWidth=this.width
    currWidth=this.width
    beforeHeight=this.Height
    currHeight=this.Height
    minWidth=this.Width
    minHeight=this.Height
    rowStep=1
    colStep=1
    formHeightZoom=1
    formWidthZoom=1

    &&用作参照物的控件
    ADD OBJECT referLabel as label &&WITH visible=.f.

    ADD OBJECT titleLabel1 as label WITH caption="收　料　单",backColor=RGB(222,222,222)

    PROCEDURE Arrange
        WITH this.titleLabel1
            .top=24*this.formHeightZoom
            .left=(this.width-.width)/2
            .width=127*this.formWidthZoom
            .height=29*this.formHeightZoom
            .fontSize=18
        ENDWITH
        LOCAL tempFormWidth,tempFormHeight
        tempFormWidth=this.width
        tempFormHeight=this.height
        IF (this.beforeWidth<>tempFormWidth) .or. (this.beforeHeight<>tempFormHeight)
            this.currWidth=tempFormWidth
            this.currHeight=tempFormHeight
            this.formHeightZoom=thisform.currHeight/thisform.minHeight
            this.formWidthZoom=thisform.currWidth/thisform.minWidth

            thisform.titleLabel1.FontSize=thisform.fontReSize(thisform.titleLabel1.height,thisform.titleLabel1.width,thisform.titleLabel1.FontSize,1)

        ENDIF

        this.beforeWidth=this.width
        this.beforeHeight=this.height
        thisform.refresh
    ENDPROC

    PROCEDURE Activate
        This.Arrange
    ENDPROC

    PROCEDURE Resize
        This.Arrange
    ENDPROC

    PROCEDURE fontReSize
        PARAMETERS nHeight,nWidth,nBaseFontSize,nBaseClass
        IF nBaseClass=1

        thisform.referLabel.autoSize=.t.
        LOCAL tempFontSize
        FOR tempFontSize=8 TO 72
            thisform.referLabel.fontSize=tempFontSize
            IF (thisform.referLabel.height>nHeight) .or. (thisform.referLabel.width>nWidth)
                thisform.referLabel.fontSize=tempFontSize-1
            ENDIF
        ENDFOR
        MESSAGEBOX(thisform.referLabel.fontSize,64)
        IF thisform.referLabel.fontSize<=nBaseFontSize
            RETURN nBaseFontSize
        ELSE
            RETURN thisform.referLabel.fontSize
        ENDIF
        ENDIF
    ENDPROC

    PROCEDURE Destroy
        CLEAR EVENTS
    ENDPROC

ENDDEFINE

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

第 4 楼

得分:0

大乱得大治

战场拉得太大
改变一下战略，集中优势兵力逐个击破。

第 5 楼

得分:30

好乱！想让大伙替你调试程序？

泉城飞狐

第 6 楼

得分:0

个人看法：对于大多数用户来说，很少自己编写代码调整各控件的大小。通常情况下，调整一下各控件的 Anchor 属性即可。不知道楼主的水平如何，但从发布的几个帖子来看，应该是个刚入门的新手。你必须明白：用 Prg 程序来创建类和应用程序是有相当难度的，并不适用于入门用户，这也背离了“Visual”的特性。

泉城飞狐