AppCustom/sltSync
8
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

11-08-23

Browse Source
This commit is contained in:
Jonathan Jenne 2023-08-11 13:29:38 +02:00
parent acad7b70d0
commit 24b79989e6
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
Connectors.Form/frmMain.vb
View File

@ -1,4 +1,5 @@
Imports System.ComponentModel Imports System.ComponentModel
Imports DevExpress.XtraEditors.ViewInfo
Imports DigitalData.Modules.Config Imports DigitalData.Modules.Config
Imports DigitalData.Modules.Database Imports DigitalData.Modules.Database
Imports DigitalData.Modules.Logging Imports DigitalData.Modules.Logging
@ -21,8 +22,6 @@ Partial Public Class frmMain
LogConfig.Debug = ConfigManager.Config.Debug LogConfig.Debug = ConfigManager.Config.Debug
Logger = LogConfig.GetLogger() Logger = LogConfig.GetLogger()
SyncTimer.Interval = ConfigManager.Config.TimerIntervalMin * 60 * 1_000
AddInfoEntry("Application started.") AddInfoEntry("Application started.")
AddInfoEntry("Version: {0}", Application.ProductVersion) AddInfoEntry("Version: {0}", Application.ProductVersion)
AddInfoEntry("Timer Interval: {0} min", ConfigManager.Config.TimerIntervalMin.ToString) AddInfoEntry("Timer Interval: {0} min", ConfigManager.Config.TimerIntervalMin.ToString)
@ -49,6 +48,7 @@ Partial Public Class frmMain
End If End If
If ConfigManager.Config.TimerIntervalMin > 0 Then If ConfigManager.Config.TimerIntervalMin > 0 Then
SyncTimer.Interval = ConfigManager.Config.TimerIntervalMin * 60 * 1_000
StartTimer() StartTimer()
End If End If
@ -121,6 +121,7 @@ Partial Public Class frmMain
Private Sub AddInfoEntry(pMessage As String, ParamArray pArgs As Object()) Private Sub AddInfoEntry(pMessage As String, ParamArray pArgs As Object())
Logger.Info(pMessage, pArgs) Logger.Info(pMessage, pArgs)
ListBoxControl1.Items.Add(Now & " " & String.Format(pMessage, pArgs)) ListBoxControl1.Items.Add(Now & " " & String.Format(pMessage, pArgs))
ListBoxControl1.MakeItemVisible(ListBoxControl1.Items.Count - 1)
End Sub End Sub
Private Sub AddWarnEntry(pMessage As String, ParamArray pArgs As Object()) Private Sub AddWarnEntry(pMessage As String, ParamArray pArgs As Object())