关于addobject方法程序

[fangyi1120]

我在表单的load中添加一个container
this.addobject('container'+markstr,'container') //markstr为一字符型变量
namestr='container'+markstr
this.namestr.visible=.t.
本意是namestr作为container对象的name,但编译时namestr不能识别。
怎样解决？

[newfang]

把代码贴到表单的init事件试试。

[fangyi1120]

Sorry,我打错了，本来是写在form 的init 中的。
我的想法是:可能namestr已经被当作字符变量，只是与一个对象同名，问题是如何区别两个。
如何引用对象。

[marki]

試試this.&namestr.visible=.t.

[marki]

在form 的init 中,
s='kkk'
p='command'+s
thisform.addobject(&s,'command')

this.&p.visible=.t.
this.&p.top=90
this.&p.height=90
this.&p.width=190
this.&p.left=80

[fangyi1120]

在form 的init 中,
s='kkk'
thisform.addobject('command'+s,'command')
p='command'+s
this.&p.visible=.t.
this.&p.top=90
this.&p.height=90
this.&p.width=190
this.&p.left=80
错误是第二行无command类的定义。
commandkkk.visible属性找不到等
难道添加command,shape之类的控件还要自己定义???

[zhongyj]

obj=eval("this."+namestr)
obj.visible=.t.

[fangyi1120]

楼上的，编译时kkk找不到，Why?

[xiolig]

使用宏替换时，宏替换后的第一个小数点被解释成宏替换结束符，因此：
应该将 this.&p.left=80 改写为 this.&p..left=80

[fangyi1120]

也不对呀！

[xiolig]

LOCAL p
p = 'Command' + markstr
THIS.AddObject(p,'CommandButton')
THIS.&p..Visible = .T.