【正文】 n Ermr Resume Next ’忽略發(fā)生錯(cuò)誤的命令行，執(zhí)行下一句命令 On Ermr GoTo語(yǔ)句標(biāo)號(hào) ’ 當(dāng)發(fā)生錯(cuò)誤時(shí)轉(zhuǎn)向執(zhí)行標(biāo)號(hào)所指定的命令行 對(duì)于捕獲到的錯(cuò)誤號(hào)，可用分支語(yǔ)句處理。 以下程序說(shuō)明當(dāng)在顏色對(duì)話框內(nèi)選取 “ 取消 ” 按鈕時(shí)， 32755號(hào)錯(cuò)誤。 On Error語(yǔ)句在捕獲到錯(cuò)誤后，轉(zhuǎn)向執(zhí)行標(biāo)號(hào) ErrorHandler所指定的命令行，在標(biāo)簽 Label1上顯示 “ 放棄操作 ” ，并忽略產(chǎn)生錯(cuò)誤的那一行命令與標(biāo)號(hào)之間的所有語(yǔ)句。 Private Sub Commandl Click（） On Error GoTo ErrorHaandler ‘ 錯(cuò)誤捕獲語(yǔ)句 =True ‘使選取 “ 取消 ” 按鈕時(shí) 能對(duì)出錯(cuò)誤做響應(yīng) =CommonDialogl． Color ‘設(shè)置顏色 Exit Sub ‘無(wú)錯(cuò)誤時(shí)正常退出本過(guò)程 常用的 On Ermr語(yǔ)句形式有： 計(jì)算機(jī)應(yīng)用基礎(chǔ)——總述 杭 上 專 職 VB程序設(shè)計(jì)——菜單程序設(shè)計(jì) 3． 在使用 Commonlnalog控件控制字體選擇時(shí)出現(xiàn)錯(cuò)誤 這是由于沒(méi)有設(shè)置 CommonDialog控件的 Flags屬性，或?qū)傩灾挡徽_。通常設(shè)置該值為 ＆ H103，表示屏幕字體、打印機(jī)字體兩者皆有之，并在字體對(duì)話框中出現(xiàn)刪除線、下劃線、 顏色等元素。 以下為錯(cuò)誤處理的語(yǔ)句 ErrorHandler： ’ 語(yǔ)句標(biāo)號(hào)，錯(cuò)誤處理語(yǔ)句開(kāi)始 If =32755 Then =“放棄操作” End Sub 計(jì)算機(jī)應(yīng)用基礎(chǔ)——總述 杭 上 專 職 VB程序設(shè)計(jì)——菜單程序設(shè)計(jì) ? VB中允許應(yīng)用程序有多個(gè)窗體，每個(gè)窗體有自己的代碼和不同的操作，從而實(shí)現(xiàn)復(fù)雜的功能。 一：多重窗體有關(guān)語(yǔ)句 1:Load 窗體名 :將窗體載入內(nèi)存，但并不顯示 2:UnLoad 窗體名 :將窗體從內(nèi)存中消除 3:窗體名 .Show [模式 ]:顯示窗體。 模式 =0(非模態(tài) )或 1(模態(tài) )，默認(rèn)模式為 0。 4:窗體名 .Hide:隱藏窗體 (并不從內(nèi)存中消除 ) 167。 4 多重窗體 計(jì)算機(jī)應(yīng)用基礎(chǔ)——總述 杭 上 專 職 VB程序設(shè)計(jì)——菜單程序設(shè)計(jì) 二、多重窗體設(shè)計(jì) ? 多重窗體設(shè)計(jì)與單重窗體設(shè)計(jì)一致，大致可分為三步： ?建立界面 ?編寫代碼 ?運(yùn)行程序 ? 指定啟動(dòng)窗體：在 “ 工程 /工程屬性 /通用 ” 中可以根據(jù)需要指定應(yīng)用程序的啟動(dòng)窗體。 計(jì)算機(jī)應(yīng)用基礎(chǔ)——總述 杭 上 專 職 VB程序設(shè)計(jì)——菜單程序設(shè)計(jì) 【 例 7】 多重窗體應(yīng)用程序 窗體 1的代碼 Private Sub Command1_Click() 39。Load Form2 = UCase() End Sub Private Sub Command2_Click() 39。Load Form3 = LCase() End Sub Private Sub Command3_Click() End End Sub 計(jì)算機(jī)應(yīng)用基礎(chǔ)——總述 杭 上 專 職 VB程序設(shè)計(jì)——菜單程序設(shè)計(jì) 窗體 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 計(jì)算機(jī)應(yīng)用基礎(chǔ)——總述 杭 上 專 職 VB程序設(shè)計(jì)——菜單程序設(shè)計(jì) 三、 VB工程結(jié)構(gòu) ? 工程文件 (.vbp) 列出了在創(chuàng)建該工程時(shí)所建立的所有文件的相關(guān)信息。 ? 窗體文件 (.frm, .frx) 包括有窗體、窗體上的對(duì)象及窗體上的事件響應(yīng)代碼。 ? 標(biāo)準(zhǔn)模塊文件 (.bas) 包含有可被任何窗體或?qū)ο笳{(diào)用的過(guò)程程序代碼 計(jì)算機(jī)應(yīng)用基礎(chǔ)——總述 杭 上 專 職 VB程序設(shè)計(jì)——菜單程序設(shè)計(jì) ? 標(biāo)準(zhǔn)模塊 VB中主要有三種模塊： ?標(biāo)準(zhǔn)模塊：由全局變量聲明、模塊層聲明及通用過(guò)程等組成，所以也叫全局模塊或總模塊。 ?窗體模塊：每個(gè)窗體都有一個(gè)對(duì)應(yīng)的窗體模塊，通常包括聲明、通用過(guò)程及事件過(guò)程三部分。 ?Sub Main過(guò)程：通常設(shè)置為啟動(dòng)對(duì)象，主要用于應(yīng)用程序的初始化工作；該過(guò)程必須建立在標(biāo)準(zhǔn)模塊中，一個(gè)程序中可以有多個(gè)標(biāo)準(zhǔn)模塊，但 最多只能 有一個(gè) Sub Main模塊。 計(jì)算機(jī)應(yīng)用基礎(chǔ)——總述 杭 上 專 職 VB程序設(shè)計(jì)——菜單程序設(shè)計(jì) 167。 5 綜合應(yīng)用 【 例 8】 設(shè)計(jì)一個(gè)計(jì)算學(xué)生平均分和總分的多窗體應(yīng)用程序。界面如下： 計(jì)算機(jī)應(yīng)用基礎(chǔ)——總述 杭 上 專 職 VB程序設(shè)計(jì)——菜單程序設(shè)計(jì) 計(jì)算機(jī)應(yīng)用基礎(chǔ)——總述 杭 上 專 職 VB程序設(shè)計(jì)——菜單程序設(shè)計(jì) ‘Form1主窗體 FrmMaint Private Sub cmdEnd_Click() End End Sub Private Sub cmdInput_Click() End Sub Private Sub cmdOutput_Click() End Sub 計(jì)算機(jī)應(yīng)用基礎(chǔ)——總述 杭 上 專 職 VB程序設(shè)計(jì)——菜單程序設(shè)計(jì) Form2:數(shù)據(jù)輸入窗體 FrmInput Private Sub cmdReturn_Click() sMath = Val(Text1) sChinese = Val(Text2) sChemistry = Val(Text3) sEnglish = Val(Text4) sPhysics = Val(Text5) End Sub 計(jì)算機(jī)應(yīng)用基礎(chǔ)——總述 杭 上 專 職 VB程序設(shè)計(jì)——菜單程序設(shè)計(jì) Form3：數(shù)據(jù)輸出窗體 FrmOutput Private Sub Command1_Click() End Sub Private Sub Form_Activate() stotal = sMath + sChinese + sChemistry + sEnglish + sPhysics txtAverage = stotal / 5 txtTotal = stotal End Sub Private Sub Form_Load() stotal = sMath + sChinese + sChemistry + sEnglish + sPhysics txtAverage = stotal / 5 txtTotal = stotal End Sub 計(jì)算機(jī)應(yīng)用基礎(chǔ)——總述 杭 上 專 職 VB程序設(shè)計(jì)——菜單程序設(shè)計(jì) 總結(jié)