classDataASorDB

app/DD_Clipboard_Searcher/frmMain.vb

@@ -10,6 +10,7 @@ Public Class frmMain
     'Private WithEvents _Watcher As ClipboardWatcher = ClipboardWatcher.Singleton
     Private WithEvents _Watcher2 As ClassClipboardWatcher = ClassClipboardWatcher.Singleton
     Private _MatchForm As frmMatch = Nothing
+    Private _DataASorDB As ClassDataASorDB
     Public Sub New()
         ' Dieser Aufruf ist für den Designer erforderlich.
         InitializeComponent()
@@ -24,6 +25,7 @@ Public Class frmMain
             CultureInfo.DefaultThreadCurrentCulture = cultureInfo
             CultureInfo.DefaultThreadCurrentUICulture = cultureInfo
         End If
+        _DataASorDB = New ClassDataASorDB(modCurrent.LogConfig)
     End Sub
 
     Private Sub frmMain_Load(sender As Object, e As EventArgs) Handles Me.Load
@@ -43,7 +45,7 @@ Public Class frmMain
             End If
             NotifyIconMain.Visible = True
             ClassInit.Refresh_Profile_Links()
-            ClassInit.Refresh_Connections()
+            _DataASorDB.Refresh_Connections()
             Try
                 Hotkey.AddHotKey(Keys.T, ClassHotkey.ModfierKey.MOD_CONTROL, HOTKEY_TOGGLE_WATCHER)
                 Dim oKeyCode As Keys
@@ -80,7 +82,7 @@ Public Class frmMain
                     RibbonPageGroup1.Visible = False
                     RibbonControl1.Minimized = True
                 End If
-                lblVersion.Caption = String.Format(lblVersion.Caption, My.Application.Info.Version.ToString)
+                lblVersion.Caption = My.Application.Info.Version.ToString
                 lblUser.Caption = String.Format(lblUser.Caption, USER_USERNAME)
             Catch ex As Exception
                 Logger.Warn($"Unexpected Error in FormLoad2: {ex.Message}")
@@ -369,11 +371,12 @@ Public Class frmMain
     Private Sub RefreshUI()
         Dim oResultText = ClassInit.Refresh_Profile_Links()
         lblRefresh.Caption = ""
-        ClassInit.CheckModuleData()
+        _DataASorDB.CheckModuleData()
+        'ClassInit.CheckModuleData()
         labelStatus.Text = oResultText
         labelRefresh.Text = $"Aktualisiert: {Now.ToShortTimeString}"
         lblRefresh.Caption = $"Eingeloggte Benutzer: {USERCOUNT_LOGGED_IN}"
-        lblVersion.Caption = String.Format(lblVersion.Caption, My.Application.Info.Version.ToString)
+        lblVersion.Caption = My.Application.Info.Version.ToString
         lblUser.Caption = String.Format(lblUser.Caption, USER_USERNAME)
         labelHotkey.Text = String.Format(labelHotkey.Text, $"{HotkeyFunctionKey.ToUpper}+{HotkeySearchKey.ToUpper}")
     End Sub