使用 BINDEVENT时,怎么使用 this
比如:我表单from1,动态生成label ,有时候是生成20个,有时候是生成800个。我想点击 label时,读取 labelxx.name这个名称?那就是 label的click事件。但我不可能1个个的写代码,就想到绑定。
我在表单中,自定义1个事件,给label绑定,我怎么知道是哪个 label点击了。。
* thisform.label_click
messagebox(this.name) &&比如 thisform.MyLabel1.click点击了,我怎么知道是他的名称是 MyLabel1??
*************
* 动态生成 label的代码
nTop=20
nLeft=0
for i=1 to 100
label_name = "MyLabel"+tran(i)
nLeft=20+nLeft
thisform.Map1.AddObject(label_name,'label')
WITH thisform.Map1.&label_name
.caption ="★"
.autosize=.t.
.visible=.t.
.forecolor=RGB(255,0,255)
.backstyle=0
.top=nTop
.left=nLeft
.fontSize=9
ENDWITH
BINDEVENT(thisform.Map1.&label_name,"Click",thisform,"label_Click")
endfor