【正文】 5 綜合應(yīng)用 【 例 8】 設(shè)計一個計算學(xué)生平均分和總分的多窗體應(yīng)用程序。 ?Sub Main過程：通常設(shè)置為啟動對象，主要用于應(yīng)用程序的初始化工作；該過程必須建立在標(biāo)準(zhǔn)模塊中，一個程序中可以有多個標(biāo)準(zhǔn)模塊，但 最多只能 有一個 Sub Main模塊。 ? 標(biāo)準(zhǔn)模塊文件 (.bas) 包含有可被任何窗體或?qū)ο笳{(diào)用的過程程序代碼 計算機應(yīng)用基礎(chǔ)——總述 杭 上 專 職 VB程序設(shè)計——菜單程序設(shè)計 ? 標(biāo)準(zhǔn)模塊 VB中主要有三種模塊： ?標(biāo)準(zhǔn)模塊：由全局變量聲明、模塊層聲明及通用過程等組成，所以也叫全局模塊或總模塊。Load Form3 = LCase() End Sub Private Sub Command3_Click() End End Sub 計算機應(yīng)用基礎(chǔ)——總述 杭 上 專 職 VB程序設(shè)計——菜單程序設(shè)計 窗體 2的代碼 ： Private Sub Command1_Click() End Sub Private Sub Form_Activate() =Ucase() End Sub 窗體 3的代碼： Private Sub Command1_Click() End Sub Private Sub Form_Activate() =Lcase() End Sub 計算機應(yīng)用基礎(chǔ)——總述 杭 上 專 職 VB程序設(shè)計——菜單程序設(shè)計 三、 VB工程結(jié)構(gòu) ? 工程文件 (.vbp) 列出了在創(chuàng)建該工程時所建立的所有文件的相關(guān)信息。 計算機應(yīng)用基礎(chǔ)——總述 杭 上 專 職 VB程序設(shè)計——菜單程序設(shè)計 【 例 7】 多重窗體應(yīng)用程序 窗體 1的代碼 Private Sub Command1_Click() 39。 4:窗體名 .Hide:隱藏窗體 (并不從內(nèi)存中消除 ) 167。 一：多重窗體有關(guān)語句 1:Load 窗體名 :將窗體載入內(nèi)存，但并不顯示 2:UnLoad 窗體名 :將窗體從內(nèi)存中消除 3:窗體名 .Show [模式 ]:顯示窗體。通常設(shè)置該值為 ＆ H103，表示屏幕字體、打印機字體兩者皆有之，并在字體對話框中出現(xiàn)刪除線、下劃線、 顏色等元素。 On Error語句在捕獲到錯誤后，轉(zhuǎn)向執(zhí)行標(biāo)號 ErrorHandler所指定的命令行，在標(biāo)簽 Label1上顯示 “ 放棄操作 ” ，并忽略產(chǎn)生錯誤的那一行命令與標(biāo)號之間的所有語句。 計算機應(yīng)用基礎(chǔ)——總述 杭 上 專 職 VB程序設(shè)計——菜單程序設(shè)計 On Ermr Resume Next ’忽略發(fā)生錯誤的命令行，執(zhí)行下一句命令 On Ermr GoTo語句標(biāo)號 ’ 當(dāng)發(fā)生錯誤時轉(zhuǎn)向執(zhí)行標(biāo)號所指定的命令行 對于捕獲到的錯誤號，可用分支語句處理。 如果不對錯誤進行處理， Visual Basic將顯示出錯誤消息并停止程序運行。 Err對象的 Number屬性記錄錯誤號， Description屬性保存有關(guān)錯誤的說明。 CommonDialogl． ShowOpen CommonDialogl． FileName＝‘‘ *． Bmp ’’ CommonDialogl． InitDir＝‘‘ C：＼ Windows’’ CommonDialogl． Filter＝‘‘ Pictures（ *． Bmp）｜ *．Bmp ｜ All Files（ *.*） ｜ *.* ’’ CommonDialogl． FilterIndex＝ 1 常見錯誤及難點分析 計算機應(yīng)用基礎(chǔ)——總述 杭 上 專 職 VB程序設(shè)計——菜單程序設(shè)計 常見錯誤及難點分析 2． 設(shè)置通用對話框的 CancelError屬性為 True發(fā)生錯誤 當(dāng)通用對話框的 CancelError屬性設(shè)置為 True時，無論何時選擇 “ 取消 ” 按鈕，均產(chǎn)生 32755（ cdlCancel）號錯誤。 如果出 ‘ 現(xiàn)錯誤，轉(zhuǎn)到 ErrorHandler處執(zhí)行 FName = Trim() If = True Then a = Shell(FName, 1) ?正常方式并擁有焦點 If = True Then a = Shell(FName, 3) ?最大化方式并擁有焦點 If = True Then a = Shell(FName, 2) ?最小化方式并擁有焦點 Exit Sub ErrorHandler: MsgBox 不能運行該程序 , , 注意 Resume Next ?從產(chǎn)生錯誤的語句之后開始運行 End Sub 計算機應(yīng)用基礎(chǔ)——總述 杭 上 專 職 VB程序設(shè)計——菜單程序設(shè)計 Private Sub Command2_Click() Unload Me End Sub 計算機應(yīng)用基礎(chǔ)——總述 杭 上 專 職 VB程序設(shè)計——菜單程序設(shè)計 ?通用對話框 ?通用對話框可置于窗體的任意位置，運行時不顯示 ?設(shè)置通用對話框控件的 “ 屬性頁 ” 使用通用對話框控件 (CommonDialog) 創(chuàng)建 ! 使用“工程 /部件 /控件”命令添加對話框控件 ! DialogTitle FileName InitDir Filter Flags DefaultExt MaxFileSize FilterIndex CancelError 計算機應(yīng)用基礎(chǔ)——總述 杭 上 專 職 VB程序設(shè)計——菜單程序設(shè)計 ?在代碼中使用以下方法打開對話框 ? ShowOpen：顯示 “ 打開文件 ” 對話框 √ ? ShowSave：顯示 “ 文件存儲 ” 對話框 ? ShowColor：顯示 “ 顏色 ” 對話框 √ ? ShowFont：顯示 “ 字體 ” 對話框 √ ? ShowPrinter：顯示 “ 打印 ” 對話框 ? ShowHelp：顯示 “ 幫助 ” 對話框 示例： 計算機應(yīng)用基礎(chǔ)——總述 杭 上 專 職 VB程序設(shè)計——菜單程序設(shè)計 【 例 5】 使用打開文件對話框，在運行時打開一幅圖像 Image1 CommonDialog1 Command1 計算機應(yīng)用基礎(chǔ)——總述 杭 上 專 職 VB程序設(shè)計——菜單程序設(shè)計 “打開 /另存為”對話框的屬性頁設(shè)置如下： All files|*.*|Bmp Files|*.bmp|Icon Files|*.ico 指文件名 計算機應(yīng)用基礎(chǔ)——總述 杭 上 專 職 VB程序設(shè)計——菜單程序設(shè)計 “裝入圖像”按鈕代碼設(shè)計如下： Private Sub Command1_Click() On Error GoTo ErrHandler ′出錯時轉(zhuǎn)到 ErrorHandler處執(zhí)行 ′將通用對話框顯示為打開 ′文件對話框 =LoadPicture() Exit Sub ErrHandler: Exit Sub End Sub 計算