Find control Name

This commit is contained in:
Jonathan Jenne
2019-08-07 16:05:53 +02:00
parent 43d3ba5ef2
commit aa84e977b9
22 changed files with 2556 additions and 179 deletions

View File

@@ -41,6 +41,7 @@ Public Class frmStart
End If
NotifyIconMain.Visible = True
ClassInit.Refresh_Profile_Links()
ClassInit.Refresh_Connections()
Hotkey.AddHotKey(Keys.T, ClassHotkey.ModfierKey.MOD_CONTROL, HOTKEY_TOGGLE_WATCHER)
Dim oKeyCode As Keys
Dim oConverter As New KeysConverter
@@ -66,7 +67,7 @@ Public Class frmStart
End If
Try
Dim sql = "DELETE FROM TBDD_USER_MODULE_LOG_IN WHERE USER_ID = " & USER_ID & " AND UPPER(MODULE) = UPPER('Clipboard-Watcher')"
Database.ExecuteNonQuery(sql, True)
Database.ExecuteNonQuery(sql)
ClassWindowLocation.SaveFormLocationSize(Me, "")
My.Settings.Save()
Catch ex As Exception