控件的焦点发生转移时，它的容器有没有相关事件来捕捉？

[zwq78]

一个窗体中所有的控件都是动态添加的，由于没有用VBControlExtender来捕捉事件，（也不能用，因为添加哪些控件事先并不知道。）想请问高手如何处理这个问题。用控件的窗体的事件来捕捉行吗？

[rushing]

text(i)_lostfocus()

[rushing]

对不起，应该是

text1_lostfocus(index as integer,...)
{
select index
case
case
end select
}

[dbcontrols]

不明白你要做什么东东,是不是什么黑客软件啊?

[zwq78]

to: dbcontrols(泰山)　
不是呀，就是一个让用户可以自已定义的窗体，在其中的控件全是动态添加的（与表字段一一对应），由于事先不知道要添加什么控件，所以不能用VBControlExtender来捕捉动态添加的控件的事件，能不能在窗体的某个事件中或是采用其它方法来实现特定的问题（如当一个textbox焦点离开时，将其Text合计到另一个文本框中，还有其它的。）

[dbcontrols]

Dim aa
Private Sub Timer1_Timer()
If aa <> Me.ActiveControl.Name Then
Label1.Caption = Me.ActiveControl.Name
aa = Me.ActiveControl.Name
End If
End Sub

[zwq78]

to: dbcontrols(泰山)　
有没有更好的方法，问题是当一个textbox焦点离开时，将其Text合计到另一个文本框中，用这种方法就不好了。

[jett]

如果控件类型相同，就用控件数组，触发的是同一事件