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

implement search by control bounds

Browse Source
This commit is contained in:
Jonathan Jenne
2019-09-19 16:20:09 +02:00
parent 88bae3ee92
commit a765fe4cce
13 changed files with 1673 additions and 416 deletions
Download Patch File Download Diff File Expand all files Collapse all files

29
app/DD_Clipboard_Searcher/ctrlApplicationAssignment.vb
View File

@@ -186,20 +186,29 @@ Public Class ctrlApplicationAssignment
If oResult = DialogResult.OK Then
Try
Dim oControlTitle As String = GetSQLFriendlyString(oForm.ControlName)
Dim oProcessName As String = oForm.ProcessName
Dim oAutomationId As String = oForm.AutomationId
Dim oFrameworkId As String = oForm.FrameworkId
Dim oDefaultRegex As String = "\.+"
If oControlTitle <> "" Or oAutomationId <> "" Then
Dim insert = String.Format("INSERT INTO TBCW_PROF_REL_CONTROL (WINDOW_ID, DESCRIPTION, AUTOMATION_ID, FRAMEWORK_ID, REGEX, ADDED_WHO) VALUES ({0}, '{1}', '{2}', '{3}', '^{4}$','{5}')",
Current_WindowId, oControlTitle, oAutomationId, oFrameworkId, oDefaultRegex, Environment.UserName)
If Database.ExecuteNonQuery(insert) = False Then
Return False
End If
Dim oSql = $"INSERT INTO TBCW_PROF_REL_CONTROL
(
WINDOW_ID, DESCRIPTION, REGEX, ADDED_WHO
,[TOPLEFT_TOP],[TOPLEFT_LEFT],[TOPLEFT_RIGHT],[TOPLEFT_BOTTOM]
,[TOPRIGHT_TOP],[TOPRIGHT_LEFT],[TOPRIGHT_RIGHT],[TOPRIGHT_BOTTOM]
,[BOTTOMLEFT_TOP],[BOTTOMLEFT_LEFT],[BOTTOMLEFT_RIGHT],[BOTTOMLEFT_BOTTOM]
,[BOTTOMRIGHT_TOP],[BOTTOMRIGHT_LEFT],[BOTTOMRIGHT_RIGHT],[BOTTOMRIGHT_BOTTOM]
) VALUES (
{Current_WindowId}, 'Control', '^{oDefaultRegex}$', '{Environment.UserName}',
{oForm.TopLeft.Top}, {oForm.TopLeft.Left}, {oForm.TopLeft.Right}, {oForm.TopLeft.Bottom},
{oForm.TopRight.Top}, {oForm.TopRight.Left}, {oForm.TopRight.Right}, {oForm.TopRight.Bottom},
{oForm.TopLeft.Top}, {oForm.TopLeft.Left}, {oForm.TopLeft.Right}, {oForm.TopLeft.Bottom},
{oForm.TopLeft.Top}, {oForm.TopLeft.Left}, {oForm.TopLeft.Right}, {oForm.TopLeft.Bottom}
)"
If Database.ExecuteNonQuery(oSql) = False Then
Return False
End If
Control_Load()
Return True
Catch ex As Exception