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