vb中怎样判断id= txtAddCode 的文本框是否获得了焦点？

---

'setFoces 可以设置将焦点移到指定的控件对象上；蠢瞎祥神游
Dim isFocus As Boolean
Private Sub Text1_GotFocus() '获取焦点是触发
isFocus = True
End Sub
Private Sub Text1_LostFocus()'失去焦点带搏是触发
isFocus = False
End Sub

你可以判断IsFocus的值

---

可以设置文卜棚本运罩框获得焦点， txtAddCode.SetFocus 。
但是判断不了是否获得焦点旁弊闹，这是VB的局限性。

---