17 lines
474 B
VB.net
17 lines
474 B
VB.net
Imports DigitalData.Modules.Logging
|
|
|
|
Public Class Message
|
|
Private Logger As Logger
|
|
|
|
Public Sub New(pLogConfig As LogConfig)
|
|
Logger = pLogConfig.GetLogger()
|
|
End Sub
|
|
|
|
Public Sub [Error](pException As Exception, pMessage As String)
|
|
Logger.Error(pException)
|
|
Dim oMessage As String = $"{pMessage}{vbNewLine}{vbNewLine}{pException.Message}"
|
|
MsgBox(oMessage, MsgBoxStyle.Critical, "Schwerwiegender Fehler")
|
|
End Sub
|
|
|
|
End Class
|