VB軟件開發中的錯誤捕獲及處理技術

----在VB軟件開發中，錯誤信息的捕獲及處理是非常重要的部分。有些錯誤在編譯時即可發現、排除。但還有一些錯誤是在軟件運行時由于用戶錯誤的輸入等方面的原因而產生的，這就需要軟件開發者在軟件設計和開發時注意處理這方面的錯誤。VB在捕獲及處理錯誤信息方面有兩個重要的函數。一個是ERROR，該函數捕獲錯誤信息。另一個是ERR,該函數捕獲、返回錯誤信息代碼。當捕獲到錯誤信息代碼后，軟件開發者就可以根據錯誤代碼來判斷、決定程序是退出運行（exitsub）、是繼續執行(resumenext)、還是進行錯其他處理(goto語句標號)。VB還有一個重要的語句ONERROR，該語句當VB程序運行產生錯誤時觸發。開發者可用該語句結合ERR和ERROR函數來該用戶提供錯誤信息、并決定程序下一步工作。也可作成有用戶獨自選擇下一步工作。筆者開發了一個捕獲、顯示錯誤信息的過程showerror()。發生錯誤時調用該過程即可，下面是過程源代碼及調用例子：


Sub showerror ()
Dim s As String
Dim crlf As String

crlf = Chr(13) + Chr(10)
s = "運行時發生下列錯誤:" + crlf 
注釋：add the error string
s = s + Error$ + crlf
注釋：add the error number
s = s + "錯誤碼為: " + CStr(Err)
Beep 注釋：beep and show the error
X= MsgBox (s，2)

End Sub

調用例子：
sub abc()
onerror goto 1’發生錯誤時轉到 1
.
.
程序體
.
.
exit sub
1
showerror
if err=… then
.
.
錯誤處理部分
.
.
endif
exit sub
end sub

原文轉自：http://www.anti-gravitydesign.com