各位大虾怎么在pb中得到窗口中的控件名!

[sharelove]

大家帮忙!本人想得到一个窗口中是否有datawindow!想知道怎么从窗口中得到结果请大虾指示!

[klbt]

PB有控件数组control[]，循环用typeof函数判断，得到属性

[10975037]

this.SetRedraw(FALSE)
object type_obj
integer li_i
for li_i=1 to upperbound(form1.control[])
IF form1.Control[li_i].TypeOf() = DataWindow! THEN
messagebox("","have datawindwo!")
end if
next
this.SetRedraw(true)

[Daizy]

又学到一招。谢谢楼上的兄弟。

[Libra_Chen]

那么具体的控件名称怎么得到？

[johnsonlian]

GraphicObject which_control

SingleLineEdit sle_which

CommandButton cb_which

string text_value

which_control = GetFocus()

CHOOSE CASE TypeOf(which_control)

CASE CommandButton!

cb_which = which_control

text_value = cb_which.Text

CASE SingleLineEdit!

sle_which = which_control

text_value = sle_which.Text

CASE ELSE

text_value = ""

END CHOOSE

[CL0]

那么具体的控件名称怎么得到？
---------------------
ClassName(Controls[i])

[liliang800207]

control[]

[snowdesert]

怎么不结贴呀，再送你一得到完整控件名的函数，看你结不结

//功能 : 获得对象的完整名称
//参数 : apobj_current
//返回值:
//备注 :

string ls_objname
powerobject lpobj_temp

ls_objname+=classname(apobj_current)
lpobj_temp=apobj_current.getparent()
do while isvalid(lpobj_temp)
if ls_objname="" then
ls_objname=classname(lpobj_temp)
else
ls_objname=classname(lpobj_temp)+"."+ls_objname
end if
lpobj_temp=lpobj_temp.getparent()
loop

return ls_objname

[10975037]

该揭贴了吧哥们，