Question

Microsoft Word 文档可包含 ActiveX 控件。可用“控件工具箱”插入诸如命令按钮、复选框和列表框等 ActiveX 控件。可使用下列步骤添加具有 LostFocus 事件的 ActiveX 复选框控件：

1. 在 Word 中用鼠标右键单击工具栏，然后单击“控件工具箱”。
2. 单击“复选框”控件。

   活动文档中即插入一个复选框控件。

3. 用鼠标右键单击复选框，然后单击“查看代码”。

   Word 会切换至“Visual Basic 编辑器”并显示 ThisDocument 类模块，并在“对象”下拉列表框中选定该复选框。

4. 在“过程”下拉列表框中选定 LostFocus 事件。

   在类模块中会添加一个空过程。

5. 添加要在事件发生时运行的 Visual Basic 指令。

下列示例显示在焦点离开 CheckBox1 时运行的 LostFocus 事件过程。该宏用 Value 属性显示 CheckBox1 的状态（True 为选定，False 为清除）。

Private Sub CheckBox1_LostFocus()
 MsgBox CheckBox1.Value
End Sub

若要查看事件过程的运行情况，可切换回包含该复选框的 Word 文档。单击“控件工具箱”上的“退出设计模式”按钮。选定或清除复选框，然后单击文档中的其他元素。此时复选框失去焦点，LostFocus 过程开始运行；Word 会显示一个消息框，内容为 True 或 False。

Word 在 Word 文档中为 ActiveX 控件应用了 LostFocus 和 GotFocus 事件。“过程”下拉列表框中列出的其他事件在“Microsoft 窗体帮助”中有文档说明。