《VB程序設(shè)計》PPT課件.pptx

《《VB程序設(shè)計》PPT課件.pptx》由會員分享，可在線閱讀，更多相關(guān)《《VB程序設(shè)計》PPT課件.pptx（70頁珍藏版）》請在裝配圖網(wǎng)上搜索。

1、第四章 VB程序設(shè)計 第四章 VB程序設(shè)計在設(shè)計一個規(guī)模較大、功能較復(fù)雜的程序時，需要按功能將程序分解成若干個相互獨立的部件，VB稱這些部件為過程。在程序編寫時，分別對每個“過程”編寫程序，可以簡化程序設(shè)計任務(wù)。本章主要對工程、模塊和過程進行介紹。 4.1 文件類型VB應(yīng)用程序由擴展名為.vbp、.frm、.frx、.bas、.cls等幾種類型的文件組成。1. 窗 體 文 件 (.frm)包 含 窗 體 、 控 件 的 描 述 和 屬 性 設(shè) 置 ， 也 包 含 窗 體 級 的 常 數(shù) 、變 量 、 外 部 過 程 的 聲 明 ， 以 及 事 件 過 程 和 一 般 過 程 。如 果 程 序

2、沒 有 frm窗 體 文 件 ， 則 表 示 沒 有 用 戶 界 面 。2. 窗 體 的 二 進 制 數(shù) 據(jù) 文 件 (.frx)含 有 窗 體 上 控 件 的 二 進 制 屬 性 數(shù) 據(jù) 。 這 些 文 件 是 在 創(chuàng) 建 窗體 時 自 動 產(chǎn) 生 的 。 4.1 文件類型3. 標 準 模 塊 文 件 (.bas)用 于 存 放 幾 個 窗 體 中 都 需 要 用 的 公 共 代 碼 ， 包 含 常 數(shù) 、 類型 、 變 量 和 過 程 的 聲 明 ， 以 及 過 程 代 碼 。4. 類 模 塊 文 件 (.cls)用 于 建 立 新 對 象 ， 這 些 新 對 象 可 以 包 含 自 定

3、義 的 屬 性 和 方法 。 類 模 塊 即 包 含 代 碼 又 包 含 數(shù) 據(jù) ， 可 被 應(yīng) 用 程 序 內(nèi) 的 過 程調(diào) 用 。 4.1 文件類型5. 工 程 文 件 (.vbp)工 程 文 件 包 含 組 成 應(yīng) 用 程 序 的 所 有窗 體 文 件 (.frm)、 模 塊 文 件 (.bas)和 其 它文 件 ， 也 包 含 環(huán) 境 設(shè) 置 選 項 方 面 的 信 息 。工 程 的 操 作 ： 打 開 和 保 存 工 程 ： 通 過 “ 文 件 ” 菜 單 進 行 打 開 和 保 存 工 作 設(shè) 置 工 程 屬 性 ： “ 工 程 ” 菜 單 ， “ 工 程 屬 性 ” 對 話 框

4、操 作 添 加 工 程 ： 工 具 欄 或 “ 文 件 ” 菜 單 添 加 已 有 工 程 或 新 建 工 程添 加 多 個 工 程 可 組 成 工 程 組 刪 除 工 程 ： “ 工 程 資 源 管 理 器 ” 中 通 過 右 鍵 快 捷 菜 單 向 工 程 中 添 加 和 刪 除 文 件 ： 工 具 欄 或 “ 工 程 ” 菜 單 4.2 過程將 較 為 復(fù) 雜 的 程 序 分 割 成 較 小 的 邏 輯 部 件 ， 這 些 部 件 稱 為過 程 。u 每 個 過 程 為 一 段 程 序 ， 一 個 過 程 可 以 被 另 一 個 過 程 調(diào) 用 。u 多 個 過 程 構(gòu) 成 一 個 完

5、整 、 復(fù) 雜 的 應(yīng) 用 程 序 。u 將 應(yīng) 用 程 序 分 解 成 過 程 進 行 分 別 調(diào) 試 ， 可 極 大 地 簡 化 程 序 設(shè) 計任 務(wù) 。 4.2 過程應(yīng)用程序工程文件窗體文件 多個過程標準模塊文件多個過程類模塊文件多個過程工程文件 應(yīng) 用 程 序 的 組 成 ： 4.2 過程過 程 的 分 類 ：u 子 程 序 過 程 (Sub Procedure)子 程 序 過 程 沒 有 返 回 值u 函 數(shù) 過 程 (Function Procedure)函 數(shù) 過 程 具 有 返 回 值 ， 如 a sin(x)u 屬 性 過 程 (Property Procedure)屬 性

6、過 程 可 以 返 回 和 設(shè) 置 窗 體 、 標 準 模 塊 和 類 模 塊 ， 也可 以 設(shè) 置 對 象 的 屬 性 。 VB的所有可執(zhí)行代碼必須屬于某個過程。 過程的定義是平行的，不能在一個過程中定義其它過程。 4.2.1 Sub過程(子程序過程)Sub過 程 可 以 放 在 標 準 模 塊 和 窗 體 模 塊 中 。VB中 有 兩 種 Sub過 程 ：u 事 件 過 程u 通 過 過 程1. 事 件 過 程VB是 事 件 驅(qū) 動 的 ， 為 一 個 事 件 所 編 寫 的 程 序 代 碼 ， 稱 為 事件 過 程 。 當 VB對 象 中 的 某 個 事 件 發(fā) 生 時 ， 自 動 調(diào)

7、用 相 應(yīng) 的 事 件過 程 。 事 件 過 程 分 為 窗 體 事 件 過 程 和 控 件 事 件 過 程 。 4.2.1 Sub過程(子程序過程)(1) 窗 體 事 件 過 程 的 語 法 ：Private Sub Form_事 件 名 (參 數(shù) 列 表 ) 局 部 變 量 和 常 數(shù) 聲 明 語 句 塊End Sub例 如 ： Private Sub Form_Click () frmText.Show Hide End Sub注 意 ：p 不 管 窗 體 的 名 稱 (Name)屬 性 是 什 么 ， 在 事 件 過 程 中 只 能 使 用 “ Form_事 件 名 ”p 在 程 序

8、代 碼 中 對 窗 體 的 引 用 須 要 使 用 窗 體 的 名 稱 屬 性 p 在 程 序 有 多 個 窗 體 時 ， 如 何 對 不 同 窗 體 的 窗 體 事 件 編 程 ？ 將 要 進 行 編 程 的 窗 體 放 在 屏幕 最 前 端 (或 在 工 程 資 源 管 理 器 中 選 中 窗 體 )， 再 點 擊 工 程 資 源 管 理 器 中 的 “ 查 看 代 碼 ” 按鈕 ； 在 代 碼 窗 口 的 標 題 欄 中 顯 示 代 碼 對 應(yīng) 的 窗 體 。 4.2.1 Sub過程(子程序過程)(2) 控 件 事 件 過 程 的 語 法 ：Private Sub 控 件 名 _事 件

9、名 (參 數(shù) 列 表 ) 局 部 變 量 和 常 數(shù) 聲 明 語 句 塊End Sub例 如 ： Private Sub Command1_Click () Text2=Text1*Text1*3.14 End Sub 4.2.1 Sub過程(子程序過程)(3) 事 件 過 程 的 創(chuàng) 建 方 法 ：u在 設(shè) 計 的 窗 體 上 雙 擊 窗 體 或 控 件 ， 打 開 “ 代 碼 編 輯 器 ” 窗 口 ，并 會 出 現(xiàn) 該 窗 體 或 控 件 的 默 認 過 程 代 碼 。u單 擊 工 程 資 源 管 理 器 窗 口 的 “ 查 看 代 碼 ” 按 鈕 ， 在 對 象 列 表框 選 擇 對

10、象 ， 在 “ 過 程 列 表 框 ” 選 擇 事 件 過 程 。u根 據(jù) 語 法 要 求 ， 自 己 編 寫 事 件 過 程 。 4.2.1 Sub過程(子程序過程)1. 通 用 過 程當 幾 個 不 同 的 事 件 過 程 需 要 執(zhí) 行 同 樣 的 動 作 時 ， 為 了 不 重 復(fù) 編 寫代 碼 ， 可 以 采 用 通 用 過 程 來 實 現(xiàn) 。u 要 運 行 通 用 過 程 中 的 代 碼 ， 需 要 在 事 件 過 程 對 通 用 過 程 進 行 調(diào) 用 。u 通 用 過 程 可 以 保 存 在 窗 體 模 塊 (.frm)和 標 準 模 塊 (.bas)兩 種 模 塊 中 。u

11、在 VB中 ， 事 件 過 程 是 必 要 的 ， 但 通 用 過 程 不 是 必 要 的 ， 是 為 了 程序 員 方 便 而 單 獨 建 立 的 。 4.2.1 Sub過程(子程序過程)(1) 通 用 過 程 的 語 法 ： Private和 Public： 用 來 聲 明 該 Sub過 程 是 局 部 的 (Private)， 還 是 全局 的 (Public)， 系 統(tǒng) 默 認 值 為 Public Static： 表 示 局 部 靜 態(tài) 變 量 。 “ 靜 態(tài) ” 是 指 在 過 程 運 行 結(jié) 束 后 仍 保留 Sub過 程 的 變 量 值 。 過 程 名 ： 根 據(jù) 該 通 用

12、過 程 的 功 能 ， 程 序 員 自 己 定 義 的 名 字 。 與 變 量 的 命 名 規(guī) 則 相 同 ， 在 同 一 模 塊 中 過 程 名 不 能 重 名 。Private|Public Static Sub 過 程 名 (參 數(shù) 列 表 ) 局 部 變 量 和 常 數(shù) 聲 明 語 句 塊Exit Sub語 句 塊End Sub 4.2.1 Sub過程(子程序過程)(1) 通 用 過 程 的 語 法 ： 局 部 變 量 和 常 數(shù) 聲 明 ： 用 來 聲 明 過 程 中 定 義 的 變 量 和 常 數(shù) ， 可 用 Dim等 語句 聲 明 。 Exit Sub： 使 程 序 立 即 從

13、一 個 Sub過 程 中 退 出 ， 一 般 放 在 分 支 結(jié) 構(gòu) 代 碼 中 。 語 句 塊 ： 過 程 中 執(zhí) 行 的 操 作 ， 稱 為 子 程 序 或 過 程 體 。 End Sub： 用 于 結(jié) 束 本 Sub過 程 。 注 意 ： Exit Sub與 End Sub是 結(jié) 束 本 Sub過 程 ， 不 是 結(jié) 束 應(yīng) 用 程 序 的 運 行Private|Public Static Sub 過 程 名 (參 數(shù) 列 表 ) 局 部 變 量 和 常 數(shù) 聲 明 語 句 塊Exit Sub語 句 塊End Sub 4.2.1 Sub過程(子程序過程) 參 數(shù) 列 表 ： 類 似 于

14、變 量 的 聲 明 ， 列 出 從 調(diào) 用 過 程 傳 遞 來 的 函 數(shù) 值 ， 稱為 形 式 參 數(shù) (簡 稱 形 參 )， 多 個 形 參 間 用 “ ， ” 隔 開 。 形 參 語 法 ：ByVal | ByRef 變 量 名 () As 數(shù) 據(jù) 類 型 ByVal： 表 示 該 參 數(shù) 按 值 傳 遞 ByRef： 表 示 該 參 數(shù) 按 地 址 傳 遞 (默 認 值 )Private|Public Static Sub 過 程 名 (參 數(shù) 列 表 ) 局 部 變 量 和 常 數(shù) 聲 明 語 句 塊Exit Sub語 句 塊End Sub注 意 ： 即 使 Sub過 程 中 的 參

15、 數(shù) 列 表 為 空 ， 過 程 名 后 的 括 號 也 不 能 省 略 【例Ex_Telephone】Private Sub Form_Load() Dim i As Integer For i = 1 To 9 Load Command1(i) Command1(i).Visible = True Command1(i).Caption = i Command1(i).Left = Command1(0).Left + 800 * i If i 4 Then Command1(i).Top = Command1(0).Top + 800 Command1(i).Left = Command

16、1(0).Left + 800 * (i - 5) End If Next iEnd Sub Private Sub Command1_Click(Index As Integer) Text1.Text = Text1.Text SumEnd Sub 4.4.3 數(shù)組參數(shù)數(shù) 組 參 數(shù) 是 指 在 定 義 過 程 時 ， 可 以 定 義 數(shù) 組 作 為 過 程 的 形 參 。l 語 法 ： 形 參 數(shù) 組 名 () As 數(shù) 據(jù) 類 型 l 形 參 為 數(shù) 組 時 ， 過 程 調(diào) 用 時 的 實 參 必 須 也 是 數(shù) 組 。l 實 參 列 表 中 的 數(shù) 組 不 需 要 用 “ ()” 。

17、l 數(shù) 組 的 參 數(shù) 傳 遞 只 能 按 地 址 傳 遞 ， 形 參 與 實 參 共 用 同 一 段 內(nèi) 存 單 元 。 4.4.3 數(shù)組參數(shù)【 例 Ex_AverScore】 計 算 正 式 員 工 和 臨 時 員 工 的 平 均 工 資Private Sub cmdStart_Click() Dim Salary1(5) As Single, Salary2(8) As Single Salary1(0) = 1900: Salary1(1) = 1970: Salary1(2) = 1915 Salary1(3) = 1600: Salary1(4) = 1655 Salary2(0)

18、 = 2675: Salary2(1) = 2780: Salary2(2) = 2715 Salary2(3) = 2540: Salary2(4) = 2990 Salary2(5) = 2770: Salary2(6) = 2895: Salary2(7) = 2765 txtS1.Text = Int(Average(Salary1, 5) * 100) / 100 txtS2.Text = Int(Average(Salary2, 8) * 100) / 100End Sub Private Function Average(stuArray() As Single, n As In

19、teger) As Single Dim i As Integer Dim aver As Single, sum As Single For i = 0 To n - 1 sum = sum + stuArray(i) Next i aver = sum / n Average = averEnd Function賦初始值Salary1為臨時員工Salary2為正式員工調(diào)用Average函數(shù)計算平均工資，并在文本框中顯示 計算工資總和 4.4.4對象參數(shù)VB中 對 象 也 可 以 作 為 形 參 ， 將 對 象 向 被 調(diào) 用 過 程 傳 遞 。l 對 象 的 傳 遞 只 能 按 地 址 傳

20、 遞 。l 對 象 的 類 型 聲 明 為 “ Control” 或 控 件 類 型 ， 如 ： “ Lable” 、“ Form” 。 4.4.4對象參數(shù)Private Sub cmdEmployee_Click(Index As Integer) Call frmSelect(frmSecond, cmdEmployee(Index).Caption) Call labSelect(frmSecond.Label1, cmdEmployee(Index).Caption)End SubPrivate Sub frmSelect(F As Form, cmdCap As String) F.

21、Caption = cmdCap MEnd SubPrivate Function Muln(n As Integer) As Integer If n = 0 Or n = 1 Then Muln = 1 Else Muln = Muln(n - 1) * n End If End FunctionPrivate Function Muln(n As Integer) As Integer Select Case n Case 0 Or 1 uln = 1 Case Is 1 Mul = Muln(n - 1) * n End Select F nction 4.6 變量和過程的作用范圍4.

22、6.1 變量的作用范圍變 量 的 作 用 范 圍 是 指 變 量 有 效 的 范 圍 。 在 VB中 可 分 為 過 程 級 變量 、 模 塊 級 變 量 和 全 局 變 量 三 種 。1 過 程 級 變 量 ： 過 程 級 變 量 只 在 聲 明 它 們 的 過 程 中 才 有 效 ， 也稱 為 局 部 變 量 。 用 戶 無 法 在 其 他 過 程 中 訪 問 或 改 變 變 量 的 值 。過 程 級 變 量 的 定 義 方 法 ： Dim 變 量 名 As 數(shù) 據(jù) 類 型 Static 變 量 名 As 數(shù) 據(jù) 類 型 4.6.1 變量的作用范圍Private Function Max(

23、x As Integer, y As Integer) Dim z As Integer If x y Then z = x : x = y : y = z End If Max = x txtX.Text = x : txtY.Text = y End Functionl 對 于 臨 時 的 計 算 ， 適 合 聲 明 為 局 部 變 量 。l 不 同 過 程 中 的 局 部 變 量 可 以 重 名 。l 在 過 程 中 使 用 Dim語 句 定 義 的 變 量 都 是 局 部 變 量 。 4.6.1 變量的作用范圍2 模 塊 級 變 量 ： 模 塊 級 變 量 對 該 模 塊 的 所 有

24、過 程 都 有 效 。 在 模 塊 中的 任 何 過 程 都 可 以 使 用 該 變 量 。模 塊 級 變 量 的 定 義 方 法 ： Dim 變 量 名 As 數(shù) 據(jù) 類 型 Private 變 量 名 As 數(shù) 據(jù) 類 型 4.6.1 變量的作用范圍3 全 局 變 量 ： 全 局 變 量 的 作 用 范 圍 是 應(yīng) 用 程 序 的 所 有 過 程 ， 也 稱 為共 用 變 量 。全 局 變 量 的 定 義 方 法 ： Public 變 量 名 As 數(shù) 據(jù) 類 型 4.6.1 變量的作用范圍【 例 Ex_FormArgu2】 人 員 管 理 系 統(tǒng) 【 例 Ex_FormArgu2】 人

25、員 管 理 系 統(tǒng)首 先 創(chuàng) 建 2個 窗 體 文 件 和 一 個 標 準模 塊 文 件 。 給全局變量賦值窗體2內(nèi)標簽控件顯示的內(nèi)容窗體2標題欄顯示的內(nèi)容 計算平均值的函數(shù)過程 4.6.2 靜態(tài)變量變 量 除 了 作 用 范 圍 外 ， 還 有 存 活 期 的 概 念 ， 即 變 量 能 夠 保 持 其 值的 時 間 。l 模 塊 級 變 量 和 全 局 變 量 的 存 活 期 是 整 個 應(yīng) 用 程 序 的 運 行 期 間 。l 在 過 程 中 用 Dim語 句 定 義 的 局 部 變 量 僅 當 本 過 程 執(zhí) 行 期 間 存 在 。當 過 程 執(zhí) 行 完 畢 ， 變 量 的 存 儲 空

26、 間 被 釋 放 ， 在 下 一 次 執(zhí) 行 該 過 程 時所 有 局 部 變 量 將 重 新 初 始 化 。l 可 以 使 用 Static語 句 將 局 部 變 量 定 義 為 靜 態(tài) 局 部 變 量 ， 這 樣 過 程結(jié) 束 后 保 留 變 量 的 值 ， 即 不 釋 放 變 量 占 用 的 內(nèi) 存 單 元 。Static Ss As Integer Dim Tt As Double 4.6.2 靜態(tài)變量【 例 Ex_Plus】 Private Static Function Fac(n As Integer) Dim f As Integer f = f + n Fac = fEnd

27、FunctionPrivate Sub Form_Click() Dim i As Integer For i = 1 To 5 Print ; i & = & Fac(i) Next iEnd Subl 在 過 程 定 義 語 句 中 使 用 Static關(guān)鍵 字 ， 則 過 程 中 定 義 的 所 有 變 量 為靜 態(tài) 局 部 變 量 。l 在 點 擊 窗 體 的 事 件 過 程 中 ， 通過 For 循 環(huán) 結(jié) 構(gòu) 共 調(diào) 用 了 5次 Fac函數(shù) 過 程 。 因 為 采 用 了 靜 態(tài) 變 量 ， 每次 調(diào) 用 結(jié) 束 后 ， f的 值 被 保 留 。 若定 義 的 不 是 靜 態(tài) 變

28、 量 運 行 結(jié) 果 不 同 。 l 將 f設(shè) 為 模 塊 級 變 量 ， 運 行 結(jié) 果 相 同 。 但 模 塊 內(nèi) 所 有 過 程 都 能 對 f值 進行 修 改 ， 故 容 易 出 錯 。 4.6.3 過程的作用范圍1 過 程 的 有 效 范 圍 ：Sub過 程 和 Function過 程 的 作 用 范 圍 有 全 局 過 程 和 局 部 過 程 2種 。通 過 Public和 Private關(guān) 鍵 字 定 義 。Private Sub 過 程 名 （ 參 數(shù) 列 表 ） 僅 在 本 模 塊 才 能 訪 問Public Sub 過 程 名 （ 參 數(shù) 列 表 ） 程 序 的 所 有 模

29、 塊 都 能 訪 問 4.6.3 過程的作用范圍2 過 程 的 外 部 調(diào) 用 ：外 部 調(diào) 用 是 指 調(diào) 用 其 他 模 塊 中 的 全 局 過 程 。(1) 調(diào) 用 窗 體 模 塊 中 的 過 程 ： 必 須 以 窗 體 名 作 為 調(diào) 用 的 前 綴語 法 ： Call 窗 體 名 .全 局 過 程 名 （ 實 參 列 表 ） 例 如 ： 在 窗 體 Form2中 定 義 一 個 全 局 過 程 Sub1， 在 窗 體 1中 調(diào) 用該 過 程 。 Private Sub Form_Click() Call Form2.Sub1End Sub 4.6.3 過程的作用范圍(2) 調(diào) 用 標

30、 準 模 塊 中 的 過 程 ：語 法 ： Call 標 準 模 塊 名 . 全 局 過 程 名 （ 實 參 列 表 ） l 若 在 程 序 中 過 程 名 是 唯 一 的 ， 則 調(diào) 用 時 不 用 加 模 塊 名 。l 若 兩 個 標 準 模 塊 中 含 有 同 名 的 全 局 過 程 ， 則 在 模 塊 外 調(diào) 用 必 須加 標 準 模 塊 名 作 為 前 綴 。例 如 ： Call Module2.Sub1 4.6.4 使用同名的變量在 VB中 允 許 不 同 應(yīng) 用 范 圍 內(nèi) 使 用 多 個 同 名 的 變 量 ， 例 如 不 同 過 程 中出 現(xiàn) 同 名 的 局 部 變 量 ，

31、局 部 變 量 與 模 塊 變 量 同 名 等 情 況 。1 不 同 模 塊 中 的 全 局 變 量 同 名 ：如 果 不 同 模 塊 中 的 全 局 變 量 使 用 同 一 名 字 ， 在 引 用 時 需 要 用“ 模 塊 名 .變 量 名 ” 引 用 。例 如 ：標準模塊Module1Public Ss As IntegerSs=1Module2.Ss=2標準模塊Module2Public Ss As IntegerSs=1Module1.Ss=2 4.6.4 使用同名的變量2 全 局 變 量 與 局 部 變 量 同 名 ：全 局 變 量 與 局 部 變 量 同 名 時 ， 局 部 變 量

32、 在 其 所 在 過 程 內(nèi) 有 效 ；在 其 他 范 圍 內(nèi) 全 局 變 量 有 效 。例 如 ：窗體模塊Form1Private Sub Form_Click() Dim Ss As Integer Ss=1End SubPrivate Sub cmd1_Click() Ss=1End Sub標準模塊Module2Public Ss As IntegerSs=1 4.6.4 使用同名的變量3 窗 體 的 屬 性 、 控 件 名 與 變 量 同 名 ：在 VB中 窗 體 的 屬 性 名 、 控 件 名 被 視 為 模 塊 級 變 量 ， 故 不 能 與 模塊 級 變 量 同 名 。 當 某

33、一 過 程 內(nèi) 的 局 部 變 量 與 控 件 名 或 屬 性 名 同 名 時 ，在 使 用 該 控 件 時 必 須 加 窗 體 名 或 Me關(guān) 鍵 字 來 限 定 。例 如 ： 在 窗 體 中 有 個 名 稱 為 Text1的 文 本 框 ， 和 一 個 同 名 的 局 部 變 量 。Private Sub Form_Click() Dim Text1 Text1=“Variable” Me.text1=“Control Form1.text1.Top=0 End Sub 4.7 Sub Main過程與快速提示窗體1. 通 過 Sub Main過 程 啟 動 應(yīng) 用 程 序當 應(yīng) 用 程 序

34、 啟 動 時 不 加 載 任 何 窗 體 ， 可 在 標 準 模 塊 中 創(chuàng) 建 一 個Sub Main的 子 過 程 ， 然 后 在 Sub Main 過 程 中 編 寫 啟 動 時 需 要 執(zhí) 行的 代 碼 。l Sub Main子 過 程 不 能 在 窗 體 模 塊 中 創(chuàng) 建 。l 每 個 工 程 只 能 有 一 個 Sub Main子 過 程l 當 工 程 中 含 有 Sub Main子 過 程 時 ， 應(yīng) 用 程 序 在 裝 載 窗 體 之 前 總是 先 執(zhí) 行 Sub Main子 過 程 。l 設(shè) 置 SubMain為 啟 動 對 象 ： 在 “ 工 程 ” 菜 單 的 “ 工

35、程 屬 性 ” 對 話 框 中 選 取 4.7 Sub Main過程與快速提示窗體Sub main() If 條件1 Then frmFirst.Show Elseif 條件2 Then frmSecond.Show End IfEnd SubSub Main的 用 途 ：例 如 運 行 Microsoft Office的 安 裝 程 序 ， 程 序 會 先 檢 查 電 腦 中 是 否 安裝 了 Office軟 件 ： 若 沒 有 安 裝 則 直 接 進 入 安 裝 界 面 ； 若 安 裝 過 則 進入 一 個 對 話 框 選 擇 “ 添 加 刪 除 組 件 ” 、 “ 修 復(fù) 安 裝 ” 等

36、 選 項 。安 裝 程 序 的 檢 查 過 程 可 以 放 在 Sub Main過 程 中 。語句塊(檢查是否安裝過Office) 4.7 Sub Main過程與快速提示窗體2. 啟 動 時 的 快 速 顯 示Microsoft Office， VB等 軟 件 啟 動 時 都 會 先 顯 示 一 個 快 速 顯 示 窗體 ， 然 后 再 進 入 應(yīng) 用 程 序 界 面 。 VB可 以 通 過 在 Sub Main子 過 程 中 編程 實 現(xiàn) 這 一 功 能 。首 先 ， 添 加 快 速 顯 示 窗 體 (可 通 過 模 板 修 改 獲 得 )然 后 ， 根 據(jù) 程 序 需 要 編 寫 Sub Main子 過 程 程 序 代 碼Sub main() frmSplash.Show frmFirst.Show Unload frmSplashEnd Sub