From a539adfee33e1ab6e9d62737611431e1694f2a1f Mon Sep 17 00:00:00 2001 From: OlgunR Date: Wed, 27 Aug 2025 15:39:33 +0200 Subject: [PATCH] =?UTF-8?q?Logik=20verbessert=20f=C3=BCr=20Autostart=20von?= =?UTF-8?q?=20Dateiimport=20und=20Nachindexierung=20-=20frmDIHauptseite,?= =?UTF-8?q?=20frmNIHauptseite?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- ToolCollection/frmDIHauptseite.vb | 17 +++++++++-------- ToolCollection/frmNIHauptseite.vb | 16 +++++++--------- 2 files changed, 16 insertions(+), 17 deletions(-) diff --git a/ToolCollection/frmDIHauptseite.vb b/ToolCollection/frmDIHauptseite.vb index 478bbe9..7f6fc76 100644 --- a/ToolCollection/frmDIHauptseite.vb +++ b/ToolCollection/frmDIHauptseite.vb @@ -239,16 +239,17 @@ Public Class frmDIHauptseite Private Sub frmDIHauptseite_Shown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shown Formloaded = True Me.LoadProfilesInCombobox() - If My.Settings.DI_RUNNING = True Or AUTOSTART_FIM = True Then + + If AUTOSTART_FIM Then Me.rbAutomatisch.Checked = True Automatischer_Durchlauf(False) - _Logger.Info("Dateiimport wird gestartet.") - If My.Settings.DI_RUNNING Then - _Logger.Info("My.Settings.DI_RUNNING = True") - End If - If AUTOSTART_FIM Then - _Logger.Info("AUTOSTART_FIM = True") - End If + _Logger.Info("AUTOSTART_FIM = True - Dateiimport wird gestartet.") + ElseIf My.Settings.DI_RUNNING Then + Me.rbAutomatisch.Checked = True + Automatischer_Durchlauf(False) + _Logger.Info("My.Settings.DI_RUNNING = True - Dateiimport wird gestartet.") + Else + _Logger.Info("Dateiimport Hauptformular wurde geladen - Dateiimport wird NICHT gestartet.") End If End Sub #End Region diff --git a/ToolCollection/frmNIHauptseite.vb b/ToolCollection/frmNIHauptseite.vb index a34a8b4..02dba3b 100644 --- a/ToolCollection/frmNIHauptseite.vb +++ b/ToolCollection/frmNIHauptseite.vb @@ -113,18 +113,16 @@ Public Class frmNIHauptseite _MyLogger.Debug = False End If - If My.Settings.NI_RUNNING = True Or AUTOSTART_FIH = True Then + If AUTOSTART_FIH Then Start_NachindexierungThreads() - _Logger.Info("Nachindexierungslauf wird gestartet.") - If My.Settings.NI_RUNNING Then - _Logger.Info("My.Settings.NI_RUNNING = True") - End If - If AUTOSTART_FIH Then - _Logger.Info("AUTOSTART_FIH = True") - End If + _Logger.Info("AUTOSTART_FIH = True - Nachindexierung wird gestartet.") + ElseIf My.Settings.NI_RUNNING Then + Start_NachindexierungThreads() + _Logger.Info("My.Settings.NI_RUNNING = True - Nachindexierung wird gestartet.") Else - _Logger.Info("Nachindexierung Hauptformular wurde geladen - Nachindexierungslauf wird NICHT gestartet.") + _Logger.Info("Nachindexierung Hauptformular wurde geladen - Nachindexierungslauf wird NICHT gestartet.") End If + End Sub Private Sub frmNIHauptseite_Load(sender As Object, e As System.EventArgs) Handles Me.Load 'Try