如下程序 我定义了一个结构体 St 然后定义一个Cbtn按钮类并通过St给他赋值
最后在主Form里调用addObject()函数动态添加控件
为什么提示这个？ 我是照T版给的那个模板 写的 为什么出错？

---

Clear All
Public ga_Struct[2]
ga_Struct[1] = CreateObject("St", 50, "this is a" )
ga_Struct[2] = CreateObject("St", 200, "this is b" )

Main()
Clear All
Return


Procedure Main()
    Local lo_MainForm

    lo_MainForm = NewObject("C_Form")
    lo_MainForm.Show
    Read Events
EndProc 


Define Class St as Custom
    a = 0
    s = ""   

    Procedure Init(tn_a, tc_s)
        a = tn_a
        s = tc_s
    EndProc      

EndDefine


Define Class Cbtn as CommandButton
    k = ""
    Procedure Init(St_k)
        With     This
            k = St_k
             .Width = .k.a
             .Caption = .k.s
        EndWith

    EndProc

EndDefine



Define Class C_Form as Form
    Width = 400
    Height = 400
    AutoCenter = .T.
    Caption = "Experiment"
   

    Procedure Init
        With This
            .AddObject("xx", "Cbtn", ga_Struct[1])
            .AddObject("oo", "TextBox")
            With This.oo
                .Left = 100
                .Top = 50
                .Visible = .T.
            EndWith

        EndWith

    EndProc

    Procedure destroy

        Clear Events       

    EndProc

EndDefine 

俺 被这个搞晕了 放100分求救。。。

Define Class Cbtn as CommandButton
    k = ""
    Procedure Init(St_k)
        With     This
            k = St_k    && 漏了点(.)
             .Width = .k.a
             .Caption = .k.s
        EndWith

    EndProc

EndDefine

我真是欲哭无泪  啊 一个上午就为了一个小数点在打转转

不过我改成这样能行了 但是为什么按钮没出现？

Clear All
Public ga_Struct[2]
ga_Struct[1] = CreateObject("St", 50, 100, "this is a" )
ga_Struct[2] = CreateObject("St", 200, 100, "this is b" )

Main()
Clear All
Return


Procedure Main()
    Local lo_MainForm

    lo_MainForm = NewObject("C_Form")
    lo_MainForm.Show
    Read Events
EndProc 


Define Class St as Custom
    a = 0
    b = 0
    s = ""   

    Procedure Init(tn_a, tn_b, tc_s)
        a = tn_a
        b = tn_b
        s = tc_s
    EndProc      

EndDefine


Define Class Cbtn as CommandButton
    k = ""
    Procedure Init(St_k)
        With     This
            .k = St_k
             .Width = .k.a
             .Height = .k.b
             .Caption = .k.s
        EndWith

    EndProc

EndDefine



Define Class C_Form as Form
    Width = 400
    Height = 400
    AutoCenter = .T.
    Caption = "Experiment"
   

    Procedure Init
        With This
            .AddObject("xx", "Cbtn", ga_Struct[1])
            With This.xx
                .Left = 200
                .Top = 200
                .Visible = .T.
            EndWith

            .AddObject("oo", "TextBox")
              With This.oo
                .Left = 100
                .Top = 50
                .Visible = .T.
            EndWith

        EndWith

    EndProc

    Procedure destroy

        Clear Events       

    EndProc

EndDefine 

----

只看到TextBox哦 没见自己定义的Cbtn类按钮？ 有是哪里有问题？

学会如下两个手法：
1.用debugger单步执行程序，即时观察运行画面；
2.逐个添加对象，确认无误后再添加新的。

老大我真是对你佩服的五体投地 。。。
我去单步调试了下 发现把结构体的初值改一下就能出来按钮

Define Class St as Custom
    a = 100
    b = 100
    s = ""   

    Procedure Init(tn_a, tn_b, tc_s)
        a = tn_a
        b = tn_b
        s = tc_s
    EndProc      

EndDefine 

那么难道 .AddObject("xx", "Cbtn", ga_Struct[1])不能改变新添加按钮的width和height吗
不是ga_Struct[1] = CreateObject("St", 50, 100, "this is a" )明明传的是50和100啊

为什么要重新定义一个新的按钮(commandbutton)类，有必要吗？有画蛇添足之嫌。
问题在于ga_Struct[1]

我没调试你的代码，自己多试验找规律呗，都是这样总结的。

害羞哥 你说对了 ga_Struct[1] = CreateObject("St", 50, 100, "this is a" )
无法改变ga_Struct[1]的值 它只接收结构体St的初值。。。

.k 或者St_k 返回的是什么值
直接在此处赋实值最好，不要用变量
也可以用 .H 文件

[ 本帖最后由 bccn201203 于 2012-9-23 13:44 编辑 ]

那是你没有执行到赋值过程