MultiTool/MultiTool.Form/FormHelpers.vb
2021-10-29 10:37:04 +02:00

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