AppStd/ToolCollection
8
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Flag zur MsgBox bei fehlerhaften DIProfilen - frmDIHauptseite

Browse Source
This commit is contained in:
OlgunR 2025-12-01 10:30:53 +01:00
parent 3bb034439a
commit 0c71f75a0c
1 changed files with 11 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
ToolCollection/frmDIHauptseite.vb
View File

@ -61,6 +61,7 @@ Public Class frmDIHauptseite
Private manProfile As String Private manProfile As String
Private FehlerProfileListe As New List(Of String) Private FehlerProfileListe As New List(Of String)
Private FehlerMsgBoxVisible As Boolean = False
Private Alles_OK As Boolean = True Private Alles_OK As Boolean = True
@ -892,7 +893,7 @@ Public Class frmDIHauptseite
#End Region #End Region
#Region "*** BackgroundWorker wurde beendet ***" #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 Try
Dim result As String = "" Dim result As String = ""
@ -904,7 +905,11 @@ Public Class frmDIHauptseite
Me.progressImport.Value = 100 Me.progressImport.Value = 100
' Fehlermeldung für fehlerhafte Profile anzeigen ' 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() Dim fehlerMessage As New System.Text.StringBuilder()
fehlerMessage.AppendLine("ACHTUNG: Fehler in folgenden Profilen:") fehlerMessage.AppendLine("ACHTUNG: Fehler in folgenden Profilen:")
fehlerMessage.AppendLine() fehlerMessage.AppendLine()
@ -917,8 +922,12 @@ Public Class frmDIHauptseite
fehlerMessage.AppendLine("Bitte kontrollieren Sie die hinterlegten Quell- und Zielpfade,") fehlerMessage.AppendLine("Bitte kontrollieren Sie die hinterlegten Quell- und Zielpfade,")
fehlerMessage.AppendLine("sowie die Zugriffsberechtigungen!") fehlerMessage.AppendLine("sowie die Zugriffsberechtigungen!")
' MessageBox anzeigen (blockiert bis Benutzer OK klickt)
MsgBox(fehlerMessage.ToString(), MsgBoxStyle.Exclamation, "Fehlerhafte Profile erkannt") MsgBox(fehlerMessage.ToString(), MsgBoxStyle.Exclamation, "Fehlerhafte Profile erkannt")
' Flag zurücksetzen NACHDEM die MessageBox geschlossen wurde
FehlerMsgBoxVisible = False
' Fehler auch im Log vermerken ' Fehler auch im Log vermerken
ClassLoggerDI.Add("======================================================================", False) ClassLoggerDI.Add("======================================================================", False)
ClassLoggerDI.Add(" FEHLERHAFTE PROFILE: " & FehlerProfileListe.Count, True) ClassLoggerDI.Add(" FEHLERHAFTE PROFILE: " & FehlerProfileListe.Count, True)