Question

VB 想知道当前正在输入的控件名，怎么获得

有一个控件数组，比如要输入日期，当用鼠标点那个文本框，可以调用日历控件输入，但如果用TAB键调到那个文本框，就不能显示了，用什么办法，可以不管用鼠标点，或是用键盘移动到那个需要输入日历的文本框上，都可以显示日历控件呢？ 请高手指点一下，谢谢！！

Answer 1

 Private Sub Text1_GotFocus(Index As Integer)
 '不论Text1的哪个获得焦点都可以引发该事件
Dim KL As Integer
KL = Text1(Index).Index
If KL= Then   '这里在KL=后面填写需要调用日历控件的Text1的Index，这样只有在需要调用日历控件的Text1才能调用日历控件。
'在这里调用日历控件就可以了。
End If
End Sub

'例如，调用日历控件的Index是5，那么：
Private Sub Text1_GotFocus(Index As Integer)
Dim KL As Integer
KL = Text1(Index).Index
If KL = 5 Then
'在这里调用日历控件就可以了。
End If
End Sub

Answer 2

使用控件的 GotFocus()事件，该事件当控件获得焦点时发生；
控件还有LostFocus()事件，该事件当控件失去焦点时发生。

Answer 3

获得焦点时候显示日历，而不是点击

Answer 4

Private Sub Text1_GotFocus(Index As Integer)
Me.Caption = Index '这里写代码就可以了
End Sub