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

sharelove 2004-05-07 09:32:20

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

...全文

275 9 打赏收藏转发到动态举报

写回复

用AI写文章

9 条回复

切换为时间正序

请发表友善的回复…

发表回复

10975037 2004-08-27

打赏
举报

该揭贴了吧哥们，

snowdesert 2004-08-27

打赏
举报

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

//功能 : 获得对象的完整名称
//参数 : 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

liliang800207 2004-08-26

打赏
举报

control[]

CL0 2004-08-26

打赏
举报

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

johnsonlian 2004-08-14

打赏
举报

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

Libra_Chen 2004-08-14

打赏
举报

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

Daizy 2004-05-10

打赏
举报

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

10975037 2004-05-09

打赏
举报

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)

klbt 2004-05-07