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

MS2

Browse Source
This commit is contained in:
SchreiberM 2017-01-25 13:22:58 +01:00
parent a30112bc0e
commit 747ec9ce14
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
DD_Clipboard_Searcher/frmMain.vb
View File

@ -12,7 +12,6 @@ Public Class frmMain
If MONITORING_ACTIVE = False Then Exit Sub If MONITORING_ACTIVE = False Then Exit Sub
Dim Data As IDataObject = Clipboard.GetDataObject Dim Data As IDataObject = Clipboard.GetDataObject
Me.TextBox1.Clear()
Dim RelevantWindow = clsWINDOWSApi.IsRelevantWindow("jonathan") Dim RelevantWindow = clsWINDOWSApi.IsRelevantWindow("jonathan")
'With Me.TextBox1 'With Me.TextBox1
@ -95,7 +94,7 @@ Public Class frmMain
Private Sub frmMain_Load(sender As Object, e As EventArgs) Handles Me.Load Private Sub frmMain_Load(sender As Object, e As EventArgs) Handles Me.Load
ClassWindowLocation.LoadFormLocationSize(Me) ClassWindowLocation.LoadFormLocationSize(Me)
If clsDatabase.DB_Connected = True Then If clsDatabase.DB_DEFAULT_INITIALIZED = True Then
Me.NotifyIcon1.Visible = True Me.NotifyIcon1.Visible = True
Dim sql = String.Format("SELECT T.* FROM TBCBS_PROFILES T, TBCBS_USER_PROFILE T1 WHERE T.GUID = T1.PROFILE_ID AND T1.USER_ID = {0}", USER_GUID) Dim sql = String.Format("SELECT T.* FROM TBCBS_PROFILES T, TBCBS_USER_PROFILE T1 WHERE T.GUID = T1.PROFILE_ID AND T1.USER_ID = {0}", USER_GUID)
DT_USER_PROFILES = clsDatabase.Return_Datatable(sql) DT_USER_PROFILES = clsDatabase.Return_Datatable(sql)