vb程序調(diào)試與錯(cuò)誤處理初步(編輯修改稿)
2025-06-16 23:52 本頁(yè)面
【文章內(nèi)容簡(jiǎn)介】 盤(pán)當(dāng)前目錄下的 “ ”文件拷貝到 “ D”盤(pán)，如果在 “ FileCopy ”“, ”d:\“”語(yǔ)句再出現(xiàn)錯(cuò)誤，那么干脆什么都不做自動(dòng)退出此過(guò)程。 3. On Error Goto 0 此語(yǔ)句用來(lái)關(guān)閉錯(cuò)誤捕獲功能。當(dāng)用戶確定已經(jīng)沒(méi)有錯(cuò)誤產(chǎn)生或者錯(cuò)誤已經(jīng)得到處理，就可以關(guān)閉錯(cuò)誤捕獲功能。要注意，錯(cuò)誤捕獲功能一旦被激活，將保持到過(guò)程結(jié)束，如果我們要在過(guò)程結(jié)束之前就關(guān)閉此功能，應(yīng)使用 “ On Error Goto 0”語(yǔ)句。 編制錯(cuò)誤處理程序 在捕獲到運(yùn)行時(shí)錯(cuò)誤后 ， 接下來(lái)就是要執(zhí)行錯(cuò)誤處理程序 。 在錯(cuò)誤處理程序中 ， 我們要針對(duì)錯(cuò)誤的類型 ， 向用戶提供解決的方法 ， 然后根據(jù)用戶的選擇 ， 進(jìn)行相應(yīng)的處理 。 在 Visual Basic中 ， 每當(dāng)產(chǎn)生錯(cuò)誤的時(shí)候 ， 都會(huì)將當(dāng)前錯(cuò)誤的編號(hào)和描述存儲(chǔ)在 Err對(duì)象中 。 因此 ， 我們可以通過(guò)這個(gè)對(duì)象來(lái)判斷當(dāng)前產(chǎn)生的是什么錯(cuò)誤 。 Err對(duì)象是一個(gè)具有全局范圍的固有對(duì)象 ， 用戶不必在程序中重新定義它 。 Err對(duì)象最常用的屬性是 Number屬性和 Description屬性 。Number屬性存儲(chǔ)當(dāng)前錯(cuò)誤的編號(hào) ， Description屬性存儲(chǔ)當(dāng)前錯(cuò)誤的描述 。 編制錯(cuò)誤處理程序 錯(cuò)誤碼 錯(cuò)誤信息 錯(cuò)誤碼 錯(cuò)誤信息 5 無(wú)效的過(guò)程調(diào)用或參數(shù) 18 出現(xiàn)用戶中斷 6 溢出 35 過(guò)程或者函數(shù)未定義 7 內(nèi)存溢出 52 錯(cuò)誤的文件名 9 數(shù)組下標(biāo)越界 53 找不到指定的文件 10 數(shù)組長(zhǎng)度固定或者臨時(shí)被鎖定 55 文件已經(jīng)被打開(kāi) 11 除數(shù)為 0 61 磁盤(pán)已滿 13 類型不匹配 68 設(shè)備沒(méi)有準(zhǔn)備好 Visual Basic中的常見(jiàn)錯(cuò)誤碼及其描述如下表所示 。 編制錯(cuò)誤處理程序 Number屬性的出現(xiàn)為錯(cuò)誤的幾種處理提供了很好的方法 。 根據(jù)用戶不同的選擇 ， 返回的位置有所不同 ， 如果用戶解決了問(wèn)題 ， 并選擇重試 ， 就應(yīng)該返回到產(chǎn)生錯(cuò)誤的語(yǔ)句重新執(zhí)行 ，如果用戶選擇取消操作 ， 就應(yīng)該跳過(guò)產(chǎn)生錯(cuò)誤的語(yǔ)句 ， 返回到它的下一行語(yǔ)句繼續(xù)執(zhí)行 。 從錯(cuò)誤處理程序中返回時(shí)，我們使用 Resume語(yǔ)句。根據(jù)不同的返回位置， Resume語(yǔ)句可分為 3種： ? Resume 0： 返回到產(chǎn)生錯(cuò)誤的語(yǔ)句重新執(zhí)行。 “ 0”可以省略。 ? Resume Next： 跳過(guò)產(chǎn)生錯(cuò)誤的語(yǔ)句，返回到它的下一行語(yǔ)句繼續(xù)執(zhí)行。 ? Resume 行號(hào)： 返回到行號(hào)指定的位置繼續(xù)執(zhí)行。 編制錯(cuò)誤處理程序 下面我們來(lái)看一個(gè)例子： Private Sub Form_Load() Dim r As VbMsgBoxResult On Error GoTo eh ChDrive A FileCopy , d:\ Exit Sub eh: Select Case Case 71 r = MsgBox( 請(qǐng)插入軟盤(pán) !, vbRetryCancel + vbCritical, 缺少軟盤(pán) !) If r = vbRetry Then Resume Else Resume Next End If Case 53 r = MsgBox( 找不到文件 , 請(qǐng)將文件恢復(fù)后重試 ., vbRetryCancel + vbCritical, 缺少文件 !) If r = vbRetry Then Resume End Select E
教學(xué)課件相關(guān)推薦
鄂ICP備17016276號(hào)-1