根据微调按钮动态增加控件，表单实例化后，怎么加控件？ - VFP论坛

楼主

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

根据微调按钮动态增加控件，表单实例化后，怎么加控件？

用设计器做的是这样的：

图片附件: 游客没有浏览图片的权限，请登录或注册

原来的想法是，先都展现出来，但readOnly三行，第一行肯定是要有的，当微调等于2，第二行解禁，依此类推，重刷表单

后来感觉不帅，就想用代码动态增加

程序代码：

CLEAR ALL 
CLOSE PROCEDURES
SET PROCEDURE TO "MyForm", "MyLogin","otherForm"
runOtherForm1()

CLOSE PROCEDURES
&&CLOSE ALL 
return

PROCEDURE runOtherForm1
    PUBLIC  otherForm1
    otherForm1=CREATEOBJECT("m1Form")
    otherForm1.show
    READ EVENTS
    RETURN 
ENDPROC 

DEFINE CLASS m1Form as myForm
    showWindow=2
    caption="功能模块1窗口"
    autoCenter=.t.
    windowType=1
    
    ADD OBJECT howManyLine as spinner WITH spinnerHighValue=4,spinnerLowValue=1,value=1,left=180
    ADD OBJECT button1 as commandButton WITH caption="返回主程序"
    
    &&根据微调按钮，增加条目开始
    ADD OBJECT clfl1 as textBox WITH top=135,left=12,height=24,width=48,value="材料分类1"
    ADD OBJECT clmc1 as textBox WITH top=135,left=63,height=24,width=77,value="材料名称1"
    
    PROCEDURE init 
        MESSAGEBOX(thisform.howManyLine.value,64,"调试：微调的值是Value吗？")
    ENDPROC 

    PROCEDURE howManyLine.valid
        howLine=thisform.howManyLine.value 
        IF howLine>=2
            FOR addLine=2 TO howLine
                 flName="clfl"+ALLTRIM(STR(addLine))  &&用宏代实现分类名称和材料名称，不知道怎么样？
                 clName="clmc"+ALLTRIM(STR(addLine))  &&或者用这个先确定名称
                 MESSAGEBOX(clName,64,"运行了吗？")
                 ADD OBJECT &flName as textBox WITH top=135+addLine,left=12,height=24,width=48,value="材料分类"+ALLTRIM(STR(addLine))
                 ADD OBJECT &clName as textBox WITH top=135+addLine,left=63,height=24,width=77,value="材料名称"+ALLTRIM(STR(addLine))
            ENDFOR 
            
        ENDIF
        thisform.refresh
    ENDPROC    
    
    &&根据微调按钮，布局结束
    
    PROCEDURE button1.click
        RELEASE thisform
    ENDPROC 
        
    PROCEDURE Destroy
        MESSAGEBOX(thisform.clmc2.value,64,"控件增加了吗？")
        MESSAGEBOX("模块1表单销毁了",64,"123")
        CLEAR EVENTS 
    ENDPROC
    
ENDDEFINE

可是发现自己不会实例化表单后再增加控件。。。

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

第 2 楼

得分:33

先写一个container类，用于每行。然后用.AddObject()逐行动态添加实例，想什么时候加就什么时候加，不用事先加多少行。用一个添加按钮，点一下加一个，好过你现在设计的微调。

授人以渔，不授人以鱼。

第 3 楼

得分:0

我去试试

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

第 4 楼

得分:0

想法不错弄好了没有

第 5 楼

得分:0

为什么不用表格？用一个自由表配合表格，想增加多少就增加多少记录，而且只要下移光标就可以自动添加记录，应该会更方便得多。

活到老，学到老！http://www.（该域名已经被ISP盗卖了）E-mail:hu-jj@

第 6 楼

得分:33

如果GRID能满足需要就用GRID，方便高效。

第 7 楼

得分:0

回复 4楼 tlliqi

今天喝了点小酒，有点晕，下面的时间，不务正业了，正事明天再说，哈哈

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

第 8 楼

得分:0

醒酒了肯定会弄好的 ...

第 9 楼

得分:0

。。

[此贴子已经被作者于2015-12-20 22:25编辑过]

授人以渔，不授人以鱼。

第 10 楼

得分:0

先没用T版说的容器，我先弄个简单的，不过，好像是增加了新控件，但却看不到。。。

程序代码：

CLEAR ALL 
CLOSE PROCEDURES
SET PROCEDURE TO "MyForm", "MyLogin","otherForm"
PUBLIC addLineNum
addLineNum=2
runOtherForm1()

CLOSE PROCEDURES
&&CLOSE ALL 
return

PROCEDURE runOtherForm1
    PUBLIC  otherForm1
    otherForm1=CREATEOBJECT("m1Form")
    otherForm1.show
    READ EVENTS
    RETURN 
ENDPROC 

DEFINE CLASS m1Form as myForm
    showWindow=2
    caption="功能模块1窗口"
    autoCenter=.t.
    windowType=1
    minLabelFontSize=8    &&定义最小标签的字号
    minOtherFontSize=9    &&定义最小文本框、列表框、按钮字号
    minTitleFontSize=18    &&定义标题标签小号字号
    minDistance=2    &&定义控件间最小间距
    minControlTop=24    &&定义最顶端控件的最小顶边
    minControlLeft=12    &&定义最左端控件的最小侧边距
    
    &&ADD OBJECT howManyLine as spinner WITH spinnerHighValue=4,spinnerLowValue=1,value=1,left=180
    ADD OBJECT addLine as commandButton WITH caption="增加行"&&,initValue=2  
    ADD OBJECT button1 as commandButton WITH caption="返回主程序",left=thisform.addLine.left+thisform.addLine.width+10
    
    &&根据微调按钮，增加条目开始
    ADD OBJECT clfl1 as clfl_C WITH top=135,left=12,height=24,width=48,value="材料分类1"
    ADD OBJECT clmc1 as clmc_C WITH top=135,left=63,height=24,width=77,value="材料名称1"
    
    PROCEDURE addLine.click
        flName="clfl"+ALLTRIM(STR(addLineNum))
        clName="clmc"+ALLTRIM(STR(addLineNum)) 
        thisform.addobject('&flName','clfl_C')
        thisform.addobject('&clName','clmc_C')
        addLineNum=addLineNum+1
        &&thisform.height=thisform.&clName.top+200
        thisform.refresh
    ENDPROC 

*!*        PROCEDURE howManyLine.valid
*!*            howLine=thisform.howManyLine.value 
*!*            IF howLine>=2
*!*                FOR addLine=2 TO howLine
*!*                     flName="clfl"+ALLTRIM(STR(addLine))  &&用宏代实现分类名称和材料名称，不知道怎么样？
*!*                     clName="clmc"+ALLTRIM(STR(addLine))  &&或者用这个先确定名称
*!*                     MESSAGEBOX(clName,64,"运行了吗？")
*!*                     ADD OBJECT &flName as textBox WITH top=135+addLine,left=12,height=24,width=48,value="材料分类"+ALLTRIM(STR(addLine))
*!*                     ADD OBJECT &clName as textBox WITH top=135+addLine,left=63,height=24,width=77,value="材料名称"+ALLTRIM(STR(addLine))
*!*                ENDFOR 
*!*                
*!*            ENDIF
*!*            thisform.refresh
*!*        ENDPROC    
    
    &&根据微调按钮，布局结束
    
    PROCEDURE button1.click
        RELEASE thisform
    ENDPROC 
        
    PROCEDURE Destroy
        MESSAGEBOX(thisform.clmc2.value,64,"控件增加了吗？")
        MESSAGEBOX("模块1表单销毁了",64,"123")
        CLEAR EVENTS 
    ENDPROC
    
ENDDEFINE 

DEFINE CLASS clfl_C as TextBox 
    top=135+100*addLineNum
    left=12
    height=24
    width=48
    value="材料分类"+ALLTRIM(STR(addLineNum))
ENDDEFINE 

DEFINE CLASS clmc_C as TextBox 
    top=135+100*addLineNum
    left=63
    height=24
    width=77
    value="材料新名称"+ALLTRIM(STR(addLineNum))
ENDDEFINE

提示我一下，如果已经添加了，为什么不显示出来呢？谢谢

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