2013年4月12日 星期五

取代 VB 檢查錯誤方式 Err.

你在寫 VB 時,當錯誤被檢查出來時程式會直接幫你把錯誤指出來並停止程式執行












但如果你程式已經寫好,並以單獨執行檔來執行
當錯誤被檢測出來就會出現以下視窗,使用者可以選擇「結束」或「繼續」



但如果你不希望使用者選擇結束,並以自己的方式來解決程式錯誤的話可以用下列程式碼

  ~程式碼 VB~  
On Error GoTo labelname

'要檢查程式錯誤的地方

labelname:
        Select Case Err.Number
              Case 0
              Case Else
                     End
        End Select


    ~VB 說明~   

一、只有「On Error GoTo labelname」和「labelname:」之間的程式碼會被檢查錯誤並以自定義的方式解決錯誤。

二、「Case」的值是要打錯誤的代碼。

三、
Err.Number」回傳的值為錯誤代碼。
「Err.Description」回傳為錯誤的內容。


    ~VB 範例~   
Private Sub Button1_Click( ByVal sender As System.Object , ByVal e As System.EventArgs ) Handles Button1.Click

On Error GoTo labelname


Dim a, b, c As Integer
a = b + c


labelname:
        Select Case Err.Number
            Case 0
            Case 6
                 MsgBox( "溢出" , 16 + 0, "VB Warehouse" )
            Case Else
                End
        End Select

  End Sub


       ~附件~      

所有 Err.Number 錯誤代碼:連結