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

Async SQLResult

Browse Source
This commit is contained in:
Jonathan Jenne
2019-07-19 12:30:35 +02:00
parent f7ff19afeb
commit 54a533e974
5 changed files with 100 additions and 68 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
app/DD_Clipboard_Searcher/frmConfig_Basic.vb
View File

@@ -208,7 +208,7 @@ Public Class frmConfig_Basic
Private Sub btnChangeHotkey_Click(sender As Object, e As EventArgs) Handles btnChangeHotkey.Click
Try
If cmbfunctionHit.SelectedIndex <> -1 Then
Hotkey.RemoveHotKey(354523017)
Hotkey.RemoveHotKey(ClassConstants.HOTKEY_TRIGGER_WATCHER)
'SaveConfigValue("HotkeyFunctionKey", cmbfunctionHit.Text)
'SaveConfigValue("HotkeySearchKey", txtHotkeySearchKey.Text)
@@ -221,9 +221,9 @@ Public Class frmConfig_Basic
Dim obj As Object = kc.ConvertFromString(txtHotkeySearchKey.Text.ToUpper)
keyCode = CType(obj, Keys)
If cmbfunctionHit.Text = "strg" Then
Hotkey.AddHotKey(keyCode, clsHotkey.MODKEY.MOD_CONTROL, 354523017)
Hotkey.AddHotKey(keyCode, clsHotkey.MODKEY.MOD_CONTROL, ClassConstants.HOTKEY_TRIGGER_WATCHER)
ElseIf cmbfunctionHit.Text = "SHIFT" Then
Hotkey.AddHotKey(keyCode, clsHotkey.MODKEY.MOD_SHIFT, 354523017)
Hotkey.AddHotKey(keyCode, clsHotkey.MODKEY.MOD_SHIFT, ClassConstants.HOTKEY_TRIGGER_WATCHER)
End If
lblChanges.Text = "Hotkey changed - " & Now.ToString & " - Restart required"
lblChanges.Visible = True