怎么得到当前焦点所在的控件名？ -----waiting online

Question

Private Sub Label1_Click()
 Label1.Caption = ActiveControl.Caption
End SubPrivate Sub Timer1_Timer()
 Label1_Click
End Sub

Answer 1

Private Sub Label1_Click()
 Label1.Caption = ActiveControl.Name
End SubPrivate Sub Timer1_Timer()
 Label1_Click
End Sub

Answer 2

If TypeOf Screen.ActiveControl Is TextBox Then
      Label1.Caption = Screen.ActiveControl.Text
   Else
      Label1.Caption = "Button: " + Screen.ActiveControl.Caption
   End If