資源描述：
《visual basic的調試和錯誤處理》由會員上傳分享，免費在線閱讀，更多相關內容在教育資源-天天文庫。
1、VisualBasic的調試和錯誤處理 作者：未知來源：MSDN熱閱讀4338人次,更新于2005-11-20【字體：小大】無論你怎樣認真細致地編寫代碼，錯誤總會（可能會）發(fā)生。理論上講，VisualBasic過程根本不需要錯誤處理代碼。然而不幸的是，有時會出現(xiàn)錯誤刪除文件、磁盤驅動器空間滿或網(wǎng)絡驅動器意外斷開等情況，這就存在導致代碼中發(fā)生運行時錯誤的可能性。為處理這些錯誤，需要在你編寫的過程中添加錯誤處理代碼。有時，錯誤還可能在代碼內部發(fā)生；這種類型的錯誤通常被稱作bug（錯誤）。小的錯誤會帶來失敗或不便。更嚴重的錯誤會造成應用程序對命令響應的中斷，可能需要用戶重新啟動應用
2、程序并造成未保存的所有工作被丟失。對應用程序中的錯誤進行定位和更正的過程被稱作調試。VisualBasic提供一些幫助分析應用程序運行的工具。這些調試工具對于錯誤源的定位尤其有用，同時你還可使用這些工具試著對你編寫的程序進行修改或者學習其他應用程序的工作方式。本章對VisualBasic中調試工具的使用進行了說明，解釋了運行時錯誤（在代碼正在運行時發(fā)生的錯誤，它是在試圖進行非法操作時產(chǎn)生的）的處理方法。注：本章中的信息適用于MicrosoftExcel97、Word97和PowerPoint97中的VisualBasic編輯器。有關MicrosoftAccess97中調試Vi
3、sualBasic代碼和處理錯誤的信息，請參閱icrosoftAccess97和MicrosoftOffice97開發(fā)者版中的“建立Microsoft數(shù)Access97應用程序”。另外，“建立MicrosoftAccess97應用程序”的聯(lián)機版本可從MicrosoftAccess97和MicrosoftOffice97專業(yè)版CD-ROM的ValuePack目錄下找到。如何處理錯誤理論上講，VisualBasic過程根本不需要錯誤處理。事實表明，硬件問題或用戶的意外操作會導致運行時錯誤，從而停止代碼的運行，并且用戶通常無法恢復應用程序的運行。其他錯誤不會中斷代碼的運行，但會導致
4、代碼不按預想運行。例如，下面程序中，若文件存在則返回真，若文件不存在則返回假，但程序中不包括錯誤處理代碼。FunctionFileExists(filename)AsBooleanFileExists=(Dir(filename)<>"")EndFunctionDir函數(shù)返回第一個與指定文件名（有或沒有通配符、驅動器名或路徑）匹配的文件；如果未找到匹配文件，返回長度為零的字符串。這個代碼包含Dir調用可能出現(xiàn)的任何結果。然而，如果變量指定的驅動器號是非法的驅動器，會出現(xiàn)錯誤“驅動器無效”。如果指定的驅動器是軟盤驅動器，該函數(shù)僅在軟盤驅動器中有盤和軟驅門關上的情況下運行正常，否
5、則VisualBasic會出現(xiàn)“磁盤未準備好”的錯誤提示，并且停止代碼的運行。例如，下面示例可解決諸如驅動器無效或軟盤驅動器中無盤之類的驅動器問題。FunctionFileExists(filename)AsBooleanDimMsgAsString'打開錯誤陷井，這樣錯誤處理程序可對檢測到的任何錯誤作出響應。OnErrorGoToCheckErrorFileExists=(Dir(filename)<>"")'如果沒有錯誤發(fā)生，不執(zhí)行錯誤處理程序。ExitFunctionCheckError:'如果發(fā)生錯誤，轉移至此。'定義代表VisualBasic內部錯誤代碼的常量。Co
6、nstmnErrDiskNotReady=71,mnErrDeviceUnavailable=68'vbExclamation,vbOK,vbCancel,vbCritical,andvbOKCancel是'VBA類型庫中定義的常量。If(Err.Number=MnErrDiskNotReady)ThenMsg="在軟驅中插入軟盤并關上軟驅門。"'顯示一個帶有感嘆號符和OK、Cancel按鈕的消息框。IfMsgBox(Msg,vbExclamation&vbOKCancel)=vbOKThenResumeElseResumeNextEndIfElseIfErr.Number=
7、MnErrDeviceUnavailableThenMsg="該驅動器或路徑中不存在："&filenameMsgBoxMsg,vbExclamationResumeNextElseMsg="意外錯誤#"&Str(Err.Number)&"發(fā)生："_&Err.Description'顯示帶有Stop（停止）符圖標和OK按鈕的消息框。MsgBoxMsg,vbCriticalStopEndIfResumeEndFunction在本示例代碼中，Err對象的Number屬性包含與發(fā)生的運行時錯誤相關的數(shù)字；Des
