请教各位大哥

见人心动

在word2000里面的文本框事件LostFocus()不能实现，请问有什么办法可以代替呢？（要在word2000里面）

守柔

请参：

一个控件从同一窗体的另一个控件实际接收到焦点之前，Enter 事件发生。同一窗体中的一个控件即将把焦点转移到另一个控件之前，Exit 事件发生。

语法

Private Sub object_Enter( )

Private Sub object_Exit( ByVal Cancel As MSForms.ReturnBoolean)

Enter 和 Exit 事件的语法包含以下成分：

成分 说明

object 必需。一个有效的对象名。

Cancel 必需。事件状态。False 表示由该控件处理这个事件（这是默认方式）。True 表示由应用程序处理这个事件，并且焦点应当留在当前控件上。

说明

Enter 事件和 Exit 事件与 Visual Basic 中的 GotFocus 和 LostFocus 事件类似。与 GotFocus 和 LostFocus 事件不同的是，当窗体接收或失去焦点时 Enter 事件和 Exit 事件不发生。

例如，假如选中了可初始化 Enter 事件的复选框，而后如又选中同一窗体中的另一个控件，那么对于该复选框来说，Exit 事件被初始化（因为焦点正在移到同一窗体中的不同对象上），而对于该窗体中的第二个控件来说，Enter 事件发生。

因为 Enter 事件发生在焦点移到一特定控件上之前，所以可用 Enter 事件过程来显示指令。例如，可用一个宏或者事件过程来显示一个小窗体或消息框，标识控件一般所包含的数据类型。

注意 将控件 Exit 事件的 Cancel 参数赋值为 True，可防止控件失去焦点。

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)

End Sub