エラー処理：エラー処理を無効にする On Error Goto 0

VB2008での、On Error Goto 0エラー処理の説明と使用例サンプルです。

On Error GoToステートメントを無効にするには、ラベル名又は、行番号の代わりに「0」を指定します。

■構文
On Error GoTo 0

■構成

sub プロシージャ( )
On Error GoTo　ラベル名
　処理コード

On Error GoTo 0
　処理コード

　exit sub

ラベル名:
　エラー処理コード
End Sub

function プロシージャ( )
On Error GoTo　ラベル名
　処理コード

On Error GoTo 0
　処理コード

　exit function

ラベル名:
　エラー処理コード
End Sub

■ エラーのテスト画面
「実行」ボタンをクリックするとエラーが発生します。
エラー発生ソフト

■ エラーが発生したデバッグ画面
「String "VB2008" から型 "Integer" への変換は無効です。」とエラー表示されています。
エラーダイアログ

■ 実行コード
'ビルドエラーにならないようにOFFにしておく
Option Strict Off

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim n1 As Integer
Dim s1 As String

'エラーハンドラ
On Error GoTo ErrExit
n1 = 100
s1 = "VB2008"

'エラーを無効にする
On Error GoTo 0
'ここでエラー発生
n1 = s1

Exit Sub
ErrExit:

'エラー内容を表示
MsgBox("エラーが発生しました。" & vbNewLine & Err.Description)

End Sub
End Class

Visual Basic 2008 Express Edition実践入門