取代 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 錯誤代碼：連結