独自例外クラス VB Web

エラーは例外スロー

入力エラーやデータベースアクセスエラーがあった時は、例外クラスを作成して、独自の例外をスローします。この例外をFormクラスでキャッチして、エラーメッセージを表示します。

独自例外クラスは、ApplicationExceptionを継承します。コンストラクタ以外のメンバーはありません。

コンストラクタは、エラーメッセージを引数に指定します。エラーメッセージは、画面のラベルに表示します。

独自例外クラス

HanbaiKanriSiteプロジェクトを開き、ソリューションエクスプロラーの[HanbaiKanriSite]を右クリックして、[追加(D)] → [新しい項目の追加(W)]を選択します。

新しい項目追加画面が開くので、

1. [新しい項目の追加]からクラスを選択
2. 名前を ClsException.vb に変更
3. [追加(A)]ボタンをクリック

次のダイアログが表示されるので、[はい(Y)]をクリックすると、プロジェクトに追加されます。

作成する独自例外クラスは次のとおりです。

• 得意先コード例外クラス
• 得意先名称例外クラス
• 得意先郵便番号例外クラス
• 得意先住所例外クラス
• DBIO独自例外クラス（データベースアクセスエラー発生時スロー）

Imports Microsoft.VisualBasic

'///////////////// 得意先コード例外クラス //////////////////
Public Class TokuisakiCodeException
    Inherits ApplicationException

    Public Sub New(ByVal message As String)
        MyBase.New(message)
    End Sub

End Class

'////////////////// 得意先名例外クラス ///////////////////
Public Class TokuisakiMeiException
    Inherits ApplicationException

    Public Sub New(ByVal message As String)
        MyBase.New(message)
    End Sub

End Class

'////////////////// 郵便番号例外クラス ///////////////////
Public Class YubinBangoException
    Inherits ApplicationException

    Public Sub New(ByVal message As String)
        MyBase.New(message)
    End Sub

End Class

'////////////////// 得意先住所例外クラス ///////////////////
Public Class TokuisakiJushoException
    Inherits ApplicationException

    Public Sub New(ByVal message As String)
        MyBase.New(message)
    End Sub

End Class

'////////////////// DBIO独自例外クラス /////////////////////
Public Class DBIOException
    Inherits ApplicationException

    Public Sub New(ByVal message As String)
        MyBase.New(message)
    End Sub

End Class