独自例外クラス VB Web

エラーは例外スロー

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

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

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

独自例外クラス

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

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

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

クラス追加

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

App_Codeフォルダー

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

  • 得意先コード例外クラス
  • 得意先名称例外クラス
  • 得意先郵便番号例外クラス
  • 得意先住所例外クラス
  • 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