為了響應(yīng)用戶的操作，需要調(diào)用相應(yīng)的對(duì)象的事件。每個(gè)對(duì)象有 不同的事件，各個(gè)對(duì)象的事件又有不同的事件。調(diào)用事件的方法很 簡單，如果是想調(diào)用對(duì)象的Click（鼠標(biāo)單擊）事件，可以在【設(shè)置 模式】下雙擊該對(duì)象，即可顯示代碼窗口，允許用戶輸入其中輸入 事件的執(zhí)行代碼。在代碼窗口中，也可以在【對(duì)象】列表框中選擇 需要的對(duì)象后，在【過程】列表框中選擇需要的事件。如圖12-9 所 示。
關(guān)于各個(gè)對(duì)象的具體事件不再一一敘述，下面以為窗體中的【關(guān)閉文檔】按鈕添加Click 事件和為文字框添加LostFocus 事件為例， 介紹如何為對(duì)象添加基本的事件。在窗體中，文字框是用來輸入姓 名的，為文字框添加LostFocus 事件，可以在用戶輸入姓名完畢后， 當(dāng)焦點(diǎn)轉(zhuǎn)到其他控件時(shí)，文字框失去焦點(diǎn)。產(chǎn)生LostFocus 事件的 步驟為：
（1）在代碼窗口中，在【對(duì)象】列表框中選擇TextBox1。
（2）在【過程】列表框中選擇LostFocus。
（3）輸入代碼，如下所示：
Private Sub TextBox1_LostFocus（）
MsgBox TextBox1.Text, vbOKOnly, "你的姓名是:"
'顯示一個(gè)消息框，顯示用戶剛輸入的文字
End Sub
為【關(guān)閉文檔】按鈕添加事件的步驟如下：
（1）在代碼窗口中，在【對(duì)象】列表框中選擇CommandButton2。
（2）在【過程】列表框中選擇Click。
（3）輸入代碼，如下所示：
Private Sub CommandButton2_Click（）
Dim Msg, Style, Title, Help, Ctxt, Response, MyString
Msg = "你真的要關(guān)閉本文檔，不要后悔啊 ?" ' 定義信息。
Style = vbYesNo + vbQuestion + vbDefaultButton2 ' 定義按鈕。
Title = "確認(rèn)關(guān)閉文檔" ' 定義標(biāo)題。
Help = "" ' 定義幫助文件，為空。
Ctxt = ' 定義標(biāo)題，為空' 上下文。
' 顯示信息。
Response = MsgBox（Msg, Style, Title, Help, Ctxt）
If Response = vbYes Then ' 用戶按下“是”。
WordBasic.FileClose ' 完成某操作。
Else ' 用戶按下“否”。
End If
通過對(duì)事件的引用，就大大增強(qiáng)了Word 窗體的交互性。當(dāng)用戶 在文字框輸入“笑嘻嘻”后轉(zhuǎn)移焦點(diǎn)時(shí)，會(huì)顯示如圖12-10 所示的 【你的姓名是：】對(duì)話框，當(dāng)單擊【關(guān)閉文檔】按鈕時(shí)，會(huì)顯示【確 認(rèn)關(guān)閉文檔】對(duì)話框，如圖12-10 所示。用戶單擊【是】按鈕，將 關(guān)閉該文檔，如果窗體還沒有保存，會(huì)提示用戶保存窗體；單擊【否】 按鈕，將返回 文檔。 