71 lines
1.6 KiB
VB.net
71 lines
1.6 KiB
VB.net
Public Class Exceptions
|
|
''' <summary>
|
|
''' Abstract class
|
|
''' </summary>
|
|
Public MustInherit Class MultiToolException
|
|
Inherits ApplicationException
|
|
|
|
Public Sub New(message As String)
|
|
MyBase.New(message)
|
|
End Sub
|
|
End Class
|
|
|
|
''' -----------------------------------------------
|
|
|
|
Public Class DocumentLoaderException
|
|
Inherits MultiToolException
|
|
|
|
Public Sub New(message As String)
|
|
MyBase.New(message)
|
|
End Sub
|
|
End Class
|
|
|
|
Public Class DatabaseException
|
|
Inherits MultiToolException
|
|
|
|
Public Sub New(message As String)
|
|
MyBase.New(message)
|
|
End Sub
|
|
End Class
|
|
|
|
Public Class WebServiceException
|
|
Inherits MultiToolException
|
|
|
|
Public Sub New(message As String)
|
|
MyBase.New(message)
|
|
End Sub
|
|
End Class
|
|
|
|
Public Class MissingAttributeException
|
|
Inherits MultiToolException
|
|
|
|
Public Sub New(attributeName As String)
|
|
MyBase.New(attributeName)
|
|
End Sub
|
|
End Class
|
|
Public Class MultipleAccountsException
|
|
Inherits MultiToolException
|
|
|
|
Public Sub New(message As String)
|
|
MyBase.New(message)
|
|
End Sub
|
|
End Class
|
|
Public Class NoAccountException
|
|
Inherits MultiToolException
|
|
|
|
Public Sub New(message As String)
|
|
MyBase.New(message)
|
|
End Sub
|
|
End Class
|
|
|
|
Public Class LengthExceededException
|
|
Inherits MultiToolException
|
|
|
|
Public Sub New(attribute As String)
|
|
MyBase.New(attribute)
|
|
End Sub
|
|
End Class
|
|
|
|
|
|
End Class
|