Autostart über Parameter, Last State wird bei Starten der Anwendung beibehalten - frmDIHauptseite, frmNIHauptseite, frmStart

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

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

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