Flag zur MsgBox bei fehlerhaften DIProfilen - frmDIHauptseite

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)