# 没有特别的好方法

Posted by cww on September 25, 1998 at 08:38:14:

In Reply to: 那么我该如何作呢？ posted by 小马 on September 24, 1998 at 16:36:13:

没有比较好的方法，可以记录text1, text2的内容有没有更动
过，而决定要不要启动LostFocus 来做事情，至于更多的控制
就看自己程式如何写。

例如：
Private Sub Text1_Change()
Text1.Tag = "1"
End Sub

Private Sub Text1_GotFocus()
Debug.Print "Text1 getfocus"
Text1.Tag = ""
End Sub

Private Sub Text1_LostFocus()
If Text1.Tag = "1" Then
Debug.Print "text1 LostFocus"
Text1.SetFocus
DoEvents
Text1.Tag = "1"
End If
End Sub
Private Sub Text2_Change()
Text2.Tag = "1"
End Sub

Private Sub Text2_GotFocus()
Debug.Print "Text2 getfocus"
Text2.Tag = ""
End Sub

Follow Ups: