确定谁引发Lostfocus[转帖]

确定谁引发Lostfocus

我们常会在Control项的LostFocus中去Check其输入的正确性，但如
果我们按 "取消" 的CommandBox又希望不要去Check，直接结束就好
，即，如何是是按了该CommandBox而产生的LostFocus呢？

在LostFocus中Check Screen.ActiveControl便可得知下一个Control
是谁，便可解决这问题

Private Sub Text1_LostFocus()
If Screen.ActiveControl Is Me.Command1 Then
   Debug.Print "按到Command1"
Else
   Debug.Print "进行LostFoucs的程式"
End If
End Sub