Add Object dd  as commandbutton With 

or

Add Object dd form1. as commandbutton With 

试试
form1 为表单的name属性值
dd 为控件名

使用for循环添加的时候
dd不能为重复的

**************************************************
*-- Form:         form1 (e:\tc\lcz\0921\js_dn\qqqqq.scx)
*-- ParentClass:  form
*-- BaseClass:    form
*-- 时间戳:   09/24/12 02:34:08 PM
*
DEFINE CLASS form1 AS form


    DoCreate = .T.
    Caption = "Form1"
    Name = "Form1"


    ADD OBJECT container1 AS container WITH ;
        Top = 24, ;
        Left = 84, ;
        Width = 241, ;
        Height = 120, ;
        Name = "Container1"


    ADD OBJECT form1. AS commandbutton WITH ;
        Top = 60, ;
        Left = 108, ;
        Height = 25, ;
        Width = 60, ;
        Caption = "Command1", ;
        Name = "Command1"


    ADD OBJECT command1 AS commandbutton WITH ;
        Top = 192, ;
        Left = 240, ;
        Height = 25, ;
        Width = 60, ;
        Caption = "Command1", ;
        Name = "Command1"


    PROCEDURE command1.Click
        thisform. = 'ad'
    ENDPROC


ENDDEFINE
*
*-- EndDefine: form1
**************************************************

这样貌似不行

这有什么作用？ 不就是改变一下按钮的标题吗？

写了个实验

Clear All
Main()

Procedure Main()
    Local lo_MainForm
    lo_MainForm = NewObject("C_Form")
    lo_MainForm.Show
    Read Events
    Return
EndProc

Define Class C_Form as Form
    Width = 400
    Height = 400
    AutoCenter = .T.
    Caption = "Experiment"
   
    Procedure Init
        With this
            .AddObject("oo", "Label")
            .AddObject("xx", "CommandButton")
            With THis.xx
                .Top = 230               
            EndWith
            BindEvent(.xx, "Click", this, "Click1" )
             .SetAll("Visible", .T.)
             .SetAll("Left", 100)
             .SetAll("Width", 100)
             .SetAll("Height", 100)
             .SetAll("BackColor", Rgb(234, 4,45))
         EndWith
         ThisForm.xx.Caption = "xxxx"
         ThisForm.oo.Caption = "yyyy"
    EndProc
   
    Procedure Click1
        MessageBox("八戒。。。")
    EndProc
   
*!*        Procedure xxxx.Click
*!*            MessageBox("悟空。。。")
*!*        EndProc
       
    Procedure destroy
        Clear Events
    EndProc
EndDefine 

如果不把xxxx的悟空 注释掉 会这样

如果注释掉能运行



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

你都没仔细推敲我上次给你的例子

学习，不介意吧！

我现在已经实现了 在FORM里ADD OBJECT 数个容器 然后通过 Init来赋值的架构
你给我的示例看了N遍啊

一起学习 欢迎加入

给别人代码不测试容易出臭.............

再来一次

dd = Newobject("ws")
dd.show
Read events
Return 

DEFINE CLASS ws AS form


    DoCreate = .T.
    Caption = "Form1"
    Name = "Form1"


    ADD OBJECT container1 AS container WITH ;
        Top = 24, ;
        Left = 84, ;
        Width = 241, ;
        Height = 120, ;
        Name = "Container1"


    ADD OBJECT command1 AS commandbutton WITH ;
        Top = 192, ;
        Left = 240, ;
        Height = 25, ;
        Width = 60, ;
        Caption = "Command1", ;
        Name = "Command1"


    PROCEDURE command1.Click
        thisform. = 'ad'
    ENDPROC
   
    PROCEDURE container1.init && 给容器添加对象
        this.AddObject("command1","commandbutton")
        (60,50,60,25)
         = .t.
        bd = 0
        For i = 1 To 5
            tt = 'text' + Transform(i)
            this.AddObject(tt,"textbox")
            this.&tt..move(bd,0,20,25)
            this.&tt..visible = .t.
            bd = bd + 21
        Next
    Endproc 

ENDDEFINE
*
*-- EndDefine: ws
**************************************************

首先你要给自己一个理由：为什么要在某处隔层指挥别的对象？

是归属于Container1指挥的，本来就不该在Form1中超越Container1去操纵CommandButton1，Form1在逻辑上只应向Container1发指令，再由Container1按照指令操纵CommandButton1。偶然越级指挥一下，只是临时应变措施，不宜作为常规手段，那是在快速开发时避免写过多封装代码而迁就的，故没有按照完全面向对象的规范把CommandButton1隱藏起来不让外层看见，而让它直接被Form1看见，这已经没严格守规矩了，更不应该寻求跳越多层去遥控更远的对象。用BindEvent()托管，我已经说过那是非常规措施，不宜多用。正路就开辟类设计，构造好管理架构，再简单的封装，哪怕仅仅容器中只有一个控件，也设计一个类。

以事物本身的逻辑来设计，不是以操作方便来设计。