获取多个text框焦点

[gzhjic]

窗体上有几个text控件 怎么判断目前聚焦是哪个，text框的名字是这样子的：
txtx(0)
txtx(1)
txtx(2)
txtx(3)
当我点在某个框的时候，比如txtx(1),我想获取下位机串口发过来的数据，在那个框显示。

[of123]

Dim CurrentIndex As Integer

Private Sub Textx_GotFocus(Index As Integer)
    CurrentIndex = Index
End Sub

[of123]

还有一种方法，在任何时刻获取 Index: If Me.ActiveControl.Name = "Textx" Then Debug.Print Me.ActiveControl.Index

[of123]

当然，如果是点击文本框触发写操作的话，直接在 Textx_GotFocus 事件中写代码，直接引用 Index.

[gzhjic]

恩，方法不错，谢谢。