怎样获知光标在哪个TextBox中

Question

在一个Form中有三个TextBox控件，如果现在光标在第二个TextBox中，那么在程序中怎样判断目前的光标是在第二个TextBox中？Help Me !

Answer 1

Dim t As String
Dim aa As TextBox
Sub mm(aa As TextBox)
 t = aa.Name
End Sub
Private Sub Command1_Click()
 Print t
End Sub
Private Sub Text1_GotFocus()
  mm Text1
End SubPrivate Sub Text2_GotFocus()
 mm Text2
End SubPrivate Sub Text3_GotFocus()
 mm Text3
End Sub

Answer 2

Private Sub Text1_GotFocus()
  print text2.text
End SubPrivate Sub Text2_GotFocus()
 print text2.text
End SubPrivate Sub Text3_GotFocus()
 print text2.text
End Sub

Answer 3

用Me.ActiveControl可以取得当前获得焦点的控件

Answer 4

不错，如楼上所言，用Me.ActiveControl可以取得当前获得焦点的控件，再用TypeOf判断是否是文本框。

Answer 5

kissoflife
你好!可以详细地告诉我吗?

Answer 6

Private Function GetActiveTextBoxName() As String
Dim strTextBoxName As StringIf TypeOf Me.ActiveControl Is TextBox Then
    strTextBoxName = Me.ActiveControl.Name
End IfGetActiveTextBoxName = strTextBoxNameEnd Function

Answer 7

这样就可以了
谢谢各位!
Private Sub txtfields_KeyPress(Index As Integer, KeyAscii As Integer)
If Me.ActiveControl.Name = txtfields(2).Name Then txtfields(2).Text = "2222"
End Sub