怎样获得textbox控件的名称？

Question

就是当光标在textbox控件中时，
把textbox的名称赋给一个变量，如a=form1.text1.text

Answer 1

不是这样，是要动态的赋值，光标会在不同的Text中如（Text2、Text3……），
光标在哪个Text中，就把哪个Text的名称赋给变量。有没有什么函数的？

Answer 2

在每个Text的gotfocus事件中都赋一次值吗？我有几十个text，每个都赋值不是很烦？有没有解决办法？？？

Answer 3

"几十个text" -----可以设置控件数组啊
但是应该有更好的方法,关注!!!

Answer 4

控件数组的gotfocus事件不是也要一个一个的写啊，没有简便的办法？？

Answer 5

控件数组的不用一个一个写吧？不要理会index变量，直接写代码就行了。

Answer 6

可以用ActiveControl属性来获取.
返回拥有焦点的控件。当窗体被引用时，如在 ChildForm.ActiveControl 中，如果被引用的窗体是活动的，ActiveControl 指向拥有焦点的控件。在设计时它是不可用的；在运行时是只读的。

Answer 7

你试试这个：在窗体中放几个叫 Text1 的文本框，索引从 0 开始设置：Option ExplicitPrivate Sub Text1_GotFocus(Index As Integer)
    Dim i As Integer
    
    For i = 0 To Text1.Count - 1
        Text1(i).Text = Text1(Index).Name & "(" & CStr(Index) & ")"
    Next
End Sub