MS Override

This commit is contained in:
2023-02-24 15:06:18 +01:00
parent 020d8e27c5
commit 5cb9aed5aa
10 changed files with 88 additions and 61 deletions

View File

@@ -39,8 +39,8 @@ Public Class frmConfig_Basic
End If
'SaveConfigValue("MyConnectionString", con)
ConfigManager.Config.ConnectionString = con
ConfigManager.Save()
CONFIG.Config.ConnectionString = con
CONFIG.Save()
Dim csb As New SqlClient.SqlConnectionStringBuilder
csb.ConnectionString = MyConnectionString
@@ -148,8 +148,8 @@ Public Class frmConfig_Basic
LogErrorsOnly = chkLogErrorsOnly.Checked
LogConfig.Debug = Not LogErrorsOnly
ConfigManager.Config.LogErrorsOnly = LogErrorsOnly
ConfigManager.Save()
CONFIG.Config.LogErrorsOnly = LogErrorsOnly
CONFIG.Save()
End Sub
Private Sub TabControl1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles TabControl1.SelectedIndexChanged
@@ -181,9 +181,9 @@ Public Class frmConfig_Basic
If cmbfunctionHit.SelectedIndex <> -1 Then
Hotkey.RemoveHotKey(ClassConstants.HOTKEY_TRIGGER_WATCHER)
ConfigManager.Config.HotkeyFunctionKey = cmbfunctionHit.Text
ConfigManager.Config.HotkeySearchKey = txtHotkeySearchKey.Text
ConfigManager.Save()
CONFIG.Config.HotkeyFunctionKey = cmbfunctionHit.Text
CONFIG.Config.HotkeySearchKey = txtHotkeySearchKey.Text
CONFIG.Save()
Dim keyCode As Keys
Dim kc As New KeysConverter