送られてきたVB.netサンプルコード
Public Function hoge() As Integer
On Error GoTo Err_Function
' 処理
If 途中で抜ける条件 Then
GoTo Exit_Function
End If
If 何かエラー Then
GoTo Err_Function
End If
hoge = S_OK
Exit_Function:
' 終了処理
Exit Function
Err_Function:
' エラー処理
hoge = S_ERR
Goto Exit_Function
End Function※ S_OK とか S_ERR ってのは「正常/異常を表す定数」です。0 と -1 です。それ以外の値は返りません
こ れ は ひ ど い
とりあえず、自分ならこうすると思う。
' 構造化例外を使うので、エラー処理用返り値は不要
Public Sub hoge()
Try
If 途中で抜ける条件 Then
Exit Sub
End If
If 何かエラー Then
Throw New System.Exception("エラーメッセージ")
End If
Catch ex As System.Exception
' エラー処理
Throw ex ' エラー伝播
Finally
' 終了処理
End Try
End Sub
コメントする