調用窗體對象的事件

    為了響應用戶的操作，需要調用相應的對象的事件。每個對象有 不同的事件，各個對象的事件又有不同的事件。調用事件的方法很 簡單，如果是想調用對象的Click（鼠標單擊）事件，可以在【設置 模式】下雙擊該對象，即可顯示代碼窗口，允許用戶輸入其中輸入 事件的執行代碼。在代碼窗口中，也可以在【對象】列表框中選擇 需要的對象后，在【過程】列表框中選擇需要的事件。如圖12-9 所 示。
    關于各個對象的具體事件不再一一敘述，下面以為窗體中的【關閉文檔】按鈕添加Click 事件和為文字框添加LostFocus 事件為例， 介紹如何為對象添加基本的事件。在窗體中，文字框是用來輸入姓 名的，為文字框添加LostFocus 事件，可以在用戶輸入姓名完畢后， 當焦點轉到其他控件時，文字框失去焦點。產生LostFocus 事件的 步驟為：

    （1）在代碼窗口中，在【對象】列表框中選擇TextBox1。
    （2）在【過程】列表框中選擇LostFocus。
    （3）輸入代碼，如下所示：
    Private Sub TextBox1_LostFocus（）
    MsgBox TextBox1.Text, vbOKOnly, "你的姓名是:"
    '顯示一個消息框，顯示用戶剛輸入的文字
    End Sub

    為【關閉文檔】按鈕添加事件的步驟如下：
    （1）在代碼窗口中，在【對象】列表框中選擇CommandButton2。
    （2）在【過程】列表框中選擇Click。
    （3）輸入代碼，如下所示：

    Private Sub CommandButton2_Click（）
    Dim Msg, Style, Title, Help, Ctxt, Response, MyString
    Msg = "你真的要關閉本文檔，不要后悔啊 ?" ' 定義信息。
    Style = vbYesNo + vbQuestion + vbDefaultButton2 ' 定義按鈕。
    Title = "確認關閉文檔" ' 定義標題。
    Help = "" ' 定義幫助文件，為空。
    Ctxt = ' 定義標題，為空' 上下文。
    ' 顯示信息。

    Response = MsgBox（Msg, Style, Title, Help, Ctxt）
    If Response = vbYes Then ' 用戶按下“是”。
    WordBasic.FileClose ' 完成某操作。
    Else ' 用戶按下“否”。
    End If
    通過對事件的引用，就大大增強了Word 窗體的交互性。當用戶 在文字框輸入“笑嘻嘻”后轉移焦點時，會顯示如圖12-10 所示的 【你的姓名是：】對話框，當單擊【關閉文檔】按鈕時，會顯示【確 認關閉文檔】對話框，如圖12-10 所示。用戶單擊【是】按鈕，將 關閉該文檔，如果窗體還沒有保存，會提示用戶保存窗體；單擊【否】 按鈕，將返回 文檔。