第11章程序調(diào)試和出錯(cuò)處理-預(yù)覽頁
【正文】 編寫的應(yīng)用程序?qū)﹀e(cuò)誤進(jìn)行響應(yīng) 。 第 11章 程序調(diào)試和出錯(cuò)處理 (2) 編寫錯(cuò)誤處理程序 。 On Error Resume Next：當(dāng)發(fā)生錯(cuò)誤時(shí) ， 忽略錯(cuò)誤行 ， 繼續(xù)執(zhí)行下一語句； On Error GoTo語句標(biāo)號(hào)：當(dāng)發(fā)生錯(cuò)誤時(shí) ， 使程序轉(zhuǎn)跳到語句標(biāo)號(hào)所指示的程序塊； On Error GoTo 0：表示當(dāng)發(fā)生錯(cuò)誤時(shí)，不使用錯(cuò)誤處理程序塊；這里的 GoTo 0并不指第 0行，即使程序過程中有第 0行。 Resume語句有如下三種形式 。 為避免這些錯(cuò)誤中止應(yīng)用程序的執(zhí)行 ， 可在程序塊中設(shè)置錯(cuò)誤陷阱 ， 當(dāng)發(fā)生錯(cuò)誤時(shí) ， 錯(cuò)誤處理程序塊根據(jù)捕捉到的出錯(cuò)號(hào)處理出錯(cuò) 。 正常退出本程序 第 11章 程序調(diào)試和出錯(cuò)處理 ErrorHandler: 39。 常數(shù) vbRetryCancel在 MsgBox窗給出 Retry與 Cancel按鈕 39。 71號(hào)錯(cuò)誤為 A盤未準(zhǔn)備好 錯(cuò)誤 Msg = A盤未準(zhǔn)備好 Style = vbRetryCancel + vbCritical + vbDefaultButton2 Title = 提示 Response = MsgBox(Msg, Style, Title) If Response = vbCancel Then Exit Sub 第 11章 程序調(diào)試和出錯(cuò)處理 End If Case Else 39。當(dāng)發(fā)生不可預(yù)知的錯(cuò)誤時(shí)，終止本程序的執(zhí)行，否則，在 MsgBox窗內(nèi)給出出錯(cuò)提示。 Sub ResumeStatementDemo( ) On Error GoTo ErrHandler 39。 處理方法：關(guān)閉文件 Case Else … Endselect Resume End Sub 第 11章 程序調(diào)試和出錯(cuò)處理 【 例 113】 下列程序采用忽略錯(cuò)誤的方法處理錯(cuò)誤 ， 錯(cuò)誤類型與上例中的錯(cuò)誤相同 。 關(guān)閉錯(cuò)誤陷阱 On Error Resume Next 39。 清除出錯(cuò)號(hào) End If Exit Sub ErrorHandler: Select Case Case 55 Close 1 Case Else End Select Resume End Sub 第 11章 程序調(diào)試和出錯(cuò)處理 本過程中的第一行語句設(shè)置錯(cuò)誤陷阱 ， 其目的是當(dāng)發(fā)生錯(cuò)誤時(shí)轉(zhuǎn)跳到由標(biāo)號(hào) Error Handler指明的錯(cuò)誤處理程序塊 。 由于第四行語句 On Error Goto 0的作用 ， 關(guān)閉了錯(cuò)誤陷阱 ，不使用錯(cuò)誤處理程序塊而執(zhí)行第五行語句 On Error Resume Next，它使 Kill testfile命令無效 。 (3) 若不想讓函數(shù)或過程中出現(xiàn)的錯(cuò)誤交由上層程序處理，可用 Stop方法結(jié)束程序。 子過程 Devide測試運(yùn)算符／的結(jié)果 Function Divide(number As Integer, denom As Integer) As Variant Dim Msg As String 第 11章 程序調(diào)試和出錯(cuò)處理 39。 顯示意想不到的出錯(cuò)信息 Msg = Unanticipated error amp。 不管什么情況， Resume Next Resume Next 39。 事實(shí)上 ， 在一個(gè)應(yīng)用程序中 ， 能出現(xiàn)的錯(cuò)誤類型是有限的 ， 我們只要按其性質(zhì)將其歸類 ， 用一個(gè)或幾個(gè)公用的程序處理這些錯(cuò)誤就可以了 。 在模塊文件開頭聲明常量 ， 用于代表各種與文件或磁盤操作有關(guān)的錯(cuò)誤號(hào) 。 文件類型不正確 Public Const errFileAlreadyOpen＝ 55 39。 超越文件尾端 Public Const errBadFileName＝ 64 39。 驅(qū)動(dòng)器未準(zhǔn)備好 Public Const errPathDoesNotExist ＝ 76 39。 1—選擇 Ignore按鈕 ， 表示上層程序忽略當(dāng)前錯(cuò)誤 ， 將用Resume Next 方法處理運(yùn)行錯(cuò)誤； 2—選擇 Cancel或 About按鈕 ， 表示出現(xiàn)了不可恢復(fù)的錯(cuò)誤 ，上層程序?qū)⒂?Error Err方法處理運(yùn)行錯(cuò)誤； 3—0 表示出現(xiàn)其它不可預(yù)知的錯(cuò)誤，自動(dòng)跳出FileErrors( ), 上層程序也將用 Error Err方法處理運(yùn)行錯(cuò)誤。 保存用戶對(duì) MsgBox( )的選擇 Dim Msg As String 39。 Error 68 Msg = 磁盤未格式化或 I/O出錯(cuò) MsgType = vbExclamation + 5 39。 52 Msg = 文件名非法 Case errPathDoesNotExist 39。 Error 62 Msg = 有一個(gè)不正確的文件結(jié)束標(biāo)志 Msg = Msg + 或企圖越界讀文件 Case Else 39。 擇，給出錯(cuò)函數(shù)設(shè)置一個(gè)返回值 Response = MsgBox(Msg, MsgType, 出錯(cuò)處理 ) 第 11章 程序調(diào)試和出錯(cuò)處理 Select Case Response Case 1, 4 39。 函數(shù)返回 1， 用 Resume Next方法 Case 2, 3 39。 函數(shù)FileOpener的功能是模擬文件打開對(duì)話框 ， 形參 NewFileName指定文件名 ， 文件打開不成功 ， FileOpener返回 0。 錯(cuò)誤選擇 Dim Msg As String On Error GoTo OpenerError 39。 常量 errBadFileName = 64 End If 39。 用 Open語句打開指定的文件 Open NewFileName For Output As NewFileNum FileOpener = NewFileNum Exit Function OpenerError: 第 11章 程序調(diào)試和出錯(cuò)處理 39。 第 11章 程序調(diào)試和出錯(cuò)處理 【 例 116】 本程序塊使用錯(cuò)誤代碼輸出出錯(cuò)提示 。例如，用一個(gè)定義在外部應(yīng)用程序中的對(duì)象編寫模塊并希望應(yīng)用程序的其余部分把該對(duì)象返回的錯(cuò)誤作為實(shí)際的 Visual Basic錯(cuò)誤來處理。例如，使用代碼“ Number＝ 71”模擬“磁盤未準(zhǔn)備”
教學(xué)課件相關(guān)推薦
鄂ICP備17016276號(hào)-1