21 lines
715 B
VB.net
21 lines
715 B
VB.net
Imports DigitalData.Modules.Logging
|
|
|
|
Public Class FormHelper
|
|
Private ReadOnly Logger As Logger
|
|
|
|
Public Sub New(pLogConfig As LogConfig)
|
|
Logger = pLogConfig.GetLogger()
|
|
End Sub
|
|
|
|
Public Sub ShowError(pException As Exception, pFunction As String, Optional pDetails As String = "")
|
|
Dim oMessage = String.Format(My.Resources.frmShared.In_der_Funktion___0___ist_folgender_Fehler_aufgetreten___1_, pFunction, vbNewLine & vbNewLine & pException.Message)
|
|
If pDetails <> String.Empty Then
|
|
oMessage &= $"{vbNewLine}{pDetails}"
|
|
End If
|
|
|
|
Logger.Error(pException)
|
|
MsgBox(oMessage, MsgBoxStyle.Critical, Application.ProductName)
|
|
End Sub
|
|
|
|
End Class
|