动态添加控件问题

[r10k]

在窗口上 添加 N 个控件（按钮， checkBox……）N 变量
我开始想 用 for OpenUserObject（cb_N，"ConmandButton" 640,480)
可是 控件的名字 解决不了
怎么办？

[byfq]

DragObject u_to_open

string s_u_name

s_u_name = sle_user.Text

w_info.OpenUserObject(u_to_open, s_u_name, 100, 200)

[Kanfu]

WindowObject lwo[]
for i =1 to n
OpenUserObject（lwo[i]，"ConmandButton" 640,480)
next

[Kanfu]

实践证明我的方法是错误的
:(
将windowobject替换为dragobject

[r10k]

对～ 就是说 那个控件名不能是数组 也不能是 字符串变量
再说 定义实例变量时也不行

[r10k]

啊～ 不要沉 还没解决 快帮忙解决一下 急 谢谢！～

[juwuyi]

OpenUserObjectwithparm(uo_placed,parm , i , j) //parm可以是你的控件名
=======================
// get the information about what kind a button we are supposed to be
u_dyn_struct parm
parm = message.powerobjectparm
ii_object_number = parm.code // set the object code
iw_frame = parentwindow(parm.win) // who's my frame
iw_parent = parm.win // who's my sheet
is_clicked_event = parm.clicked // when clicked what event do I trigger
cb_button.width = parm.size // how big am I
cb_button.text = parm.label // what my name
this.width = cb_button.width + 2.5*cb_button.x

[juwuyi]

可以通过
this.control[i]
来替代控件名
choose case typeof(temp)
case commandbutton!
commandbutton cb
cb = temp
cb.textsize = size_ctrl[i].fontsize * size_factor

case singlelineedit!
singlelineedit sle
sle = temp
sle.textsize = size_ctrl[i].fontsize * size_factor

case editmask!
..................

[r10k]

问题不是这个 控件的事 ：p 现在解决了 谢谢