请问VB有没有哪个系统函数或其他什么方法实现：获知一个窗体中获得焦点的控件，即返回一个对象（控件）名

Question

如题。

Answer 1

你的问题答案如下：Private Sub Form_Load()
    Timer1.Interval = 1000
End Sub'在窗体上加上一个TextBox和一个ListBox，还有一个Timer
'运行后分别把焦点在Text和ListBox之间切换，看看Debug.Print打出来的结果
Private Sub Timer1_Timer()
    Dim ctrlLast As Control
    Set ctrlLast = Me.ActiveControl
    Debug.Print ctrlLast.Name  '这就是获得焦点的控件的名称
    Set ctrlLast = Nothing
End Sub

Answer 2

调整下排版：'在窗体上加上一个TextBox和一个ListBox，还有一个Timer
'运行后分别把焦点在Text和ListBox之间切换，看看Debug.Print打出来的结果Private Sub Form_Load()
    Timer1.Interval = 1000
End SubPrivate Sub Timer1_Timer()
    Dim ctrl As Control
    Set ctrl = Me.ActiveControl
    Debug.Print ctrl.Name  '这就是获得焦点的控件的名称
    Set ctrl = Nothing
End Sub