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

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

Browse Source
This commit is contained in:
OlgunR 2025-08-28 15:27:07 +02:00
parent a539adfee3
commit 6c9543b7af
3 changed files with 18 additions and 26 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
ToolCollection/frmDIHauptseite.vb
View File

@ -240,14 +240,16 @@ Public Class frmDIHauptseite
Formloaded = True Formloaded = True
Me.LoadProfilesInCombobox() Me.LoadProfilesInCombobox()
If AUTOSTART_FIM Then If AUTOSTART_FIM Or My.Settings.DI_RUNNING Then
Me.rbAutomatisch.Checked = True Me.rbAutomatisch.Checked = True
Automatischer_Durchlauf(False) Automatischer_Durchlauf(False)
_Logger.Info("AUTOSTART_FIM = True - Dateiimport wird gestartet.") If AUTOSTART_FIM Then
ElseIf My.Settings.DI_RUNNING Then _Logger.Info("AUTOSTART_FIM = True - Dateiimport wird gestartet.")
Me.rbAutomatisch.Checked = True AUTOSTART_FIM = False
Automatischer_Durchlauf(False) End If
_Logger.Info("My.Settings.DI_RUNNING = True - Dateiimport wird gestartet.") If My.Settings.DI_RUNNING Then
_Logger.Info("My.Settings.DI_RUNNING = True - Dateiimport wird gestartet.")
End If
Else Else
_Logger.Info("Dateiimport Hauptformular wurde geladen - Dateiimport wird NICHT gestartet.") _Logger.Info("Dateiimport Hauptformular wurde geladen - Dateiimport wird NICHT gestartet.")
End If End If

13
ToolCollection/frmNIHauptseite.vb
View File

@ -113,12 +113,15 @@ Public Class frmNIHauptseite
_MyLogger.Debug = False _MyLogger.Debug = False
End If End If
If AUTOSTART_FIH Then If AUTOSTART_FIH Or My.Settings.NI_RUNNING Then
Start_NachindexierungThreads() Start_NachindexierungThreads()
_Logger.Info("AUTOSTART_FIH = True - Nachindexierung wird gestartet.") If AUTOSTART_FIH Then
ElseIf My.Settings.NI_RUNNING Then _Logger.Info("AUTOSTART_FIH = True - Nachindexierung wird gestartet.")
Start_NachindexierungThreads() AUTOSTART_FIH = False
_Logger.Info("My.Settings.NI_RUNNING = True - Nachindexierung wird gestartet.") End If
If My.Settings.NI_RUNNING Then
_Logger.Info("My.Settings.NI_RUNNING = True - Nachindexierung wird gestartet.")
End If
Else Else
_Logger.Info("Nachindexierung Hauptformular wurde geladen - Nachindexierungslauf wird NICHT gestartet.") _Logger.Info("Nachindexierung Hauptformular wurde geladen - Nachindexierungslauf wird NICHT gestartet.")
End If End If

17
ToolCollection/frmStart.vb
View File

@ -133,19 +133,6 @@ Public Class frmStart
_Instance = Me _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 For Each arg As String In My.Application.CommandLineArgs
Select Case arg.ToLower() Select Case arg.ToLower()
Case "/startfim" 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 Private Sub FMStart_Shown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shown
TimerNIRestart.Start() TimerNIRestart.Start()
If My.Settings.DI_RUNNING = True Then If My.Settings.DI_RUNNING Or AUTOSTART_FIM Then
Open_DI_Main() Open_DI_Main()
End If End If
If NIDurchlaufRunning = True Then If NIDurchlaufRunning Or AUTOSTART_FIH Then
Open_NI_Main() Open_NI_Main()
End If End If
End Sub End Sub