怎么判断控件得到焦点

Private Sub Command1_Click()
Text1.SetFocus
End Sub

Private Sub Command2_Click()
Text2.SetFocus
End Sub

Private Sub Text1_GotFocus()
Text1 = "我得到焦点了"
Text2 = ""
End Sub

Private Sub Text2_GotFocus()
Text2 = "我得到焦点了"
Text1 = ""
End Sub

焦点是接收用户鼠标或键盘输入的能力。当对象具有焦点时，可接收用户的输入。在 Microsoft Windows 界面，任一时刻可运行几个应用程序，但只有具有焦点的应用程序才有活动标题栏，才能接受用户输入。在有几个 TextBox 的 Visual Basic 窗体中，只有具有焦点的 TextBox 才显示由键盘输入的文本。

当对象得到或失去焦点时，会产生 GotFocus 或 LostFocus 事件。窗体和多数控件支持这些事件。

事件 描述
GotFocus 对象得到焦点时发生。
LostFocus 对象失去焦点时发生。LostFocus 事件过程主要用来对更新进行证实和有效性检查，或用于修正或改变在对象的 GotFocus 过程中建立的条件。
msdn上的希望对你有帮助

Private Sub Text1_GotFocus()
MsgBox "得到焦点"
End Sub

Private Sub Text1_GotFocus()
MsgBox "得到焦点"
End Sub

第一楼的最后一楼的回答正解

你找个函数,在程序运行中,判断这个函数的返回值,真就是得到焦点,假就是没得到,应该有这样的函数,具体是什么我也不知道..自己查会记忆