Dim withevent Obj1 as textbox,withevent Obj2 as textbox
private sub Form_Load()
set obj1=controls.add("vb.textbox","Obj1")
Set obj2=controls.add("Vb.textbox","Obj2")
End sub
private sub obj1_Change()
end sub
private sub Obj2_change()
End Sub
limu:
Thank you for the answer first.
But the answer what you give is not i realry want.
我要的是能否有一个通用事件,like "(label*selecter)->" (c++ biulder)
...比如:
private sub obj_click(byref index as integer)
obj(index).name="123"
end sub
...或定义一个 “withevent” 的控件数组吧。