From 0c71f75a0cda291d698132b1e73346c45f5d99f6 Mon Sep 17 00:00:00 2001 From: OlgunR Date: Mon, 1 Dec 2025 10:30:53 +0100 Subject: [PATCH] Flag zur MsgBox bei fehlerhaften DIProfilen - frmDIHauptseite --- ToolCollection/frmDIHauptseite.vb | 13 +++++++++++-- 1 file changed, 11 insertions(+), 2 deletions(-) diff --git a/ToolCollection/frmDIHauptseite.vb b/ToolCollection/frmDIHauptseite.vb index 20e2859..ab380df 100644 --- a/ToolCollection/frmDIHauptseite.vb +++ b/ToolCollection/frmDIHauptseite.vb @@ -61,6 +61,7 @@ Public Class frmDIHauptseite Private manProfile As String Private FehlerProfileListe As New List(Of String) + Private FehlerMsgBoxVisible As Boolean = False Private Alles_OK As Boolean = True @@ -892,7 +893,7 @@ Public Class frmDIHauptseite #End Region #Region "*** BackgroundWorker wurde beendet ***" - Private Sub threadDateiimport_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) 'Handles threadDateiimport.RunWorkerCompleted + Private Sub threadDateiimport_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Try Dim result As String = "" @@ -904,7 +905,11 @@ Public Class frmDIHauptseite Me.progressImport.Value = 100 ' Fehlermeldung für fehlerhafte Profile anzeigen - If FehlerProfileListe.Count > 0 Then + ' NUR wenn keine MessageBox bereits angezeigt wird + If FehlerProfileListe.Count > 0 AndAlso Not FehlerMsgBoxVisible Then + ' Flag setzen BEVOR die MessageBox angezeigt wird + FehlerMsgBoxVisible = True + Dim fehlerMessage As New System.Text.StringBuilder() fehlerMessage.AppendLine("ACHTUNG: Fehler in folgenden Profilen:") fehlerMessage.AppendLine() @@ -917,8 +922,12 @@ Public Class frmDIHauptseite fehlerMessage.AppendLine("Bitte kontrollieren Sie die hinterlegten Quell- und Zielpfade,") fehlerMessage.AppendLine("sowie die Zugriffsberechtigungen!") + ' MessageBox anzeigen (blockiert bis Benutzer OK klickt) MsgBox(fehlerMessage.ToString(), MsgBoxStyle.Exclamation, "Fehlerhafte Profile erkannt") + ' Flag zurücksetzen NACHDEM die MessageBox geschlossen wurde + FehlerMsgBoxVisible = False + ' Fehler auch im Log vermerken ClassLoggerDI.Add("======================================================================", False) ClassLoggerDI.Add(" FEHLERHAFTE PROFILE: " & FehlerProfileListe.Count, True)