【正文】 ctivate 自動(dòng)建立 Load語句 建立窗體 顯示在屏幕上 裝入內(nèi)存 所觸發(fā)的事件 Initialize Load Resize Paint GotFocus 隱藏窗體 從內(nèi)存中刪除 UnLoad方法 Hide方法 QueryUnload Unload Terminate 圖 119 窗體的卸載過程 DeActivate LostFocus Visual Basic應(yīng)用程序的組成 ? 一個(gè) Visual Basic的應(yīng)用程序也稱為一個(gè)工程 ， 由若干問所組成 。 其中工程文件 （ *.Vbp） 用來管理構(gòu)成應(yīng)用程序的所有文件 ，如：窗體文件 （ .Frm） 、 標(biāo)準(zhǔn)模塊文件 （ .Bas） 、 類模塊文件（ .Cls） 等等 ， 它們的關(guān)系如圖 120所示 。 ? 【 說明 】 ? (1) 每個(gè)窗體文件 （ 也稱窗體模塊 ） 包含窗體本身的數(shù)據(jù) （ 屬性 ） 、 方法和事件過程 （ 即代碼部分 ， 其中有為響應(yīng)特定事件而執(zhí)行的指令 ） 。 窗體還包含控件 ， 每個(gè)控件都有自己的屬性 、 方法和事件過程集 。 除了窗體和各控件的事件過程 ， 窗體模塊還可包含通用過程 ， 是用戶自定義的子過程和函數(shù)過程 ， 它對(duì)來自任何事件過程的調(diào)用都做出響應(yīng) 。 ? (2) 標(biāo)準(zhǔn)模塊是由那些與特定窗體或控件無關(guān)的代碼組成的另一類型的模塊 。 如果一個(gè)過程可能用來響應(yīng)幾個(gè)不同對(duì)象中的事件 ， 應(yīng)該將這個(gè)過程放在標(biāo)準(zhǔn)模塊中 ， 而不必在每一個(gè)對(duì)象的事件過程中重復(fù)相同的代碼 。 Visual Basic應(yīng)用程序的組成 ? (3) 類模塊與窗體模塊類似 ， 只是沒有可見的用戶界面 。 可以使用類模塊創(chuàng)建含有方法和屬性代碼的自己的對(duì)象 ， 這些對(duì)象可被應(yīng)用程序內(nèi)的過程調(diào)用 。 標(biāo)準(zhǔn)模塊只包含代碼 ， 而類模塊既包含代碼又包含數(shù)據(jù) ， 可視為沒有物理表示的控件 。 一個(gè)或若干個(gè)標(biāo)準(zhǔn)模塊 （ .Bas） 文件 VB工程 （ *.Vbp） 類模塊 (.Cls)文件 一個(gè)或若干個(gè)窗體模塊 (*.Frm)文件 1各種控件 （ Sub） （ Function） （ Sub） （ Function） 圖 120 Visual Basic應(yīng)用程序中各文件的關(guān)系 Visual Basic應(yīng)用程序的組成 ? 除了上面的文件外 ， 一個(gè)工程還包括以下幾個(gè)附屬文件 ， 它們沒法在工程資源 管理窗口中查看或管理 。 ? (1) 窗體的二進(jìn)制數(shù)據(jù)文件 （ .frx） ： 如果窗體上控件的數(shù)據(jù)屬性含有二進(jìn)制屬性 （ 例如圖片或圖標(biāo) ） ， 當(dāng)保存窗體文件時(shí) ， 就會(huì)自動(dòng)產(chǎn)生同名的 .frx文件 。 ? (2) 資源文件 （ .res） ： 包含著不必重新編輯代碼就可以改變的位圖 、 字符串和其他數(shù)據(jù) 。 該文件是可選項(xiàng) 。 ? (3) ActiveX控件的文件 （ .ocx） ： ActiveX控件的文件是一段設(shè)計(jì)好的可以重復(fù)使用的程序代碼和數(shù)據(jù) ， 可以添加到工具箱 ， 并可像其他控件一樣在窗體中使用 。 該文件是可選項(xiàng) 。 Visual Basic應(yīng)用程序的工作方式 ? Visual Basic應(yīng)用程序采用的是以事件驅(qū)動(dòng)應(yīng)用程序的工作方式 。 ? 事件是窗體或控件所能識(shí)別的動(dòng)作 。 在響應(yīng)事件時(shí) ， 事件驅(qū)動(dòng)應(yīng)用程序執(zhí)行相應(yīng)事件的程序代碼 。 Visual Basic的每一個(gè)窗體和控件都有一個(gè)預(yù)定義的事件集 。 如果其中有一個(gè)事件發(fā)生 ， 并且在關(guān)聯(lián)的事件過程中存在代碼 ， Visual Basic則執(zhí)行該代碼 ? 注意： ? 有些事件伴隨其他事件發(fā)生 。 例如 ， 在 DblClick事件發(fā)生時(shí) ， Click、MouseDown和 MouseUp事件也會(huì)發(fā)生 。 創(chuàng)建應(yīng)用程序的步驟 ? 創(chuàng)建 Visual Basic應(yīng)用程序一般有以下幾個(gè)步驟： ? (1) 新建工程 。 ? (2) 創(chuàng)建應(yīng)用程序界面 。 使用工具箱在窗體上放置所需控件 ，其中 ， 窗體是用戶進(jìn)行界面設(shè)計(jì)時(shí)在其上放置控件的窗口 ， 它是創(chuàng)建應(yīng)用程序界面的基礎(chǔ) 。 ? (3) 設(shè)置屬性值 。 通過這一步驟來改變對(duì)象的外觀和行為 。 屬性值可通過屬性窗口設(shè)置 ， 也可通過程序代碼設(shè)置 。 ? (4) 對(duì)象事件過程的編程 。 通過代碼窗口為對(duì)象的相關(guān)事件編寫代碼 。 ? (5) 保存文件 。 運(yùn)行調(diào)試程序之前 ， 一般要先保存文件 。 ? (6) 程序運(yùn)行與調(diào)試 。 測試所編程序 ， 若運(yùn)行結(jié)果有錯(cuò)或?qū)τ脩艚缑娌粷M意 ， 則可通過前面的步驟修改 ， 繼續(xù)測試直到運(yùn)行結(jié)果正確 、 用戶滿意為止 ， 再次保存修改后的程序 。 一個(gè)簡單的 Visual Basic程序的創(chuàng)建實(shí)例 ? 本節(jié)通過一個(gè)簡單的 Visual Basic程序建立與調(diào)試實(shí)例 ， 向讀者介紹 Visual Basic應(yīng)用程序的開發(fā)過程 ， Visual Basic集成開發(fā)環(huán)境的使用 。 使讀者初步掌握 Visual Basic程序的開發(fā)過程 ， 理解Visual Basic程序的運(yùn)行機(jī)制 。 讀者可以通過上機(jī) ， 自己動(dòng)手建立一個(gè)簡單的 Visual Basic程序 。 ? 例 15 設(shè)計(jì)一個(gè)程序 ， 當(dāng)程序運(yùn)行后 ， 在窗體的正中間顯示“ 你好 ！ 請(qǐng)輸入你的姓名 ” ， 焦點(diǎn)定在其下的文本框中 （ 如圖 121所示 ） ， 當(dāng)用戶輸入姓名并單擊 “ 確定 ” 按鈕后 ， 在窗體中用黑體 、 12磅 、 紅色字顯示 “ XXX同學(xué) ， 你好 ！ 祝你學(xué)好 VB程序設(shè)計(jì) ” ， 同時(shí)窗體上出現(xiàn)兩個(gè)命令按鈕 “ 繼續(xù) ” 和 “ 結(jié)束 ” ， 其中 “ XXX”是用戶輸入的姓名 ， 例如 ， 當(dāng)用戶輸入 “ 王五 ” ， 單擊 “ 確定 ” 按鈕后 ， 就會(huì)出現(xiàn)如圖 122所示的界面 ， 如果單擊“ 繼續(xù) ” 按鈕 ， 則又回到初始運(yùn)行狀態(tài)；單擊 “ 結(jié)束 ” 按鈕即結(jié)束程序運(yùn)行 。 一個(gè)簡單的 Visual Basic程序的創(chuàng)建實(shí)例 分析 ： 本應(yīng)用程序的界面設(shè)計(jì)用到了 3個(gè) Visual Basic基本控件，即命令按鈕、標(biāo)簽和文本框，這 3個(gè)基本控件是 Visual Basic程序設(shè)計(jì)中使用最多的控件，下面首先對(duì)這 3個(gè)控件作些簡單介紹，更詳細(xì)的介紹讀者可閱讀 。 圖 121 程序運(yùn)行后初始界面 圖 122 單擊窗體后的程序界面 一個(gè)簡單的 Visual Basic程序的創(chuàng)建實(shí)例 ? 1． 命令按鈕 ? 命令按鈕 （ CommandBttion） 是用來接受用戶的操作信息 ， 激發(fā)某些事件 ， 實(shí)現(xiàn)一個(gè)命令的啟動(dòng) 、 中斷和結(jié)束等操作的 。 命令按鈕在工具箱中的圖標(biāo)為 ， 在程序設(shè)計(jì)中該類對(duì)象名的前綴為cmd。 ? 命令按鈕的基本屬性： Name、 Height、 Width、 Top、 Left、Enabled、 Visible、 Font等 ， 與窗體的使用相同 ， 顯示在命令按鈕上的信息是標(biāo)題屬性 （ Caption屬性 ） 。 ? 通常使用的是單擊事件 （ Click事件 ） 。 ? 2． 標(biāo)簽 ? 標(biāo)簽 （ Label） 控件可以顯示用戶不能直接改變的文本 ， 在窗體上顯示說明性信息 。 標(biāo)簽在工具箱中的圖標(biāo)為 。 一個(gè)簡單的 Visual Basic程序的創(chuàng)建實(shí)例 ? 3． 文本框 ? 文本框 （ TextBox） 通常用于顯示用戶輸入的信息 ， 作為接受用戶輸入數(shù)據(jù)的接口；也可以在設(shè)計(jì)或運(yùn)行時(shí) ， 通過對(duì)控件的 Text屬性賦值 。 文本框在工具箱中的圖標(biāo)為 。 ? 用戶在文本框中輸入的信息存放在 “ Text”屬性中 ， 程序中可通過對(duì)文本框 Text屬性賦值 ， 修改顯示在文本框中的內(nèi)容 。 Text屬性值為字符型 （ String） 。 ? 文本框常用到 Change事件 、 LostFocus事件和 KeyPress事件 。 ? 用戶改變文本框的內(nèi)容或通過代碼改變 “ Text”屬性的設(shè)置時(shí) ，將觸發(fā) Change事件 。 ? 當(dāng)用戶用 “ Tab”鍵或鼠標(biāo)選擇窗體上的其他對(duì)象而離開文本框時(shí) ， 將觸發(fā) LostFocus事件 。 ? 當(dāng)進(jìn)行文本輸入時(shí) ， 每一次鍵盤輸入 ， 都將使文本框接受一個(gè) ASCII碼字符 ， 而發(fā)生 KeyPress事件 。 新建工程 ? 啟動(dòng) Visual Basic ， 將出現(xiàn) “ 新建工程 ” 對(duì)話框（如圖 11所示），從中選擇 “ 標(biāo)準(zhǔn) EXE”， 單擊 “ 打開 ” 按鈕，即進(jìn)入Visual Basic的 “ 設(shè)計(jì)工作模式 ” ，這時(shí) Visual Basic創(chuàng)建了一個(gè)帶有單個(gè)窗體的新工程。系統(tǒng)默認(rèn)工程為 “ 工程 1” ，圖 12所示的即為系統(tǒng)集成開發(fā)環(huán)境窗口。 程序界面設(shè)計(jì) ? 根據(jù)題的要求，在界面上拖放 2個(gè)標(biāo)簽、 1個(gè)文本框， 3個(gè)命令按鈕。按表 13設(shè)置對(duì)象的相關(guān)屬性。 表 13 各對(duì)象控件的屬性設(shè)置 對(duì)象默認(rèn)名 設(shè)置對(duì)象名稱 （“ Name”屬性） 標(biāo)題屬性 （“ Caption”屬性） 其他屬性 Form1 使用對(duì)象默認(rèn)名 一個(gè)簡單的 VB程序 Text1 無定義 Text為空串 Label1 你好！請(qǐng)輸入你的姓名 Label2 空 串 AutoSize=True， Visible = False Command1 確 定 Command2 繼 續(xù) Visible = False Command3 結(jié) 束 Visible = False 程序界面設(shè)計(jì) ? 按表 13設(shè)置好控件屬性 ， 并調(diào)整好各控件的位置 ， 如圖 123所示 。 這樣便初步完成了應(yīng)用程序的界面設(shè)計(jì) 。 ? 通過按 F5鍵或選擇 “ 運(yùn)行 ” 菜單的 “ 啟動(dòng) ” 命令或單擊工具欄中的 “ 運(yùn)行 ” 按鈕 ， 查看運(yùn)行界面 ， 如圖 124所示 。 此時(shí)程序不能響應(yīng)用戶的操作 ， 這就需要編寫相關(guān)事件的代碼 。 圖 123 程序的界面設(shè)計(jì) 圖 124 程序運(yùn)行最初界面 編寫相關(guān)事件的代碼 ? 在設(shè)計(jì)窗口，雙擊命令按鈕進(jìn)入代碼編輯窗口編寫程序代碼，或通過 “ 資源管理窗口 ” 的 “ 查看代碼 ” 按鈕，也可以進(jìn)入代碼窗口。單擊 “ 選擇對(duì)象 ” 下拉列表框的下拉按鈕，從中選擇“ Command1”對(duì)象，再從 “ 選擇事件 ” 下拉列表框中選擇“ Click“事件，則在代碼窗口中會(huì)出現(xiàn)事件過程的框架，如圖 125所示。 圖 125 代碼窗口 ? 在命令按鈕的單擊事件中寫入如下代碼： ? Private Sub Command1_Click() 39。 確定命令按鈕單擊事件過程 ? = False 39。 將 Command1不顯示 ? = False 39。 將 Text1不顯示 ? = False 39。 將 Label1不顯示 ? = True 39。 將 Label2不顯示 ? = True ? 將 Label2設(shè)置自動(dòng)改變大小 ， 以適應(yīng)顯示的文字 ? = 12 39。 設(shè)置 Label2的字體為 12磅 ? = “黑體 ” 39。 設(shè)置 Label2的字體為黑體 ? = vbRed 39。 設(shè)置 Label2的前景顏色 ? = amp。 同學(xué) ， 你好 ！ 祝你學(xué)好 VB程序設(shè)計(jì) ? = True 39。 將 Command2顯示 ? = True 39。 將 Command3顯示 ? End Sub ? Private Sub Command2_Click() 39。 繼續(xù)命令按鈕單擊事件過程 ? = False ? = False ? = True ? = False ? = True ? = True ? End Sub ? Private Sub Command3_Click() 39。 結(jié)束命令按鈕單位事件過程 ? End ? End Sub 保存工程 ? 使用 “ 文件 ” 菜單中的 “ 工程保存 ” 命令 ， 或者單擊工具欄上的 “ 保存 ” 按鈕 ， Visual Basic系統(tǒng)就會(huì)提示將所有內(nèi)容保存 ，如類模塊文件 、 標(biāo)準(zhǔn)模塊文件 、 窗體文件和工程文件等 。 對(duì)本例而言 ， 是保存包括窗體文件 *.Frm的工程文件 *.Vbp。 如果是第一次保存文件 ， Visual Basic系統(tǒng)會(huì)出現(xiàn) “ 文件另存為 ” 對(duì)話框 ， 如圖 126所示 ， 要求用戶選擇保存文件位置和輸入文件名 。 ? 如果不是第一次保存文件 ， 則系統(tǒng)將直接以原文件名保存工程中的所有文件 ，