独自例外クラス実装

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

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

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

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

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

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

End Class

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

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

End Class

'////////////////// 得意先名称例外クラス ///////////////////
Public Class TokuisakiMeishoException
    Inherits ApplicationExceptio

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

End Class

'/////////////// 得意先郵便番号例外クラス ////////////////
Public Class YuBangoException
    Inherits ApplicationExceptio

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

End Class

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

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

End Class