From 6c9543b7af7a1e4884af53d68d422cd56fb9117d Mon Sep 17 00:00:00 2001 From: OlgunR Date: Thu, 28 Aug 2025 15:27:07 +0200 Subject: [PATCH] =?UTF-8?q?Autostart=20=C3=BCber=20Parameter,=20Last=20Sta?= =?UTF-8?q?te=20wird=20bei=20Starten=20der=20Anwendung=20beibehalten=20-?= =?UTF-8?q?=20frmDIHauptseite,=20frmNIHauptseite,=20frmStart?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- ToolCollection/frmDIHauptseite.vb | 14 ++++++++------ ToolCollection/frmNIHauptseite.vb | 13 ++++++++----- ToolCollection/frmStart.vb | 17 ++--------------- 3 files changed, 18 insertions(+), 26 deletions(-) diff --git a/ToolCollection/frmDIHauptseite.vb b/ToolCollection/frmDIHauptseite.vb index 7f6fc76..11154e1 100644 --- a/ToolCollection/frmDIHauptseite.vb +++ b/ToolCollection/frmDIHauptseite.vb @@ -240,14 +240,16 @@ Public Class frmDIHauptseite Formloaded = True Me.LoadProfilesInCombobox() - If AUTOSTART_FIM Then + If AUTOSTART_FIM Or My.Settings.DI_RUNNING Then Me.rbAutomatisch.Checked = True Automatischer_Durchlauf(False) - _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.") + If AUTOSTART_FIM Then + _Logger.Info("AUTOSTART_FIM = True - Dateiimport wird gestartet.") + AUTOSTART_FIM = False + End If + If My.Settings.DI_RUNNING Then + _Logger.Info("My.Settings.DI_RUNNING = True - Dateiimport wird gestartet.") + End If Else _Logger.Info("Dateiimport Hauptformular wurde geladen - Dateiimport wird NICHT gestartet.") End If diff --git a/ToolCollection/frmNIHauptseite.vb b/ToolCollection/frmNIHauptseite.vb index 02dba3b..51b8fa9 100644 --- a/ToolCollection/frmNIHauptseite.vb +++ b/ToolCollection/frmNIHauptseite.vb @@ -113,12 +113,15 @@ Public Class frmNIHauptseite _MyLogger.Debug = False End If - If AUTOSTART_FIH Then + If AUTOSTART_FIH Or My.Settings.NI_RUNNING Then Start_NachindexierungThreads() - _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.") + If AUTOSTART_FIH Then + _Logger.Info("AUTOSTART_FIH = True - Nachindexierung wird gestartet.") + AUTOSTART_FIH = False + End If + If My.Settings.NI_RUNNING Then + _Logger.Info("My.Settings.NI_RUNNING = True - Nachindexierung wird gestartet.") + End If Else _Logger.Info("Nachindexierung Hauptformular wurde geladen - Nachindexierungslauf wird NICHT gestartet.") End If diff --git a/ToolCollection/frmStart.vb b/ToolCollection/frmStart.vb index 21b2b49..60eafc4 100644 --- a/ToolCollection/frmStart.vb +++ b/ToolCollection/frmStart.vb @@ -133,19 +133,6 @@ Public Class frmStart _Instance = Me - 'For Each arg As String In My.Application.CommandLineArgs - ' Select Case arg.ToLower() - ' Case "/startfim" - ' _Logger.Info("Autostart: Module FIM wird gestartet.") - ' ' Modul FIM starten oder Flag setzen - ' frmNIHauptseite.Start_NachindexierungThreads() - ' Case "/startfih" - ' _Logger.Info("Autostart: Module FIH wird gestartet.") - ' ' Modul FIH starten oder Flag setzen - ' frmDIHauptseite.Automatischer_Durchlauf(True) - ' End Select - 'Next - For Each arg As String In My.Application.CommandLineArgs Select Case arg.ToLower() Case "/startfim" @@ -396,10 +383,10 @@ Public Class frmStart Private Sub FMStart_Shown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shown TimerNIRestart.Start() - If My.Settings.DI_RUNNING = True Then + If My.Settings.DI_RUNNING Or AUTOSTART_FIM Then Open_DI_Main() End If - If NIDurchlaufRunning = True Then + If NIDurchlaufRunning Or AUTOSTART_FIH Then Open_NI_Main() End If End Sub