ErrorMeldung

VERAG_PROG_ALLGEMEIN/cErrorHandler.vb

@@ -4,11 +4,14 @@ Public Class cErrorHandler
 
     Public Shared Sub ERR(message As String, stack As String, functionName As String, Optional OP As String = "", Optional title As String = "", Optional mailadess As String = "al@verag.ag", Optional recieverMailAdress As String = "", Optional zusatz As String = "", Optional errCode As String = Nothing)
         If OP = "" Then OP = VERAG_PROG_ALLGEMEIN.cAllgemein.ERR_OP_GLOBAL ' GLobal gesetzes Errorhandling! (Standart=SHOW)
+
         Select Case OP
             Case ERROR_OP.MAIL
                 sendERRORperMail(title & " | " & My.Application.Info.AssemblyName, message, stack, mailadess, zusatz, functionName)
             Case ERROR_OP.SHOW
-                'MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message)
+                Dim f As New frmErrorMeldung(If(functionName <> "", "Fehler in der Funktion '" & functionName & "'" & vbNewLine & vbNewLine, "") & message & vbNewLine & zusatz, stack, title)
+                f.ShowDialog()
+            Case ERROR_OP.SHOW_MSGBOX
                 MsgBox(If(functionName <> "", "Fehler in der Funktion '" & functionName & "'" & vbNewLine & vbNewLine, "") & message & vbNewLine & stack & vbNewLine & zusatz, MsgBoxStyle.OkOnly, If(title <> "", title, "Fehler"))
         End Select
 
@@ -70,6 +73,7 @@ End Class
 
 Public Class ERROR_OP
     Shared Property SHOW As String = "SHOW"
+    Shared Property SHOW_MSGBOX As String = "SHOW_MSGBOX"
     Shared Property MAIL As String = "MAIL"
     Shared Property TOFILE As String = "TOFILE"
     Shared Property LOG As String = "LOG" 'Nur fürs Protokoll, keine Fehlermeldung