各位看几段代码先

Define Class xx as Container
    For i = 1 to 9
        Add Object oo as CommandButton With
        。。。。。
    EndFor
EndDefine 

报错： for循环不能直接用于类定义？。。。

Define Class xx as Container
     Procedure Init
        For i = 1 to 9
            Add Object oo as CommandButton With
            。。。。。
        EndFor
    EndProc
EndDefine 

报错： add object 不能用于过程中？。。。

我很想用一个循环来达到几个 ADD OBJECT XX AS OO 的效果 有什么折中的办法？

要加入变量
试试下面代码
对象名重名，错误是肯定的了

饭后继续

换了还是不行 当时忘写&了 我试验的程序是带&的。。

我来蹭分楼主肯定会给的

人家示范代码是写.AddObject()，你偏要别出心裁地写ADD OBJECT，看看分别在哪些地方使用的嘛。

我发现.AddObject()用于过程中能包含在循环里便于传参数
ADD OBJECT写在类定义中 便于调用界面元素
如果写成这样

Define Class CC as Form
    Procedure Init
        This.AddObject("xx", "CommandButton")
         This.AddObject("oo", "Label")
    EndProc
EndDefine 

那么在FORM里不能直接引用xx , oo 而如果要实现点击xx 后会改变oo的内容 显然很麻烦 如果添加的控件多一点 再出现一些容器 那么即使使用BINDEVENT( ) 函数也会乱七八糟
所以我的总结是 要便于界面元素的调度 最好使用 ADD OBJECT就能通过ThisForm.xx.oo.kk.bb....来直接找想要的控件了但是很遗憾 ADD OBJECT竟然不能处于循环中，这样在添加控件时代码量会很大啊？ 是这样的吗？


[ 本帖最后由 有容就大 于 2012-9-24 14:11 编辑 ]

在Form中改变对象内容：
ThisForm.xx.Caption = "xxxx"
ThisForm.oo.Caption = "yyyy"

新年好 我来蹭分

支持一下吧