diff --git a/app/.vs/DD_Clipboard_Watcher/DesignTimeBuild/.dtbcache b/app/.vs/DD_Clipboard_Watcher/DesignTimeBuild/.dtbcache index 91d9f17..fde4aa0 100644 Binary files a/app/.vs/DD_Clipboard_Watcher/DesignTimeBuild/.dtbcache and b/app/.vs/DD_Clipboard_Watcher/DesignTimeBuild/.dtbcache differ diff --git a/app/DD_Clipboard_Searcher/ClassProfileFilter.vb b/app/DD_Clipboard_Searcher/ClassProfileFilter.vb index fba328e..a1cdf09 100644 --- a/app/DD_Clipboard_Searcher/ClassProfileFilter.vb +++ b/app/DD_Clipboard_Searcher/ClassProfileFilter.vb @@ -2,6 +2,7 @@ Imports DD_Clipboard_Watcher.ClassWindowAPI Imports DigitalData.Modules.Language.Utils Imports System.Windows.Automation +Imports DigitalData.Modules.Windows Public Class ClassProfileFilter Private _ProfileTable As DataTable @@ -49,12 +50,23 @@ Public Class ClassProfileFilter Class ControlData Public Guid As Integer - Public WINDOW_ID As Integer + Public WindowId As Integer Public Description As String Public Regex As String Public AutomationId As String Public ControlName As String Public IsMatched As Boolean = False + Public TopLeft As ControlBounds + Public TopRight As ControlBounds + Public BottomLeft As ControlBounds + Public BottomRight As ControlBounds + End Class + + Class ControlBounds + Public Top As Integer + Public Bottom As Integer + Public Left As Integer + Public Right As Integer End Class ' TODO: Fill this Class!!!! :D @@ -251,6 +263,55 @@ Public Class ClassProfileFilter Return oProfiles End Function + Public Function FilterProfilesByFocusedControlLocation(Profiles As List(Of ProfileData), ClipboardContents As String, WindowHandle As IntPtr) As List(Of ProfileData) + Dim oFilteredProfiles As New List(Of ProfileData) + Dim oWindow As New Window(LogConfig) + + For Each oProfile In Profiles + If oProfile.IsMatched = False Then Continue For + + If oProfile.Controls.Count = 0 Then + oFilteredProfiles.Add(oProfile) + Continue For + End If + + Dim oControls As New List(Of ControlData) + + For Each oControl In oProfile.Controls + Dim oControlBounds = oWindow.GetFocusedControlLocation(WindowHandle) + + For Each oItem As KeyValuePair(Of String, Window.RectangleInfo) In oControlBounds + Select Case oItem.Key + Case "TOPLEFT" + If oControl.TopLeft.Top = oItem.Value.Top And oControl.TopLeft.Left = oItem.Value.Left Then + oFilteredProfiles.Add(oProfile) + End If + Case "TOPRIGHT" + If oControl.TopRight.Top = oItem.Value.Top And oControl.TopLeft.Right = oItem.Value.Right Then + oFilteredProfiles.Add(oProfile) + End If + Case "BOTTOMLEFT" + If oControl.BottomLeft.Bottom = oItem.Value.Bottom And oControl.TopLeft.Left = oItem.Value.Left Then + oFilteredProfiles.Add(oProfile) + End If + Case "BOTTOMRIGHT" + If oControl.BottomRight.Bottom = oItem.Value.Bottom And oControl.TopLeft.Right = oItem.Value.Right Then + oFilteredProfiles.Add(oProfile) + End If + End Select + Next + Next + + If oControls.Count > 0 Then + oProfile.Controls = oControls + oFilteredProfiles.Add(oProfile) + End If + Next + + + Return oFilteredProfiles + End Function + Public Function FilterWindowsByWindowClipboardRegex(Profiles As List(Of ProfileData), ClipboardContents As String) As List(Of ProfileData) Dim oProfiles As New List(Of ProfileData) @@ -338,7 +399,7 @@ Public Class ClassProfileFilter Dim oControlsForMatchedWindow As New List(Of ControlData) For Each oControl In oProfileMatchedSofar.Controls - If oControl.WINDOW_ID = oProfileMatchedSofar.MatchedWindowID Then + If oControl.WindowId = oProfileMatchedSofar.MatchedWindowID Then oControlsForMatchedWindow.Add(oControl) End If Next @@ -363,8 +424,8 @@ Public Class ClassProfileFilter For Each oControlDefinition In oControlsForMatchedWindow Try - If oControlDefinition.WINDOW_ID <> oProfileMatchedSofar.MatchedWindowID Then - Logger.Debug("Current WindowId {0} does not match Control WindowId {1}. Skipping.", oProfileMatchedSofar.MatchedWindowID, oControlDefinition.WINDOW_ID) + If oControlDefinition.WindowId <> oProfileMatchedSofar.MatchedWindowID Then + Logger.Debug("Current WindowId {0} does not match Control WindowId {1}. Skipping.", oProfileMatchedSofar.MatchedWindowID, oControlDefinition.WindowId) Continue For End If @@ -511,10 +572,33 @@ Public Class ClassProfileFilter If oRow.Item("PROFILE_ID") = ProfileId Then oControlList.Add(New ControlData() With { .Guid = oRow.Item("GUID"), - .Description = NotNull(oRow.Item("DESCRIPTION"), String.Empty), - .Regex = NotNull(oRow.Item("REGEX"), String.Empty), - .AutomationId = NotNull(oRow.Item("AUTOMATION_ID"), String.Empty), - .WINDOW_ID = oRow.Item("WINDOW_ID") + .Description = NotNull(oRow.Item("DESCRIPTION"), String.Empty), + .Regex = NotNull(oRow.Item("REGEX"), String.Empty), + .WindowId = oRow.Item("WINDOW_ID"), + .TopLeft = New ControlBounds() With { + .Left = oRow.Item("TOPLEFT_LEFT"), + .Right = oRow.Item("TOPLEFT_RIGHT"), + .Top = oRow.Item("TOPLEFT_TOP"), + .Bottom = oRow.Item("TOPLEFT_BOTTOM") + }, + .TopRight = New ControlBounds() With { + .Left = oRow.Item("TOPRIGHT_LEFT"), + .Right = oRow.Item("TOPRIGHT_RIGHT"), + .Top = oRow.Item("TOPRIGHT_TOP"), + .Bottom = oRow.Item("TOPRIGHT_BOTTOM") + }, + .BottomLeft = New ControlBounds() With { + .Left = oRow.Item("BOTTOMLEFT_LEFT"), + .Right = oRow.Item("BOTTOMLEFT_RIGHT"), + .Top = oRow.Item("BOTTOMLEFT_TOP"), + .Bottom = oRow.Item("BOTTOMLEFT_BOTTOM") + }, + .BottomRight = New ControlBounds() With { + .Left = oRow.Item("BOTTOMRIGHT_LEFT"), + .Right = oRow.Item("BOTTOMRIGHT_RIGHT"), + .Top = oRow.Item("BOTTOMRIGHT_TOP"), + .Bottom = oRow.Item("BOTTOMRIGHT_BOTTOM") + } }) End If Next @@ -526,10 +610,10 @@ Public Class ClassProfileFilter For Each oRow As DataRow In ProcessDatatable.Rows oProcessList.Add(New ProcessData() With { - .Guid = oRow.Item("GUID"), - .PROFILE_ID = oRow.Item("PROFILE_ID"), - .ProcessName = NotNull(oRow.Item("PROC_NAME"), String.Empty) - }) + .Guid = oRow.Item("GUID"), + .PROFILE_ID = oRow.Item("PROFILE_ID"), + .ProcessName = NotNull(oRow.Item("PROC_NAME"), String.Empty) + }) Next diff --git a/app/DD_Clipboard_Searcher/ClassProfileMatch.vb b/app/DD_Clipboard_Searcher/ClassProfileMatch.vb new file mode 100644 index 0000000..1e5d241 --- /dev/null +++ b/app/DD_Clipboard_Searcher/ClassProfileMatch.vb @@ -0,0 +1,43 @@ +Imports DD_Clipboard_Watcher.ClassProfileFilter + +Public Class ClassProfileMatch + Private TreeView As TreeView + Private ImageList As ImageList + + Public Sub New(TreeView As TreeView, ImageList As ImageList) + Me.TreeView = TreeView + Me.ImageList = ImageList + + Me.TreeView.Nodes.Clear() + Me.TreeView.ImageList = ImageList + Me.TreeView.SelectedImageIndex = 0 + End Sub + + Public Function AddProfileNode(Profile As ProfileData) As TreeNode + Dim oNode As New TreeNode With { + .ImageIndex = 0, + .Tag = $"{Profile.Name}-ROOT", + .Text = $"Profile: {Profile.Name}" + } + + TreeView.Nodes.Add(oNode) + + Return oNode + End Function + + Public Function AddProfileRegexNode(ParentNode As TreeNode, Profile As ProfileData, Regex As String, IsMatch As Boolean) As TreeNode + Dim oNode As New TreeNode With { + .ImageIndex = 1, + .Tag = $"{Profile.Name}-REGEX", + .Text = $"MATCH on Global Clipboard Regex: {Profile.Regex}" + } + + ParentNode.Nodes.Add(oNode) + + Return oNode + End Function + + Public Function FindNodeByTag(TagName As String) As TreeNode + + End Function +End Class diff --git a/app/DD_Clipboard_Searcher/DD_Clipboard_Watcher.vbproj b/app/DD_Clipboard_Searcher/DD_Clipboard_Watcher.vbproj index c710fee..b54cfcc 100644 --- a/app/DD_Clipboard_Searcher/DD_Clipboard_Watcher.vbproj +++ b/app/DD_Clipboard_Searcher/DD_Clipboard_Watcher.vbproj @@ -87,6 +87,9 @@ ..\..\..\DDMonorepo\Modules.Config\bin\Debug\DigitalData.Modules.Logging.dll + + ..\..\..\DDMonorepo\Windows\bin\Debug\DigitalData.Modules.Windows.dll + D:\ProgramFiles\GdPicture.NET 14\Redist\GdPicture.NET\GdPicture.NET.14.dll @@ -133,6 +136,7 @@ + diff --git a/app/DD_Clipboard_Searcher/MyDataset.Designer.vb b/app/DD_Clipboard_Searcher/MyDataset.Designer.vb index 1112d8f..79cae55 100644 --- a/app/DD_Clipboard_Searcher/MyDataset.Designer.vb +++ b/app/DD_Clipboard_Searcher/MyDataset.Designer.vb @@ -4380,9 +4380,37 @@ Partial Public Class MyDataset Private columnCHANGED_WHEN As Global.System.Data.DataColumn - Private columnAUTOMATION_ID As Global.System.Data.DataColumn + Private columnTOPLEFT_TOP As Global.System.Data.DataColumn - Private columnFRAMEWORK_ID As Global.System.Data.DataColumn + Private columnTOPLEFT_LEFT As Global.System.Data.DataColumn + + Private columnTOPLEFT_RIGHT As Global.System.Data.DataColumn + + Private columnTOPLEFT_BOTTOM As Global.System.Data.DataColumn + + Private columnTOPRIGHT_TOP As Global.System.Data.DataColumn + + Private columnTOPRIGHT_LEFT As Global.System.Data.DataColumn + + Private columnTOPRIGHT_RIGHT As Global.System.Data.DataColumn + + Private columnTOPRIGHT_BOTTOM As Global.System.Data.DataColumn + + Private columnBOTTOMLEFT_TOP As Global.System.Data.DataColumn + + Private columnBOTTOMLEFT_LEFT As Global.System.Data.DataColumn + + Private columnBOTTOMLEFT_RIGHT As Global.System.Data.DataColumn + + Private columnBOTTOMLEFT_BOTTOM As Global.System.Data.DataColumn + + Private columnBOTTOMRIGHT_TOP As Global.System.Data.DataColumn + + Private columnBOTTOMRIGHT_LEFT As Global.System.Data.DataColumn + + Private columnBOTTOMRIGHT_RIGHT As Global.System.Data.DataColumn + + Private columnBOTTOMRIGHT_BOTTOM As Global.System.Data.DataColumn _ @@ -4493,17 +4521,129 @@ Partial Public Class MyDataset _ - Public ReadOnly Property AUTOMATION_IDColumn() As Global.System.Data.DataColumn + Public ReadOnly Property TOPLEFT_TOPColumn() As Global.System.Data.DataColumn Get - Return Me.columnAUTOMATION_ID + Return Me.columnTOPLEFT_TOP End Get End Property _ - Public ReadOnly Property FRAMEWORK_IDColumn() As Global.System.Data.DataColumn + Public ReadOnly Property TOPLEFT_LEFTColumn() As Global.System.Data.DataColumn Get - Return Me.columnFRAMEWORK_ID + Return Me.columnTOPLEFT_LEFT + End Get + End Property + + _ + Public ReadOnly Property TOPLEFT_RIGHTColumn() As Global.System.Data.DataColumn + Get + Return Me.columnTOPLEFT_RIGHT + End Get + End Property + + _ + Public ReadOnly Property TOPLEFT_BOTTOMColumn() As Global.System.Data.DataColumn + Get + Return Me.columnTOPLEFT_BOTTOM + End Get + End Property + + _ + Public ReadOnly Property TOPRIGHT_TOPColumn() As Global.System.Data.DataColumn + Get + Return Me.columnTOPRIGHT_TOP + End Get + End Property + + _ + Public ReadOnly Property TOPRIGHT_LEFTColumn() As Global.System.Data.DataColumn + Get + Return Me.columnTOPRIGHT_LEFT + End Get + End Property + + _ + Public ReadOnly Property TOPRIGHT_RIGHTColumn() As Global.System.Data.DataColumn + Get + Return Me.columnTOPRIGHT_RIGHT + End Get + End Property + + _ + Public ReadOnly Property TOPRIGHT_BOTTOMColumn() As Global.System.Data.DataColumn + Get + Return Me.columnTOPRIGHT_BOTTOM + End Get + End Property + + _ + Public ReadOnly Property BOTTOMLEFT_TOPColumn() As Global.System.Data.DataColumn + Get + Return Me.columnBOTTOMLEFT_TOP + End Get + End Property + + _ + Public ReadOnly Property BOTTOMLEFT_LEFTColumn() As Global.System.Data.DataColumn + Get + Return Me.columnBOTTOMLEFT_LEFT + End Get + End Property + + _ + Public ReadOnly Property BOTTOMLEFT_RIGHTColumn() As Global.System.Data.DataColumn + Get + Return Me.columnBOTTOMLEFT_RIGHT + End Get + End Property + + _ + Public ReadOnly Property BOTTOMLEFT_BOTTOMColumn() As Global.System.Data.DataColumn + Get + Return Me.columnBOTTOMLEFT_BOTTOM + End Get + End Property + + _ + Public ReadOnly Property BOTTOMRIGHT_TOPColumn() As Global.System.Data.DataColumn + Get + Return Me.columnBOTTOMRIGHT_TOP + End Get + End Property + + _ + Public ReadOnly Property BOTTOMRIGHT_LEFTColumn() As Global.System.Data.DataColumn + Get + Return Me.columnBOTTOMRIGHT_LEFT + End Get + End Property + + _ + Public ReadOnly Property BOTTOMRIGHT_RIGHTColumn() As Global.System.Data.DataColumn + Get + Return Me.columnBOTTOMRIGHT_RIGHT + End Get + End Property + + _ + Public ReadOnly Property BOTTOMRIGHT_BOTTOMColumn() As Global.System.Data.DataColumn + Get + Return Me.columnBOTTOMRIGHT_BOTTOM End Get End Property @@ -4544,9 +4684,33 @@ Partial Public Class MyDataset _ - Public Overloads Function AddTBCW_PROF_REL_CONTROLRow(ByVal parentTBCW_PROF_REL_WINDOWRowByFK_WINDOW_ID As TBCW_PROF_REL_WINDOWRow, ByVal DESCRIPTION As String, ByVal REGEX As String, ByVal SEQUENCE As Byte, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date, ByVal AUTOMATION_ID As String, ByVal FRAMEWORK_ID As String) As TBCW_PROF_REL_CONTROLRow + Public Overloads Function AddTBCW_PROF_REL_CONTROLRow( _ + ByVal parentTBCW_PROF_REL_WINDOWRowByFK_WINDOW_ID As TBCW_PROF_REL_WINDOWRow, _ + ByVal DESCRIPTION As String, _ + ByVal REGEX As String, _ + ByVal SEQUENCE As Byte, _ + ByVal ADDED_WHO As String, _ + ByVal ADDED_WHEN As Date, _ + ByVal CHANGED_WHO As String, _ + ByVal CHANGED_WHEN As Date, _ + ByVal TOPLEFT_TOP As Integer, _ + ByVal TOPLEFT_LEFT As Integer, _ + ByVal TOPLEFT_RIGHT As Integer, _ + ByVal TOPLEFT_BOTTOM As Integer, _ + ByVal TOPRIGHT_TOP As Integer, _ + ByVal TOPRIGHT_LEFT As Integer, _ + ByVal TOPRIGHT_RIGHT As Integer, _ + ByVal TOPRIGHT_BOTTOM As Integer, _ + ByVal BOTTOMLEFT_TOP As Integer, _ + ByVal BOTTOMLEFT_LEFT As Integer, _ + ByVal BOTTOMLEFT_RIGHT As Integer, _ + ByVal BOTTOMLEFT_BOTTOM As Integer, _ + ByVal BOTTOMRIGHT_TOP As Integer, _ + ByVal BOTTOMRIGHT_LEFT As Integer, _ + ByVal BOTTOMRIGHT_RIGHT As Integer, _ + ByVal BOTTOMRIGHT_BOTTOM As Integer) As TBCW_PROF_REL_CONTROLRow Dim rowTBCW_PROF_REL_CONTROLRow As TBCW_PROF_REL_CONTROLRow = CType(Me.NewRow,TBCW_PROF_REL_CONTROLRow) - Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, DESCRIPTION, REGEX, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, AUTOMATION_ID, FRAMEWORK_ID} + Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, DESCRIPTION, REGEX, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, 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} If (Not (parentTBCW_PROF_REL_WINDOWRowByFK_WINDOW_ID) Is Nothing) Then columnValuesArray(1) = parentTBCW_PROF_REL_WINDOWRowByFK_WINDOW_ID(0) End If @@ -4587,8 +4751,22 @@ Partial Public Class MyDataset Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") - Me.columnAUTOMATION_ID = MyBase.Columns("AUTOMATION_ID") - Me.columnFRAMEWORK_ID = MyBase.Columns("FRAMEWORK_ID") + Me.columnTOPLEFT_TOP = MyBase.Columns("TOPLEFT_TOP") + Me.columnTOPLEFT_LEFT = MyBase.Columns("TOPLEFT_LEFT") + Me.columnTOPLEFT_RIGHT = MyBase.Columns("TOPLEFT_RIGHT") + Me.columnTOPLEFT_BOTTOM = MyBase.Columns("TOPLEFT_BOTTOM") + Me.columnTOPRIGHT_TOP = MyBase.Columns("TOPRIGHT_TOP") + Me.columnTOPRIGHT_LEFT = MyBase.Columns("TOPRIGHT_LEFT") + Me.columnTOPRIGHT_RIGHT = MyBase.Columns("TOPRIGHT_RIGHT") + Me.columnTOPRIGHT_BOTTOM = MyBase.Columns("TOPRIGHT_BOTTOM") + Me.columnBOTTOMLEFT_TOP = MyBase.Columns("BOTTOMLEFT_TOP") + Me.columnBOTTOMLEFT_LEFT = MyBase.Columns("BOTTOMLEFT_LEFT") + Me.columnBOTTOMLEFT_RIGHT = MyBase.Columns("BOTTOMLEFT_RIGHT") + Me.columnBOTTOMLEFT_BOTTOM = MyBase.Columns("BOTTOMLEFT_BOTTOM") + Me.columnBOTTOMRIGHT_TOP = MyBase.Columns("BOTTOMRIGHT_TOP") + Me.columnBOTTOMRIGHT_LEFT = MyBase.Columns("BOTTOMRIGHT_LEFT") + Me.columnBOTTOMRIGHT_RIGHT = MyBase.Columns("BOTTOMRIGHT_RIGHT") + Me.columnBOTTOMRIGHT_BOTTOM = MyBase.Columns("BOTTOMRIGHT_BOTTOM") End Sub _ - Public Property AUTOMATION_ID() As String + Public Property TOPLEFT_TOP() As Integer Get - Return CType(Me(Me.tableTBCW_PROF_REL_CONTROL.AUTOMATION_IDColumn),String) + Return CType(Me(Me.tableTBCW_PROF_REL_CONTROL.TOPLEFT_TOPColumn),Integer) End Get Set - Me(Me.tableTBCW_PROF_REL_CONTROL.AUTOMATION_IDColumn) = value + Me(Me.tableTBCW_PROF_REL_CONTROL.TOPLEFT_TOPColumn) = value End Set End Property _ - Public Property FRAMEWORK_ID() As String + Public Property TOPLEFT_LEFT() As Integer Get - Return CType(Me(Me.tableTBCW_PROF_REL_CONTROL.FRAMEWORK_IDColumn),String) + Return CType(Me(Me.tableTBCW_PROF_REL_CONTROL.TOPLEFT_LEFTColumn),Integer) End Get Set - Me(Me.tableTBCW_PROF_REL_CONTROL.FRAMEWORK_IDColumn) = value + Me(Me.tableTBCW_PROF_REL_CONTROL.TOPLEFT_LEFTColumn) = value + End Set + End Property + + _ + Public Property TOPLEFT_RIGHT() As Integer + Get + Return CType(Me(Me.tableTBCW_PROF_REL_CONTROL.TOPLEFT_RIGHTColumn),Integer) + End Get + Set + Me(Me.tableTBCW_PROF_REL_CONTROL.TOPLEFT_RIGHTColumn) = value + End Set + End Property + + _ + Public Property TOPLEFT_BOTTOM() As Integer + Get + Return CType(Me(Me.tableTBCW_PROF_REL_CONTROL.TOPLEFT_BOTTOMColumn),Integer) + End Get + Set + Me(Me.tableTBCW_PROF_REL_CONTROL.TOPLEFT_BOTTOMColumn) = value + End Set + End Property + + _ + Public Property TOPRIGHT_TOP() As Integer + Get + Return CType(Me(Me.tableTBCW_PROF_REL_CONTROL.TOPRIGHT_TOPColumn),Integer) + End Get + Set + Me(Me.tableTBCW_PROF_REL_CONTROL.TOPRIGHT_TOPColumn) = value + End Set + End Property + + _ + Public Property TOPRIGHT_LEFT() As Integer + Get + Return CType(Me(Me.tableTBCW_PROF_REL_CONTROL.TOPRIGHT_LEFTColumn),Integer) + End Get + Set + Me(Me.tableTBCW_PROF_REL_CONTROL.TOPRIGHT_LEFTColumn) = value + End Set + End Property + + _ + Public Property TOPRIGHT_RIGHT() As Integer + Get + Return CType(Me(Me.tableTBCW_PROF_REL_CONTROL.TOPRIGHT_RIGHTColumn),Integer) + End Get + Set + Me(Me.tableTBCW_PROF_REL_CONTROL.TOPRIGHT_RIGHTColumn) = value + End Set + End Property + + _ + Public Property TOPRIGHT_BOTTOM() As Integer + Get + Return CType(Me(Me.tableTBCW_PROF_REL_CONTROL.TOPRIGHT_BOTTOMColumn),Integer) + End Get + Set + Me(Me.tableTBCW_PROF_REL_CONTROL.TOPRIGHT_BOTTOMColumn) = value + End Set + End Property + + _ + Public Property BOTTOMLEFT_TOP() As Integer + Get + Return CType(Me(Me.tableTBCW_PROF_REL_CONTROL.BOTTOMLEFT_TOPColumn),Integer) + End Get + Set + Me(Me.tableTBCW_PROF_REL_CONTROL.BOTTOMLEFT_TOPColumn) = value + End Set + End Property + + _ + Public Property BOTTOMLEFT_LEFT() As Integer + Get + Return CType(Me(Me.tableTBCW_PROF_REL_CONTROL.BOTTOMLEFT_LEFTColumn),Integer) + End Get + Set + Me(Me.tableTBCW_PROF_REL_CONTROL.BOTTOMLEFT_LEFTColumn) = value + End Set + End Property + + _ + Public Property BOTTOMLEFT_RIGHT() As Integer + Get + Return CType(Me(Me.tableTBCW_PROF_REL_CONTROL.BOTTOMLEFT_RIGHTColumn),Integer) + End Get + Set + Me(Me.tableTBCW_PROF_REL_CONTROL.BOTTOMLEFT_RIGHTColumn) = value + End Set + End Property + + _ + Public Property BOTTOMLEFT_BOTTOM() As Integer + Get + Return CType(Me(Me.tableTBCW_PROF_REL_CONTROL.BOTTOMLEFT_BOTTOMColumn),Integer) + End Get + Set + Me(Me.tableTBCW_PROF_REL_CONTROL.BOTTOMLEFT_BOTTOMColumn) = value + End Set + End Property + + _ + Public Property BOTTOMRIGHT_TOP() As Integer + Get + Return CType(Me(Me.tableTBCW_PROF_REL_CONTROL.BOTTOMRIGHT_TOPColumn),Integer) + End Get + Set + Me(Me.tableTBCW_PROF_REL_CONTROL.BOTTOMRIGHT_TOPColumn) = value + End Set + End Property + + _ + Public Property BOTTOMRIGHT_LEFT() As Integer + Get + Return CType(Me(Me.tableTBCW_PROF_REL_CONTROL.BOTTOMRIGHT_LEFTColumn),Integer) + End Get + Set + Me(Me.tableTBCW_PROF_REL_CONTROL.BOTTOMRIGHT_LEFTColumn) = value + End Set + End Property + + _ + Public Property BOTTOMRIGHT_RIGHT() As Integer + Get + Return CType(Me(Me.tableTBCW_PROF_REL_CONTROL.BOTTOMRIGHT_RIGHTColumn),Integer) + End Get + Set + Me(Me.tableTBCW_PROF_REL_CONTROL.BOTTOMRIGHT_RIGHTColumn) = value + End Set + End Property + + _ + Public Property BOTTOMRIGHT_BOTTOM() As Integer + Get + Return CType(Me(Me.tableTBCW_PROF_REL_CONTROL.BOTTOMRIGHT_BOTTOMColumn),Integer) + End Get + Set + Me(Me.tableTBCW_PROF_REL_CONTROL.BOTTOMRIGHT_BOTTOMColumn) = value End Set End Property @@ -11862,47 +12234,204 @@ Namespace MyDatasetTableAdapters tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") - tableMapping.ColumnMappings.Add("AUTOMATION_ID", "AUTOMATION_ID") - tableMapping.ColumnMappings.Add("FRAMEWORK_ID", "FRAMEWORK_ID") + tableMapping.ColumnMappings.Add("TOPLEFT_TOP", "TOPLEFT_TOP") + tableMapping.ColumnMappings.Add("TOPLEFT_LEFT", "TOPLEFT_LEFT") + tableMapping.ColumnMappings.Add("TOPLEFT_RIGHT", "TOPLEFT_RIGHT") + tableMapping.ColumnMappings.Add("TOPLEFT_BOTTOM", "TOPLEFT_BOTTOM") + tableMapping.ColumnMappings.Add("TOPRIGHT_TOP", "TOPRIGHT_TOP") + tableMapping.ColumnMappings.Add("TOPRIGHT_LEFT", "TOPRIGHT_LEFT") + tableMapping.ColumnMappings.Add("TOPRIGHT_RIGHT", "TOPRIGHT_RIGHT") + tableMapping.ColumnMappings.Add("TOPRIGHT_BOTTOM", "TOPRIGHT_BOTTOM") + tableMapping.ColumnMappings.Add("BOTTOMLEFT_TOP", "BOTTOMLEFT_TOP") + tableMapping.ColumnMappings.Add("BOTTOMLEFT_LEFT", "BOTTOMLEFT_LEFT") + tableMapping.ColumnMappings.Add("BOTTOMLEFT_RIGHT", "BOTTOMLEFT_RIGHT") + tableMapping.ColumnMappings.Add("BOTTOMLEFT_BOTTOM", "BOTTOMLEFT_BOTTOM") + tableMapping.ColumnMappings.Add("BOTTOMRIGHT_TOP", "BOTTOMRIGHT_TOP") + tableMapping.ColumnMappings.Add("BOTTOMRIGHT_LEFT", "BOTTOMRIGHT_LEFT") + tableMapping.ColumnMappings.Add("BOTTOMRIGHT_RIGHT", "BOTTOMRIGHT_RIGHT") + tableMapping.ColumnMappings.Add("BOTTOMRIGHT_BOTTOM", "BOTTOMRIGHT_BOTTOM") Me._adapter.TableMappings.Add(tableMapping) Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.DeleteCommand.Connection = Me.Connection - Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBCW_PROF_REL_CONTROL"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" + Me._adapter.DeleteCommand.CommandText = "DELETE FROM [TBCW_PROF_REL_CONTROL] WHERE (([GUID] = @Original_GUID) AND ([WINDOW"& _ + "_ID] = @Original_WINDOW_ID) AND ([DESCRIPTION] = @Original_DESCRIPTION) AND ([RE"& _ + "GEX] = @Original_REGEX) AND ([SEQUENCE] = @Original_SEQUENCE) AND ([ADDED_WHO] ="& _ + " @Original_ADDED_WHO) AND ((@IsNull_ADDED_WHEN = 1 AND [ADDED_WHEN] IS NULL) OR "& _ + "([ADDED_WHEN] = @Original_ADDED_WHEN)) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGE"& _ + "D_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGE"& _ + "D_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WH"& _ + "EN)) AND ([TOPLEFT_TOP] = @Original_TOPLEFT_TOP) AND ([TOPLEFT_LEFT] = @Original"& _ + "_TOPLEFT_LEFT) AND ([TOPLEFT_RIGHT] = @Original_TOPLEFT_RIGHT) AND ([TOPLEFT_BOT"& _ + "TOM] = @Original_TOPLEFT_BOTTOM) AND ([TOPRIGHT_TOP] = @Original_TOPRIGHT_TOP) A"& _ + "ND ([TOPRIGHT_LEFT] = @Original_TOPRIGHT_LEFT) AND ([TOPRIGHT_RIGHT] = @Original"& _ + "_TOPRIGHT_RIGHT) AND ([TOPRIGHT_BOTTOM] = @Original_TOPRIGHT_BOTTOM) AND ([BOTTO"& _ + "MLEFT_TOP] = @Original_BOTTOMLEFT_TOP) AND ([BOTTOMLEFT_LEFT] = @Original_BOTTOM"& _ + "LEFT_LEFT) AND ([BOTTOMLEFT_RIGHT] = @Original_BOTTOMLEFT_RIGHT) AND ([BOTTOMLEF"& _ + "T_BOTTOM] = @Original_BOTTOMLEFT_BOTTOM) AND ([BOTTOMRIGHT_TOP] = @Original_BOTT"& _ + "OMRIGHT_TOP) AND ([BOTTOMRIGHT_LEFT] = @Original_BOTTOMRIGHT_LEFT) AND ([BOTTOMR"& _ + "IGHT_RIGHT] = @Original_BOTTOMRIGHT_RIGHT) AND ([BOTTOMRIGHT_BOTTOM] = @Original"& _ + "_BOTTOMRIGHT_BOTTOM))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_WINDOW_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WINDOW_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DESCRIPTION", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DESCRIPTION", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_REGEX", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "REGEX", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SEQUENCE", Global.System.Data.SqlDbType.TinyInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ADDED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TOPLEFT_TOP", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TOPLEFT_TOP", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TOPLEFT_LEFT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TOPLEFT_LEFT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TOPLEFT_RIGHT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TOPLEFT_RIGHT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TOPLEFT_BOTTOM", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TOPLEFT_BOTTOM", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TOPRIGHT_TOP", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TOPRIGHT_TOP", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TOPRIGHT_LEFT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TOPRIGHT_LEFT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TOPRIGHT_RIGHT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TOPRIGHT_RIGHT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TOPRIGHT_BOTTOM", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TOPRIGHT_BOTTOM", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_BOTTOMLEFT_TOP", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BOTTOMLEFT_TOP", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_BOTTOMLEFT_LEFT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BOTTOMLEFT_LEFT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_BOTTOMLEFT_RIGHT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BOTTOMLEFT_RIGHT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_BOTTOMLEFT_BOTTOM", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BOTTOMLEFT_BOTTOM", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_BOTTOMRIGHT_TOP", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BOTTOMRIGHT_TOP", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_BOTTOMRIGHT_LEFT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BOTTOMRIGHT_LEFT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_BOTTOMRIGHT_RIGHT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BOTTOMRIGHT_RIGHT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_BOTTOMRIGHT_BOTTOM", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BOTTOMRIGHT_BOTTOM", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.InsertCommand.Connection = Me.Connection - Me._adapter.InsertCommand.CommandText = "INSERT INTO TBCW_PROF_REL_CONTROL"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (WINDOW_ID, DESCRIPTI"& _ - "ON, AUTOMATION_ID, FRAMEWORK_ID, REGEX, SEQUENCE, ADDED_WHO)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@WI"& _ - "NDOW_ID,@DESCRIPTION,@AUTOMATION_ID,@FRAMEWORK_ID,@REGEX,@SEQUENCE,@ADDED_WHO); "& _ - " "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, PROFILE_ID, WINDOW_ID, PROCESS_NAME, DESCRIPTION, AUTOMATION_I"& _ - "D, FRAMEWORK_ID, REGEX, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WH"& _ - "EN FROM TBCW_PROF_REL_CONTROL WHERE (GUID = SCOPE_IDENTITY())" + Me._adapter.InsertCommand.CommandText = "INSERT INTO [TBCW_PROF_REL_CONTROL] ([WINDOW_ID], [DESCRIPTION], [REGEX], [SEQUEN"& _ + "CE], [ADDED_WHO], [ADDED_WHEN], [CHANGED_WHO], [CHANGED_WHEN], [TOPLEFT_TOP], [T"& _ + "OPLEFT_LEFT], [TOPLEFT_RIGHT], [TOPLEFT_BOTTOM], [TOPRIGHT_TOP], [TOPRIGHT_LEFT]"& _ + ", [TOPRIGHT_RIGHT], [TOPRIGHT_BOTTOM], [BOTTOMLEFT_TOP], [BOTTOMLEFT_LEFT], [BOT"& _ + "TOMLEFT_RIGHT], [BOTTOMLEFT_BOTTOM], [BOTTOMRIGHT_TOP], [BOTTOMRIGHT_LEFT], [BOT"& _ + "TOMRIGHT_RIGHT], [BOTTOMRIGHT_BOTTOM]) VALUES (@WINDOW_ID, @DESCRIPTION, @REGEX,"& _ + " @SEQUENCE, @ADDED_WHO, @ADDED_WHEN, @CHANGED_WHO, @CHANGED_WHEN, @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_RI"& _ + "GHT, @BOTTOMRIGHT_BOTTOM);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, WINDOW_ID, DESCRIPTION, REGEX, SEQUENCE"& _ + ", ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, TOPLEFT_TOP, TOPLEFT_LEFT, T"& _ + "OPLEFT_RIGHT, TOPLEFT_BOTTOM, TOPRIGHT_TOP, TOPRIGHT_LEFT, TOPRIGHT_RIGHT, TOPRI"& _ + "GHT_BOTTOM, BOTTOMLEFT_TOP, BOTTOMLEFT_LEFT, BOTTOMLEFT_RIGHT, BOTTOMLEFT_BOTTOM"& _ + ", BOTTOMRIGHT_TOP, BOTTOMRIGHT_LEFT, BOTTOMRIGHT_RIGHT, BOTTOMRIGHT_BOTTOM FROM "& _ + "TBCW_PROF_REL_CONTROL WHERE (GUID = SCOPE_IDENTITY()) ORDER BY SEQUENCE" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WINDOW_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "WINDOW_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DESCRIPTION", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "DESCRIPTION", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AUTOMATION_ID", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "AUTOMATION_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FRAMEWORK_ID", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "FRAMEWORK_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@REGEX", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "REGEX", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE", Global.System.Data.SqlDbType.TinyInt, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WINDOW_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WINDOW_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DESCRIPTION", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DESCRIPTION", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@REGEX", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "REGEX", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE", Global.System.Data.SqlDbType.TinyInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TOPLEFT_TOP", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TOPLEFT_TOP", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TOPLEFT_LEFT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TOPLEFT_LEFT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TOPLEFT_RIGHT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TOPLEFT_RIGHT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TOPLEFT_BOTTOM", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TOPLEFT_BOTTOM", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TOPRIGHT_TOP", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TOPRIGHT_TOP", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TOPRIGHT_LEFT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TOPRIGHT_LEFT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TOPRIGHT_RIGHT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TOPRIGHT_RIGHT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TOPRIGHT_BOTTOM", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TOPRIGHT_BOTTOM", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BOTTOMLEFT_TOP", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BOTTOMLEFT_TOP", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BOTTOMLEFT_LEFT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BOTTOMLEFT_LEFT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BOTTOMLEFT_RIGHT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BOTTOMLEFT_RIGHT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BOTTOMLEFT_BOTTOM", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BOTTOMLEFT_BOTTOM", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BOTTOMRIGHT_TOP", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BOTTOMRIGHT_TOP", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BOTTOMRIGHT_LEFT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BOTTOMRIGHT_LEFT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BOTTOMRIGHT_RIGHT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BOTTOMRIGHT_RIGHT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BOTTOMRIGHT_BOTTOM", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BOTTOMRIGHT_BOTTOM", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.UpdateCommand.Connection = Me.Connection - Me._adapter.UpdateCommand.CommandText = "UPDATE TBCW_PROF_REL_CONTROL"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET WINDOW_ID = @WINDOW_ID, DE"& _ - "SCRIPTION = @DESCRIPTION, AUTOMATION_ID = @AUTOMATION_ID, FRAMEWORK_ID = @FRAMEW"& _ - "ORK_ID, REGEX = @REGEX, SEQUENCE = @SEQUENCE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUI"& _ - "D); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, PROFILE_ID, WINDOW_ID, PROCESS_NAME, DESCRIPTION, AUTOMATI"& _ - "ON_ID, FRAMEWORK_ID, REGEX, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGE"& _ - "D_WHEN FROM TBCW_PROF_REL_CONTROL WHERE (GUID = @GUID)" + Me._adapter.UpdateCommand.CommandText = "UPDATE [TBCW_PROF_REL_CONTROL] SET [WINDOW_ID] = @WINDOW_ID, [DESCRIPTION] = @DES"& _ + "CRIPTION, [REGEX] = @REGEX, [SEQUENCE] = @SEQUENCE, [ADDED_WHO] = @ADDED_WHO, [A"& _ + "DDED_WHEN] = @ADDED_WHEN, [CHANGED_WHO] = @CHANGED_WHO, [CHANGED_WHEN] = @CHANGE"& _ + "D_WHEN, [TOPLEFT_TOP] = @TOPLEFT_TOP, [TOPLEFT_LEFT] = @TOPLEFT_LEFT, [TOPLEFT_R"& _ + "IGHT] = @TOPLEFT_RIGHT, [TOPLEFT_BOTTOM] = @TOPLEFT_BOTTOM, [TOPRIGHT_TOP] = @TO"& _ + "PRIGHT_TOP, [TOPRIGHT_LEFT] = @TOPRIGHT_LEFT, [TOPRIGHT_RIGHT] = @TOPRIGHT_RIGHT"& _ + ", [TOPRIGHT_BOTTOM] = @TOPRIGHT_BOTTOM, [BOTTOMLEFT_TOP] = @BOTTOMLEFT_TOP, [BOT"& _ + "TOMLEFT_LEFT] = @BOTTOMLEFT_LEFT, [BOTTOMLEFT_RIGHT] = @BOTTOMLEFT_RIGHT, [BOTTO"& _ + "MLEFT_BOTTOM] = @BOTTOMLEFT_BOTTOM, [BOTTOMRIGHT_TOP] = @BOTTOMRIGHT_TOP, [BOTTO"& _ + "MRIGHT_LEFT] = @BOTTOMRIGHT_LEFT, [BOTTOMRIGHT_RIGHT] = @BOTTOMRIGHT_RIGHT, [BOT"& _ + "TOMRIGHT_BOTTOM] = @BOTTOMRIGHT_BOTTOM WHERE (([GUID] = @Original_GUID) AND ([WI"& _ + "NDOW_ID] = @Original_WINDOW_ID) AND ([DESCRIPTION] = @Original_DESCRIPTION) AND "& _ + "([REGEX] = @Original_REGEX) AND ([SEQUENCE] = @Original_SEQUENCE) AND ([ADDED_WH"& _ + "O] = @Original_ADDED_WHO) AND ((@IsNull_ADDED_WHEN = 1 AND [ADDED_WHEN] IS NULL)"& _ + " OR ([ADDED_WHEN] = @Original_ADDED_WHEN)) AND ((@IsNull_CHANGED_WHO = 1 AND [CH"& _ + "ANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CH"& _ + "ANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGE"& _ + "D_WHEN)) AND ([TOPLEFT_TOP] = @Original_TOPLEFT_TOP) AND ([TOPLEFT_LEFT] = @Orig"& _ + "inal_TOPLEFT_LEFT) AND ([TOPLEFT_RIGHT] = @Original_TOPLEFT_RIGHT) AND ([TOPLEFT"& _ + "_BOTTOM] = @Original_TOPLEFT_BOTTOM) AND ([TOPRIGHT_TOP] = @Original_TOPRIGHT_TO"& _ + "P) AND ([TOPRIGHT_LEFT] = @Original_TOPRIGHT_LEFT) AND ([TOPRIGHT_RIGHT] = @Orig"& _ + "inal_TOPRIGHT_RIGHT) AND ([TOPRIGHT_BOTTOM] = @Original_TOPRIGHT_BOTTOM) AND ([B"& _ + "OTTOMLEFT_TOP] = @Original_BOTTOMLEFT_TOP) AND ([BOTTOMLEFT_LEFT] = @Original_BO"& _ + "TTOMLEFT_LEFT) AND ([BOTTOMLEFT_RIGHT] = @Original_BOTTOMLEFT_RIGHT) AND ([BOTTO"& _ + "MLEFT_BOTTOM] = @Original_BOTTOMLEFT_BOTTOM) AND ([BOTTOMRIGHT_TOP] = @Original_"& _ + "BOTTOMRIGHT_TOP) AND ([BOTTOMRIGHT_LEFT] = @Original_BOTTOMRIGHT_LEFT) AND ([BOT"& _ + "TOMRIGHT_RIGHT] = @Original_BOTTOMRIGHT_RIGHT) AND ([BOTTOMRIGHT_BOTTOM] = @Orig"& _ + "inal_BOTTOMRIGHT_BOTTOM));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, WINDOW_ID, DESCRIPTION, REGEX, SEQUENCE"& _ + ", ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, TOPLEFT_TOP, TOPLEFT_LEFT, T"& _ + "OPLEFT_RIGHT, TOPLEFT_BOTTOM, TOPRIGHT_TOP, TOPRIGHT_LEFT, TOPRIGHT_RIGHT, TOPRI"& _ + "GHT_BOTTOM, BOTTOMLEFT_TOP, BOTTOMLEFT_LEFT, BOTTOMLEFT_RIGHT, BOTTOMLEFT_BOTTOM"& _ + ", BOTTOMRIGHT_TOP, BOTTOMRIGHT_LEFT, BOTTOMRIGHT_RIGHT, BOTTOMRIGHT_BOTTOM FROM "& _ + "TBCW_PROF_REL_CONTROL WHERE (GUID = @GUID) ORDER BY SEQUENCE" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WINDOW_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "WINDOW_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DESCRIPTION", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "DESCRIPTION", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AUTOMATION_ID", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "AUTOMATION_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FRAMEWORK_ID", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "FRAMEWORK_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@REGEX", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "REGEX", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE", Global.System.Data.SqlDbType.TinyInt, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WINDOW_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WINDOW_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DESCRIPTION", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DESCRIPTION", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@REGEX", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "REGEX", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE", Global.System.Data.SqlDbType.TinyInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TOPLEFT_TOP", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TOPLEFT_TOP", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TOPLEFT_LEFT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TOPLEFT_LEFT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TOPLEFT_RIGHT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TOPLEFT_RIGHT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TOPLEFT_BOTTOM", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TOPLEFT_BOTTOM", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TOPRIGHT_TOP", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TOPRIGHT_TOP", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TOPRIGHT_LEFT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TOPRIGHT_LEFT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TOPRIGHT_RIGHT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TOPRIGHT_RIGHT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TOPRIGHT_BOTTOM", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TOPRIGHT_BOTTOM", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BOTTOMLEFT_TOP", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BOTTOMLEFT_TOP", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BOTTOMLEFT_LEFT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BOTTOMLEFT_LEFT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BOTTOMLEFT_RIGHT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BOTTOMLEFT_RIGHT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BOTTOMLEFT_BOTTOM", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BOTTOMLEFT_BOTTOM", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BOTTOMRIGHT_TOP", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BOTTOMRIGHT_TOP", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BOTTOMRIGHT_LEFT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BOTTOMRIGHT_LEFT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BOTTOMRIGHT_RIGHT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BOTTOMRIGHT_RIGHT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BOTTOMRIGHT_BOTTOM", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BOTTOMRIGHT_BOTTOM", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_WINDOW_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WINDOW_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DESCRIPTION", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DESCRIPTION", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_REGEX", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "REGEX", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SEQUENCE", Global.System.Data.SqlDbType.TinyInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ADDED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TOPLEFT_TOP", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TOPLEFT_TOP", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TOPLEFT_LEFT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TOPLEFT_LEFT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TOPLEFT_RIGHT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TOPLEFT_RIGHT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TOPLEFT_BOTTOM", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TOPLEFT_BOTTOM", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TOPRIGHT_TOP", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TOPRIGHT_TOP", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TOPRIGHT_LEFT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TOPRIGHT_LEFT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TOPRIGHT_RIGHT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TOPRIGHT_RIGHT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TOPRIGHT_BOTTOM", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TOPRIGHT_BOTTOM", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_BOTTOMLEFT_TOP", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BOTTOMLEFT_TOP", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_BOTTOMLEFT_LEFT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BOTTOMLEFT_LEFT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_BOTTOMLEFT_RIGHT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BOTTOMLEFT_RIGHT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_BOTTOMLEFT_BOTTOM", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BOTTOMLEFT_BOTTOM", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_BOTTOMRIGHT_TOP", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BOTTOMRIGHT_TOP", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_BOTTOMRIGHT_LEFT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BOTTOMRIGHT_LEFT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_BOTTOMRIGHT_RIGHT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BOTTOMRIGHT_RIGHT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_BOTTOMRIGHT_BOTTOM", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BOTTOMRIGHT_BOTTOM", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ - Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer) As Integer + Public Overloads Overridable Function Delete( _ + ByVal Original_GUID As Integer, _ + ByVal Original_WINDOW_ID As Integer, _ + ByVal Original_DESCRIPTION As String, _ + ByVal Original_REGEX As String, _ + ByVal Original_SEQUENCE As Byte, _ + ByVal Original_ADDED_WHO As String, _ + ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), _ + ByVal Original_CHANGED_WHO As String, _ + ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date), _ + ByVal Original_TOPLEFT_TOP As Integer, _ + ByVal Original_TOPLEFT_LEFT As Integer, _ + ByVal Original_TOPLEFT_RIGHT As Integer, _ + ByVal Original_TOPLEFT_BOTTOM As Integer, _ + ByVal Original_TOPRIGHT_TOP As Integer, _ + ByVal Original_TOPRIGHT_LEFT As Integer, _ + ByVal Original_TOPRIGHT_RIGHT As Integer, _ + ByVal Original_TOPRIGHT_BOTTOM As Integer, _ + ByVal Original_BOTTOMLEFT_TOP As Integer, _ + ByVal Original_BOTTOMLEFT_LEFT As Integer, _ + ByVal Original_BOTTOMLEFT_RIGHT As Integer, _ + ByVal Original_BOTTOMLEFT_BOTTOM As Integer, _ + ByVal Original_BOTTOMRIGHT_TOP As Integer, _ + ByVal Original_BOTTOMRIGHT_LEFT As Integer, _ + ByVal Original_BOTTOMRIGHT_RIGHT As Integer, _ + ByVal Original_BOTTOMRIGHT_BOTTOM As Integer) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) + Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_WINDOW_ID,Integer) + If (Original_DESCRIPTION Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_DESCRIPTION") + Else + Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_DESCRIPTION,String) + End If + If (Original_REGEX Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_REGEX") + Else + Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_REGEX,String) + End If + Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_SEQUENCE,Byte) + If (Original_ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_ADDED_WHO") + Else + Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_ADDED_WHO,String) + End If + If (Original_ADDED_WHEN.HasValue = true) Then + Me.Adapter.DeleteCommand.Parameters(6).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(7).Value = CType(Original_ADDED_WHEN.Value,Date) + Else + Me.Adapter.DeleteCommand.Parameters(6).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(7).Value = Global.System.DBNull.Value + End If + If (Original_CHANGED_WHO Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(8).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(9).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(8).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(9).Value = CType(Original_CHANGED_WHO,String) + End If + If (Original_CHANGED_WHEN.HasValue = true) Then + Me.Adapter.DeleteCommand.Parameters(10).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(11).Value = CType(Original_CHANGED_WHEN.Value,Date) + Else + Me.Adapter.DeleteCommand.Parameters(10).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(11).Value = Global.System.DBNull.Value + End If + Me.Adapter.DeleteCommand.Parameters(12).Value = CType(Original_TOPLEFT_TOP,Integer) + Me.Adapter.DeleteCommand.Parameters(13).Value = CType(Original_TOPLEFT_LEFT,Integer) + Me.Adapter.DeleteCommand.Parameters(14).Value = CType(Original_TOPLEFT_RIGHT,Integer) + Me.Adapter.DeleteCommand.Parameters(15).Value = CType(Original_TOPLEFT_BOTTOM,Integer) + Me.Adapter.DeleteCommand.Parameters(16).Value = CType(Original_TOPRIGHT_TOP,Integer) + Me.Adapter.DeleteCommand.Parameters(17).Value = CType(Original_TOPRIGHT_LEFT,Integer) + Me.Adapter.DeleteCommand.Parameters(18).Value = CType(Original_TOPRIGHT_RIGHT,Integer) + Me.Adapter.DeleteCommand.Parameters(19).Value = CType(Original_TOPRIGHT_BOTTOM,Integer) + Me.Adapter.DeleteCommand.Parameters(20).Value = CType(Original_BOTTOMLEFT_TOP,Integer) + Me.Adapter.DeleteCommand.Parameters(21).Value = CType(Original_BOTTOMLEFT_LEFT,Integer) + Me.Adapter.DeleteCommand.Parameters(22).Value = CType(Original_BOTTOMLEFT_RIGHT,Integer) + Me.Adapter.DeleteCommand.Parameters(23).Value = CType(Original_BOTTOMLEFT_BOTTOM,Integer) + Me.Adapter.DeleteCommand.Parameters(24).Value = CType(Original_BOTTOMRIGHT_TOP,Integer) + Me.Adapter.DeleteCommand.Parameters(25).Value = CType(Original_BOTTOMRIGHT_LEFT,Integer) + Me.Adapter.DeleteCommand.Parameters(26).Value = CType(Original_BOTTOMRIGHT_RIGHT,Integer) + Me.Adapter.DeleteCommand.Parameters(27).Value = CType(Original_BOTTOMRIGHT_BOTTOM,Integer) Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then @@ -12004,34 +12616,79 @@ Namespace MyDatasetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _ - Public Overloads Overridable Function Insert(ByVal WINDOW_ID As Integer, ByVal DESCRIPTION As String, ByVal AUTOMATION_ID As String, ByVal FRAMEWORK_ID As String, ByVal REGEX As String, ByVal SEQUENCE As Byte, ByVal ADDED_WHO As String) As Integer + Public Overloads Overridable Function Insert( _ + ByVal WINDOW_ID As Integer, _ + ByVal DESCRIPTION As String, _ + ByVal REGEX As String, _ + ByVal SEQUENCE As Byte, _ + ByVal ADDED_WHO As String, _ + ByVal ADDED_WHEN As Global.System.Nullable(Of Date), _ + ByVal CHANGED_WHO As String, _ + ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), _ + ByVal TOPLEFT_TOP As Integer, _ + ByVal TOPLEFT_LEFT As Integer, _ + ByVal TOPLEFT_RIGHT As Integer, _ + ByVal TOPLEFT_BOTTOM As Integer, _ + ByVal TOPRIGHT_TOP As Integer, _ + ByVal TOPRIGHT_LEFT As Integer, _ + ByVal TOPRIGHT_RIGHT As Integer, _ + ByVal TOPRIGHT_BOTTOM As Integer, _ + ByVal BOTTOMLEFT_TOP As Integer, _ + ByVal BOTTOMLEFT_LEFT As Integer, _ + ByVal BOTTOMLEFT_RIGHT As Integer, _ + ByVal BOTTOMLEFT_BOTTOM As Integer, _ + ByVal BOTTOMRIGHT_TOP As Integer, _ + ByVal BOTTOMRIGHT_LEFT As Integer, _ + ByVal BOTTOMRIGHT_RIGHT As Integer, _ + ByVal BOTTOMRIGHT_BOTTOM As Integer) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(WINDOW_ID,Integer) If (DESCRIPTION Is Nothing) Then Throw New Global.System.ArgumentNullException("DESCRIPTION") Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(DESCRIPTION,String) End If - If (AUTOMATION_ID Is Nothing) Then - Throw New Global.System.ArgumentNullException("AUTOMATION_ID") - Else - Me.Adapter.InsertCommand.Parameters(2).Value = CType(AUTOMATION_ID,String) - End If - If (FRAMEWORK_ID Is Nothing) Then - Throw New Global.System.ArgumentNullException("FRAMEWORK_ID") - Else - Me.Adapter.InsertCommand.Parameters(3).Value = CType(FRAMEWORK_ID,String) - End If If (REGEX Is Nothing) Then Throw New Global.System.ArgumentNullException("REGEX") Else - Me.Adapter.InsertCommand.Parameters(4).Value = CType(REGEX,String) + Me.Adapter.InsertCommand.Parameters(2).Value = CType(REGEX,String) End If - Me.Adapter.InsertCommand.Parameters(5).Value = CType(SEQUENCE,Byte) + Me.Adapter.InsertCommand.Parameters(3).Value = CType(SEQUENCE,Byte) If (ADDED_WHO Is Nothing) Then Throw New Global.System.ArgumentNullException("ADDED_WHO") Else - Me.Adapter.InsertCommand.Parameters(6).Value = CType(ADDED_WHO,String) + Me.Adapter.InsertCommand.Parameters(4).Value = CType(ADDED_WHO,String) End If + If (ADDED_WHEN.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(5).Value = CType(ADDED_WHEN.Value,Date) + Else + Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value + End If + If (CHANGED_WHO Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(6).Value = CType(CHANGED_WHO,String) + End If + If (CHANGED_WHEN.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(7).Value = CType(CHANGED_WHEN.Value,Date) + Else + Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value + End If + Me.Adapter.InsertCommand.Parameters(8).Value = CType(TOPLEFT_TOP,Integer) + Me.Adapter.InsertCommand.Parameters(9).Value = CType(TOPLEFT_LEFT,Integer) + Me.Adapter.InsertCommand.Parameters(10).Value = CType(TOPLEFT_RIGHT,Integer) + Me.Adapter.InsertCommand.Parameters(11).Value = CType(TOPLEFT_BOTTOM,Integer) + Me.Adapter.InsertCommand.Parameters(12).Value = CType(TOPRIGHT_TOP,Integer) + Me.Adapter.InsertCommand.Parameters(13).Value = CType(TOPRIGHT_LEFT,Integer) + Me.Adapter.InsertCommand.Parameters(14).Value = CType(TOPRIGHT_RIGHT,Integer) + Me.Adapter.InsertCommand.Parameters(15).Value = CType(TOPRIGHT_BOTTOM,Integer) + Me.Adapter.InsertCommand.Parameters(16).Value = CType(BOTTOMLEFT_TOP,Integer) + Me.Adapter.InsertCommand.Parameters(17).Value = CType(BOTTOMLEFT_LEFT,Integer) + Me.Adapter.InsertCommand.Parameters(18).Value = CType(BOTTOMLEFT_RIGHT,Integer) + Me.Adapter.InsertCommand.Parameters(19).Value = CType(BOTTOMLEFT_BOTTOM,Integer) + Me.Adapter.InsertCommand.Parameters(20).Value = CType(BOTTOMRIGHT_TOP,Integer) + Me.Adapter.InsertCommand.Parameters(21).Value = CType(BOTTOMRIGHT_LEFT,Integer) + Me.Adapter.InsertCommand.Parameters(22).Value = CType(BOTTOMRIGHT_RIGHT,Integer) + Me.Adapter.InsertCommand.Parameters(23).Value = CType(BOTTOMRIGHT_BOTTOM,Integer) Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then @@ -12051,31 +12708,161 @@ Namespace MyDatasetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _ - Public Overloads Overridable Function Update(ByVal WINDOW_ID As Integer, ByVal DESCRIPTION As String, ByVal AUTOMATION_ID As String, ByVal FRAMEWORK_ID As String, ByVal REGEX As String, ByVal SEQUENCE As Byte, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer + Public Overloads Overridable Function Update( _ + ByVal WINDOW_ID As Integer, _ + ByVal DESCRIPTION As String, _ + ByVal REGEX As String, _ + ByVal SEQUENCE As Byte, _ + ByVal ADDED_WHO As String, _ + ByVal ADDED_WHEN As Global.System.Nullable(Of Date), _ + ByVal CHANGED_WHO As String, _ + ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), _ + ByVal TOPLEFT_TOP As Integer, _ + ByVal TOPLEFT_LEFT As Integer, _ + ByVal TOPLEFT_RIGHT As Integer, _ + ByVal TOPLEFT_BOTTOM As Integer, _ + ByVal TOPRIGHT_TOP As Integer, _ + ByVal TOPRIGHT_LEFT As Integer, _ + ByVal TOPRIGHT_RIGHT As Integer, _ + ByVal TOPRIGHT_BOTTOM As Integer, _ + ByVal BOTTOMLEFT_TOP As Integer, _ + ByVal BOTTOMLEFT_LEFT As Integer, _ + ByVal BOTTOMLEFT_RIGHT As Integer, _ + ByVal BOTTOMLEFT_BOTTOM As Integer, _ + ByVal BOTTOMRIGHT_TOP As Integer, _ + ByVal BOTTOMRIGHT_LEFT As Integer, _ + ByVal BOTTOMRIGHT_RIGHT As Integer, _ + ByVal BOTTOMRIGHT_BOTTOM As Integer, _ + ByVal Original_GUID As Integer, _ + ByVal Original_WINDOW_ID As Integer, _ + ByVal Original_DESCRIPTION As String, _ + ByVal Original_REGEX As String, _ + ByVal Original_SEQUENCE As Byte, _ + ByVal Original_ADDED_WHO As String, _ + ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), _ + ByVal Original_CHANGED_WHO As String, _ + ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date), _ + ByVal Original_TOPLEFT_TOP As Integer, _ + ByVal Original_TOPLEFT_LEFT As Integer, _ + ByVal Original_TOPLEFT_RIGHT As Integer, _ + ByVal Original_TOPLEFT_BOTTOM As Integer, _ + ByVal Original_TOPRIGHT_TOP As Integer, _ + ByVal Original_TOPRIGHT_LEFT As Integer, _ + ByVal Original_TOPRIGHT_RIGHT As Integer, _ + ByVal Original_TOPRIGHT_BOTTOM As Integer, _ + ByVal Original_BOTTOMLEFT_TOP As Integer, _ + ByVal Original_BOTTOMLEFT_LEFT As Integer, _ + ByVal Original_BOTTOMLEFT_RIGHT As Integer, _ + ByVal Original_BOTTOMLEFT_BOTTOM As Integer, _ + ByVal Original_BOTTOMRIGHT_TOP As Integer, _ + ByVal Original_BOTTOMRIGHT_LEFT As Integer, _ + ByVal Original_BOTTOMRIGHT_RIGHT As Integer, _ + ByVal Original_BOTTOMRIGHT_BOTTOM As Integer, _ + ByVal GUID As Integer) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(WINDOW_ID,Integer) If (DESCRIPTION Is Nothing) Then Throw New Global.System.ArgumentNullException("DESCRIPTION") Else Me.Adapter.UpdateCommand.Parameters(1).Value = CType(DESCRIPTION,String) End If - If (AUTOMATION_ID Is Nothing) Then - Throw New Global.System.ArgumentNullException("AUTOMATION_ID") - Else - Me.Adapter.UpdateCommand.Parameters(2).Value = CType(AUTOMATION_ID,String) - End If - If (FRAMEWORK_ID Is Nothing) Then - Throw New Global.System.ArgumentNullException("FRAMEWORK_ID") - Else - Me.Adapter.UpdateCommand.Parameters(3).Value = CType(FRAMEWORK_ID,String) - End If If (REGEX Is Nothing) Then Throw New Global.System.ArgumentNullException("REGEX") Else - Me.Adapter.UpdateCommand.Parameters(4).Value = CType(REGEX,String) + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(REGEX,String) End If - Me.Adapter.UpdateCommand.Parameters(5).Value = CType(SEQUENCE,Byte) - Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Original_GUID,Integer) - Me.Adapter.UpdateCommand.Parameters(7).Value = CType(GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(SEQUENCE,Byte) + If (ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("ADDED_WHO") + Else + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(ADDED_WHO,String) + End If + If (ADDED_WHEN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(ADDED_WHEN.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value + End If + If (CHANGED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(CHANGED_WHO,String) + End If + If (CHANGED_WHEN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(CHANGED_WHEN.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value + End If + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(TOPLEFT_TOP,Integer) + Me.Adapter.UpdateCommand.Parameters(9).Value = CType(TOPLEFT_LEFT,Integer) + Me.Adapter.UpdateCommand.Parameters(10).Value = CType(TOPLEFT_RIGHT,Integer) + Me.Adapter.UpdateCommand.Parameters(11).Value = CType(TOPLEFT_BOTTOM,Integer) + Me.Adapter.UpdateCommand.Parameters(12).Value = CType(TOPRIGHT_TOP,Integer) + Me.Adapter.UpdateCommand.Parameters(13).Value = CType(TOPRIGHT_LEFT,Integer) + Me.Adapter.UpdateCommand.Parameters(14).Value = CType(TOPRIGHT_RIGHT,Integer) + Me.Adapter.UpdateCommand.Parameters(15).Value = CType(TOPRIGHT_BOTTOM,Integer) + Me.Adapter.UpdateCommand.Parameters(16).Value = CType(BOTTOMLEFT_TOP,Integer) + Me.Adapter.UpdateCommand.Parameters(17).Value = CType(BOTTOMLEFT_LEFT,Integer) + Me.Adapter.UpdateCommand.Parameters(18).Value = CType(BOTTOMLEFT_RIGHT,Integer) + Me.Adapter.UpdateCommand.Parameters(19).Value = CType(BOTTOMLEFT_BOTTOM,Integer) + Me.Adapter.UpdateCommand.Parameters(20).Value = CType(BOTTOMRIGHT_TOP,Integer) + Me.Adapter.UpdateCommand.Parameters(21).Value = CType(BOTTOMRIGHT_LEFT,Integer) + Me.Adapter.UpdateCommand.Parameters(22).Value = CType(BOTTOMRIGHT_RIGHT,Integer) + Me.Adapter.UpdateCommand.Parameters(23).Value = CType(BOTTOMRIGHT_BOTTOM,Integer) + Me.Adapter.UpdateCommand.Parameters(24).Value = CType(Original_GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(25).Value = CType(Original_WINDOW_ID,Integer) + If (Original_DESCRIPTION Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_DESCRIPTION") + Else + Me.Adapter.UpdateCommand.Parameters(26).Value = CType(Original_DESCRIPTION,String) + End If + If (Original_REGEX Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_REGEX") + Else + Me.Adapter.UpdateCommand.Parameters(27).Value = CType(Original_REGEX,String) + End If + Me.Adapter.UpdateCommand.Parameters(28).Value = CType(Original_SEQUENCE,Byte) + If (Original_ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_ADDED_WHO") + Else + Me.Adapter.UpdateCommand.Parameters(29).Value = CType(Original_ADDED_WHO,String) + End If + If (Original_ADDED_WHEN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(30).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(31).Value = CType(Original_ADDED_WHEN.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(30).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(31).Value = Global.System.DBNull.Value + End If + If (Original_CHANGED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(32).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(33).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(32).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(33).Value = CType(Original_CHANGED_WHO,String) + End If + If (Original_CHANGED_WHEN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(34).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(35).Value = CType(Original_CHANGED_WHEN.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(34).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(35).Value = Global.System.DBNull.Value + End If + Me.Adapter.UpdateCommand.Parameters(36).Value = CType(Original_TOPLEFT_TOP,Integer) + Me.Adapter.UpdateCommand.Parameters(37).Value = CType(Original_TOPLEFT_LEFT,Integer) + Me.Adapter.UpdateCommand.Parameters(38).Value = CType(Original_TOPLEFT_RIGHT,Integer) + Me.Adapter.UpdateCommand.Parameters(39).Value = CType(Original_TOPLEFT_BOTTOM,Integer) + Me.Adapter.UpdateCommand.Parameters(40).Value = CType(Original_TOPRIGHT_TOP,Integer) + Me.Adapter.UpdateCommand.Parameters(41).Value = CType(Original_TOPRIGHT_LEFT,Integer) + Me.Adapter.UpdateCommand.Parameters(42).Value = CType(Original_TOPRIGHT_RIGHT,Integer) + Me.Adapter.UpdateCommand.Parameters(43).Value = CType(Original_TOPRIGHT_BOTTOM,Integer) + Me.Adapter.UpdateCommand.Parameters(44).Value = CType(Original_BOTTOMLEFT_TOP,Integer) + Me.Adapter.UpdateCommand.Parameters(45).Value = CType(Original_BOTTOMLEFT_LEFT,Integer) + Me.Adapter.UpdateCommand.Parameters(46).Value = CType(Original_BOTTOMLEFT_RIGHT,Integer) + Me.Adapter.UpdateCommand.Parameters(47).Value = CType(Original_BOTTOMLEFT_BOTTOM,Integer) + Me.Adapter.UpdateCommand.Parameters(48).Value = CType(Original_BOTTOMRIGHT_TOP,Integer) + Me.Adapter.UpdateCommand.Parameters(49).Value = CType(Original_BOTTOMRIGHT_LEFT,Integer) + Me.Adapter.UpdateCommand.Parameters(50).Value = CType(Original_BOTTOMRIGHT_RIGHT,Integer) + Me.Adapter.UpdateCommand.Parameters(51).Value = CType(Original_BOTTOMRIGHT_BOTTOM,Integer) + Me.Adapter.UpdateCommand.Parameters(52).Value = CType(GUID,Integer) Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then @@ -12090,6 +12877,63 @@ Namespace MyDatasetTableAdapters End If End Try End Function + + _ + Public Overloads Overridable Function Update( _ + ByVal WINDOW_ID As Integer, _ + ByVal DESCRIPTION As String, _ + ByVal REGEX As String, _ + ByVal SEQUENCE As Byte, _ + ByVal ADDED_WHO As String, _ + ByVal ADDED_WHEN As Global.System.Nullable(Of Date), _ + ByVal CHANGED_WHO As String, _ + ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), _ + ByVal TOPLEFT_TOP As Integer, _ + ByVal TOPLEFT_LEFT As Integer, _ + ByVal TOPLEFT_RIGHT As Integer, _ + ByVal TOPLEFT_BOTTOM As Integer, _ + ByVal TOPRIGHT_TOP As Integer, _ + ByVal TOPRIGHT_LEFT As Integer, _ + ByVal TOPRIGHT_RIGHT As Integer, _ + ByVal TOPRIGHT_BOTTOM As Integer, _ + ByVal BOTTOMLEFT_TOP As Integer, _ + ByVal BOTTOMLEFT_LEFT As Integer, _ + ByVal BOTTOMLEFT_RIGHT As Integer, _ + ByVal BOTTOMLEFT_BOTTOM As Integer, _ + ByVal BOTTOMRIGHT_TOP As Integer, _ + ByVal BOTTOMRIGHT_LEFT As Integer, _ + ByVal BOTTOMRIGHT_RIGHT As Integer, _ + ByVal BOTTOMRIGHT_BOTTOM As Integer, _ + ByVal Original_GUID As Integer, _ + ByVal Original_WINDOW_ID As Integer, _ + ByVal Original_DESCRIPTION As String, _ + ByVal Original_REGEX As String, _ + ByVal Original_SEQUENCE As Byte, _ + ByVal Original_ADDED_WHO As String, _ + ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), _ + ByVal Original_CHANGED_WHO As String, _ + ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date), _ + ByVal Original_TOPLEFT_TOP As Integer, _ + ByVal Original_TOPLEFT_LEFT As Integer, _ + ByVal Original_TOPLEFT_RIGHT As Integer, _ + ByVal Original_TOPLEFT_BOTTOM As Integer, _ + ByVal Original_TOPRIGHT_TOP As Integer, _ + ByVal Original_TOPRIGHT_LEFT As Integer, _ + ByVal Original_TOPRIGHT_RIGHT As Integer, _ + ByVal Original_TOPRIGHT_BOTTOM As Integer, _ + ByVal Original_BOTTOMLEFT_TOP As Integer, _ + ByVal Original_BOTTOMLEFT_LEFT As Integer, _ + ByVal Original_BOTTOMLEFT_RIGHT As Integer, _ + ByVal Original_BOTTOMLEFT_BOTTOM As Integer, _ + ByVal Original_BOTTOMRIGHT_TOP As Integer, _ + ByVal Original_BOTTOMRIGHT_LEFT As Integer, _ + ByVal Original_BOTTOMRIGHT_RIGHT As Integer, _ + ByVal Original_BOTTOMRIGHT_BOTTOM As Integer) As Integer + Return Me.Update(WINDOW_ID, DESCRIPTION, REGEX, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, 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, Original_GUID, Original_WINDOW_ID, Original_DESCRIPTION, Original_REGEX, Original_SEQUENCE, Original_ADDED_WHO, Original_ADDED_WHEN, Original_CHANGED_WHO, Original_CHANGED_WHEN, Original_TOPLEFT_TOP, Original_TOPLEFT_LEFT, Original_TOPLEFT_RIGHT, Original_TOPLEFT_BOTTOM, Original_TOPRIGHT_TOP, Original_TOPRIGHT_LEFT, Original_TOPRIGHT_RIGHT, Original_TOPRIGHT_BOTTOM, Original_BOTTOMLEFT_TOP, Original_BOTTOMLEFT_LEFT, Original_BOTTOMLEFT_RIGHT, Original_BOTTOMLEFT_BOTTOM, Original_BOTTOMRIGHT_TOP, Original_BOTTOMRIGHT_LEFT, Original_BOTTOMRIGHT_RIGHT, Original_BOTTOMRIGHT_BOTTOM, Original_GUID) + End Function End Class ''' diff --git a/app/DD_Clipboard_Searcher/MyDataset.xsd b/app/DD_Clipboard_Searcher/MyDataset.xsd index 78da187..f35afa9 100644 --- a/app/DD_Clipboard_Searcher/MyDataset.xsd +++ b/app/DD_Clipboard_Searcher/MyDataset.xsd @@ -690,34 +690,77 @@ SELECT GUID, BEZEICHNUNG, SQL_PROVIDER, SERVER, DATENBANK, USERNAME, PASSWORD, B - - DELETE FROM TBCW_PROF_REL_CONTROL -WHERE (GUID = @Original_GUID) + + DELETE FROM [TBCW_PROF_REL_CONTROL] WHERE (([GUID] = @Original_GUID) AND ([WINDOW_ID] = @Original_WINDOW_ID) AND ([DESCRIPTION] = @Original_DESCRIPTION) AND ([REGEX] = @Original_REGEX) AND ([SEQUENCE] = @Original_SEQUENCE) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ((@IsNull_ADDED_WHEN = 1 AND [ADDED_WHEN] IS NULL) OR ([ADDED_WHEN] = @Original_ADDED_WHEN)) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)) AND ([TOPLEFT_TOP] = @Original_TOPLEFT_TOP) AND ([TOPLEFT_LEFT] = @Original_TOPLEFT_LEFT) AND ([TOPLEFT_RIGHT] = @Original_TOPLEFT_RIGHT) AND ([TOPLEFT_BOTTOM] = @Original_TOPLEFT_BOTTOM) AND ([TOPRIGHT_TOP] = @Original_TOPRIGHT_TOP) AND ([TOPRIGHT_LEFT] = @Original_TOPRIGHT_LEFT) AND ([TOPRIGHT_RIGHT] = @Original_TOPRIGHT_RIGHT) AND ([TOPRIGHT_BOTTOM] = @Original_TOPRIGHT_BOTTOM) AND ([BOTTOMLEFT_TOP] = @Original_BOTTOMLEFT_TOP) AND ([BOTTOMLEFT_LEFT] = @Original_BOTTOMLEFT_LEFT) AND ([BOTTOMLEFT_RIGHT] = @Original_BOTTOMLEFT_RIGHT) AND ([BOTTOMLEFT_BOTTOM] = @Original_BOTTOMLEFT_BOTTOM) AND ([BOTTOMRIGHT_TOP] = @Original_BOTTOMRIGHT_TOP) AND ([BOTTOMRIGHT_LEFT] = @Original_BOTTOMRIGHT_LEFT) AND ([BOTTOMRIGHT_RIGHT] = @Original_BOTTOMRIGHT_RIGHT) AND ([BOTTOMRIGHT_BOTTOM] = @Original_BOTTOMRIGHT_BOTTOM)) - + + + + + + + + + + + + + + + + + + + + + + + + + + + + - - INSERT INTO TBCW_PROF_REL_CONTROL - (WINDOW_ID, DESCRIPTION, AUTOMATION_ID, FRAMEWORK_ID, REGEX, SEQUENCE, ADDED_WHO) -VALUES (@WINDOW_ID,@DESCRIPTION,@AUTOMATION_ID,@FRAMEWORK_ID,@REGEX,@SEQUENCE,@ADDED_WHO); -SELECT GUID, PROFILE_ID, WINDOW_ID, PROCESS_NAME, DESCRIPTION, AUTOMATION_ID, FRAMEWORK_ID, REGEX, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBCW_PROF_REL_CONTROL WHERE (GUID = SCOPE_IDENTITY()) + + INSERT INTO [TBCW_PROF_REL_CONTROL] ([WINDOW_ID], [DESCRIPTION], [REGEX], [SEQUENCE], [ADDED_WHO], [ADDED_WHEN], [CHANGED_WHO], [CHANGED_WHEN], [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 (@WINDOW_ID, @DESCRIPTION, @REGEX, @SEQUENCE, @ADDED_WHO, @ADDED_WHEN, @CHANGED_WHO, @CHANGED_WHEN, @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); +SELECT GUID, WINDOW_ID, DESCRIPTION, REGEX, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, 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 FROM TBCW_PROF_REL_CONTROL WHERE (GUID = SCOPE_IDENTITY()) ORDER BY SEQUENCE - - - - - - - + + + + + + + + + + + + + + + + + + + + + + + + - - SELECT GUID, WINDOW_ID, DESCRIPTION, AUTOMATION_ID, FRAMEWORK_ID, REGEX, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN + + SELECT GUID, WINDOW_ID, DESCRIPTION, REGEX, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, 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 FROM TBCW_PROF_REL_CONTROL WHERE (WINDOW_ID = @WINDOW_ID) ORDER BY SEQUENCE @@ -727,20 +770,63 @@ ORDER BY SEQUENCE - - UPDATE TBCW_PROF_REL_CONTROL -SET WINDOW_ID = @WINDOW_ID, DESCRIPTION = @DESCRIPTION, AUTOMATION_ID = @AUTOMATION_ID, FRAMEWORK_ID = @FRAMEWORK_ID, REGEX = @REGEX, SEQUENCE = @SEQUENCE -WHERE (GUID = @Original_GUID); -SELECT GUID, PROFILE_ID, WINDOW_ID, PROCESS_NAME, DESCRIPTION, AUTOMATION_ID, FRAMEWORK_ID, REGEX, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBCW_PROF_REL_CONTROL WHERE (GUID = @GUID) + + UPDATE [TBCW_PROF_REL_CONTROL] SET [WINDOW_ID] = @WINDOW_ID, [DESCRIPTION] = @DESCRIPTION, [REGEX] = @REGEX, [SEQUENCE] = @SEQUENCE, [ADDED_WHO] = @ADDED_WHO, [ADDED_WHEN] = @ADDED_WHEN, [CHANGED_WHO] = @CHANGED_WHO, [CHANGED_WHEN] = @CHANGED_WHEN, [TOPLEFT_TOP] = @TOPLEFT_TOP, [TOPLEFT_LEFT] = @TOPLEFT_LEFT, [TOPLEFT_RIGHT] = @TOPLEFT_RIGHT, [TOPLEFT_BOTTOM] = @TOPLEFT_BOTTOM, [TOPRIGHT_TOP] = @TOPRIGHT_TOP, [TOPRIGHT_LEFT] = @TOPRIGHT_LEFT, [TOPRIGHT_RIGHT] = @TOPRIGHT_RIGHT, [TOPRIGHT_BOTTOM] = @TOPRIGHT_BOTTOM, [BOTTOMLEFT_TOP] = @BOTTOMLEFT_TOP, [BOTTOMLEFT_LEFT] = @BOTTOMLEFT_LEFT, [BOTTOMLEFT_RIGHT] = @BOTTOMLEFT_RIGHT, [BOTTOMLEFT_BOTTOM] = @BOTTOMLEFT_BOTTOM, [BOTTOMRIGHT_TOP] = @BOTTOMRIGHT_TOP, [BOTTOMRIGHT_LEFT] = @BOTTOMRIGHT_LEFT, [BOTTOMRIGHT_RIGHT] = @BOTTOMRIGHT_RIGHT, [BOTTOMRIGHT_BOTTOM] = @BOTTOMRIGHT_BOTTOM WHERE (([GUID] = @Original_GUID) AND ([WINDOW_ID] = @Original_WINDOW_ID) AND ([DESCRIPTION] = @Original_DESCRIPTION) AND ([REGEX] = @Original_REGEX) AND ([SEQUENCE] = @Original_SEQUENCE) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ((@IsNull_ADDED_WHEN = 1 AND [ADDED_WHEN] IS NULL) OR ([ADDED_WHEN] = @Original_ADDED_WHEN)) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)) AND ([TOPLEFT_TOP] = @Original_TOPLEFT_TOP) AND ([TOPLEFT_LEFT] = @Original_TOPLEFT_LEFT) AND ([TOPLEFT_RIGHT] = @Original_TOPLEFT_RIGHT) AND ([TOPLEFT_BOTTOM] = @Original_TOPLEFT_BOTTOM) AND ([TOPRIGHT_TOP] = @Original_TOPRIGHT_TOP) AND ([TOPRIGHT_LEFT] = @Original_TOPRIGHT_LEFT) AND ([TOPRIGHT_RIGHT] = @Original_TOPRIGHT_RIGHT) AND ([TOPRIGHT_BOTTOM] = @Original_TOPRIGHT_BOTTOM) AND ([BOTTOMLEFT_TOP] = @Original_BOTTOMLEFT_TOP) AND ([BOTTOMLEFT_LEFT] = @Original_BOTTOMLEFT_LEFT) AND ([BOTTOMLEFT_RIGHT] = @Original_BOTTOMLEFT_RIGHT) AND ([BOTTOMLEFT_BOTTOM] = @Original_BOTTOMLEFT_BOTTOM) AND ([BOTTOMRIGHT_TOP] = @Original_BOTTOMRIGHT_TOP) AND ([BOTTOMRIGHT_LEFT] = @Original_BOTTOMRIGHT_LEFT) AND ([BOTTOMRIGHT_RIGHT] = @Original_BOTTOMRIGHT_RIGHT) AND ([BOTTOMRIGHT_BOTTOM] = @Original_BOTTOMRIGHT_BOTTOM)); +SELECT GUID, WINDOW_ID, DESCRIPTION, REGEX, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, 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 FROM TBCW_PROF_REL_CONTROL WHERE (GUID = @GUID) ORDER BY SEQUENCE - - - - - - - - + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + @@ -756,8 +842,22 @@ SELECT GUID, PROFILE_ID, WINDOW_ID, PROCESS_NAME, DESCRIPTION, AUTOMATION_ID, FR - - + + + + + + + + + + + + + + + + @@ -769,7 +869,7 @@ SELECT GUID, PROFILE_ID, WINDOW_ID, PROCESS_NAME, DESCRIPTION, AUTOMATION_ID, FR - + @@ -815,7 +915,7 @@ SELECT GUID, PROFILE_ID, WINDOW_ID, PROCESS_NAME, DESCRIPTION, AUTOMATION_ID, FR - + @@ -832,7 +932,7 @@ SELECT GUID, PROFILE_ID, WINDOW_ID, PROCESS_NAME, DESCRIPTION, AUTOMATION_ID, FR - + @@ -861,7 +961,7 @@ SELECT GUID, PROFILE_ID, WINDOW_ID, PROCESS_NAME, DESCRIPTION, AUTOMATION_ID, FR - + @@ -872,7 +972,7 @@ SELECT GUID, PROFILE_ID, WINDOW_ID, PROCESS_NAME, DESCRIPTION, AUTOMATION_ID, FR - + @@ -895,7 +995,7 @@ SELECT GUID, PROFILE_ID, WINDOW_ID, PROCESS_NAME, DESCRIPTION, AUTOMATION_ID, FR - + @@ -943,7 +1043,7 @@ SELECT GUID, PROFILE_ID, WINDOW_ID, PROCESS_NAME, DESCRIPTION, AUTOMATION_ID, FR - + @@ -991,7 +1091,7 @@ SELECT GUID, PROFILE_ID, WINDOW_ID, PROCESS_NAME, DESCRIPTION, AUTOMATION_ID, FR - + @@ -1008,7 +1108,7 @@ SELECT GUID, PROFILE_ID, WINDOW_ID, PROCESS_NAME, DESCRIPTION, AUTOMATION_ID, FR - + @@ -1016,7 +1116,7 @@ SELECT GUID, PROFILE_ID, WINDOW_ID, PROCESS_NAME, DESCRIPTION, AUTOMATION_ID, FR - + @@ -1030,7 +1130,7 @@ SELECT GUID, PROFILE_ID, WINDOW_ID, PROCESS_NAME, DESCRIPTION, AUTOMATION_ID, FR - + @@ -1038,7 +1138,7 @@ SELECT GUID, PROFILE_ID, WINDOW_ID, PROCESS_NAME, DESCRIPTION, AUTOMATION_ID, FR - + @@ -1077,7 +1177,7 @@ SELECT GUID, PROFILE_ID, WINDOW_ID, PROCESS_NAME, DESCRIPTION, AUTOMATION_ID, FR - + @@ -1150,7 +1250,7 @@ SELECT GUID, PROFILE_ID, WINDOW_ID, PROCESS_NAME, DESCRIPTION, AUTOMATION_ID, FR - + @@ -1186,20 +1286,22 @@ SELECT GUID, PROFILE_ID, WINDOW_ID, PROCESS_NAME, DESCRIPTION, AUTOMATION_ID, FR - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + @@ -1252,10 +1354,10 @@ SELECT GUID, PROFILE_ID, WINDOW_ID, PROCESS_NAME, DESCRIPTION, AUTOMATION_ID, FR - - - - + + + + \ No newline at end of file diff --git a/app/DD_Clipboard_Searcher/MyDataset.xss b/app/DD_Clipboard_Searcher/MyDataset.xss index a7ca54e..3945085 100644 --- a/app/DD_Clipboard_Searcher/MyDataset.xss +++ b/app/DD_Clipboard_Searcher/MyDataset.xss @@ -16,7 +16,7 @@ - + @@ -46,7 +46,7 @@ - + 310 @@ -58,7 +58,7 @@ - + 165 diff --git a/app/DD_Clipboard_Searcher/ctrlApplicationAssignment.vb b/app/DD_Clipboard_Searcher/ctrlApplicationAssignment.vb index 3d87747..12cf748 100644 --- a/app/DD_Clipboard_Searcher/ctrlApplicationAssignment.vb +++ b/app/DD_Clipboard_Searcher/ctrlApplicationAssignment.vb @@ -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 diff --git a/app/DD_Clipboard_Searcher/frmControlCapture.Designer.vb b/app/DD_Clipboard_Searcher/frmControlCapture.Designer.vb index d6a212a..bdfda73 100644 --- a/app/DD_Clipboard_Searcher/frmControlCapture.Designer.vb +++ b/app/DD_Clipboard_Searcher/frmControlCapture.Designer.vb @@ -1,9 +1,9 @@ - _ + Partial Class frmControlCapture Inherits System.Windows.Forms.Form 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. - _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) Try If disposing AndAlso components IsNot Nothing Then @@ -20,28 +20,46 @@ Partial Class frmControlCapture 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. 'Das Bearbeiten ist mit dem Windows Form-Designer möglich. 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. - _ + Private Sub InitializeComponent() Me.components = New System.ComponentModel.Container() Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmControlCapture)) Me.Timer1 = New System.Windows.Forms.Timer(Me.components) Me.Label3 = New System.Windows.Forms.Label() - Me.Label4 = New System.Windows.Forms.Label() - Me.Label2 = New System.Windows.Forms.Label() - Me.Label1 = New System.Windows.Forms.Label() - Me.txtControlName = New System.Windows.Forms.TextBox() - Me.txtName = New System.Windows.Forms.TextBox() - Me.txtPID = New System.Windows.Forms.TextBox() Me.Button1 = New System.Windows.Forms.Button() Me.Button2 = New System.Windows.Forms.Button() - Me.txtAutomationId = New System.Windows.Forms.TextBox() + Me.txtTLLeft = New System.Windows.Forms.TextBox() + Me.txtTLRight = New System.Windows.Forms.TextBox() + Me.txtTLTop = New System.Windows.Forms.TextBox() + Me.txtTLBottom = New System.Windows.Forms.TextBox() + Me.Label1 = New System.Windows.Forms.Label() + Me.Label2 = New System.Windows.Forms.Label() + Me.Label4 = New System.Windows.Forms.Label() Me.Label5 = New System.Windows.Forms.Label() + Me.txtTRLeft = New System.Windows.Forms.TextBox() + Me.txtTRRight = New System.Windows.Forms.TextBox() + Me.txtTRTop = New System.Windows.Forms.TextBox() + Me.txtTRBottom = New System.Windows.Forms.TextBox() Me.Label6 = New System.Windows.Forms.Label() - Me.txtFrameworkId = New System.Windows.Forms.TextBox() - Me.chkAutomationId = New System.Windows.Forms.CheckBox() - Me.chkControlName = New System.Windows.Forms.CheckBox() Me.Label7 = New System.Windows.Forms.Label() - Me.txtNewFocusControlHandle = New System.Windows.Forms.TextBox() + Me.Label8 = New System.Windows.Forms.Label() + Me.Label9 = New System.Windows.Forms.Label() + Me.txtBLLeft = New System.Windows.Forms.TextBox() + Me.txtBLRight = New System.Windows.Forms.TextBox() + Me.txtBLTop = New System.Windows.Forms.TextBox() + Me.txtBLBottom = New System.Windows.Forms.TextBox() + Me.Label10 = New System.Windows.Forms.Label() + Me.Label11 = New System.Windows.Forms.Label() + Me.Label12 = New System.Windows.Forms.Label() + Me.Label13 = New System.Windows.Forms.Label() + Me.txtBRLeft = New System.Windows.Forms.TextBox() + Me.txtBRRight = New System.Windows.Forms.TextBox() + Me.txtBRTop = New System.Windows.Forms.TextBox() + Me.txtBRBottom = New System.Windows.Forms.TextBox() + Me.Label14 = New System.Windows.Forms.Label() + Me.Label15 = New System.Windows.Forms.Label() + Me.Label16 = New System.Windows.Forms.Label() + Me.Label17 = New System.Windows.Forms.Label() Me.SuspendLayout() ' 'Timer1 @@ -51,77 +69,23 @@ Partial Class frmControlCapture ' 'Label3 ' + Me.Label3.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.Label3.Font = New System.Drawing.Font("Tahoma", 9.75!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label3.Location = New System.Drawing.Point(12, 183) + Me.Label3.Location = New System.Drawing.Point(12, 281) Me.Label3.Name = "Label3" - Me.Label3.Size = New System.Drawing.Size(438, 42) + Me.Label3.Size = New System.Drawing.Size(294, 42) Me.Label3.TabIndex = 11 Me.Label3.Text = "Auswertung von aktivem Feld läuft! Wechseln Sie durch die aktiven Anwendungen und" & " klicken Sie in ein Feld!" - ' - 'Label4 - ' - Me.Label4.AutoSize = True - Me.Label4.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label4.Location = New System.Drawing.Point(12, 89) - Me.Label4.Name = "Label4" - Me.Label4.Size = New System.Drawing.Size(61, 13) - Me.Label4.TabIndex = 8 - Me.Label4.Text = "Feld Name:" - ' - 'Label2 - ' - Me.Label2.AutoSize = True - Me.Label2.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label2.Location = New System.Drawing.Point(12, 35) - Me.Label2.Name = "Label2" - Me.Label2.Size = New System.Drawing.Size(78, 13) - Me.Label2.TabIndex = 9 - Me.Label2.Text = "Prozess Name:" - ' - 'Label1 - ' - Me.Label1.AutoSize = True - Me.Label1.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label1.Location = New System.Drawing.Point(12, 9) - Me.Label1.Name = "Label1" - Me.Label1.Size = New System.Drawing.Size(62, 13) - Me.Label1.TabIndex = 10 - Me.Label1.Text = "Prozess ID:" - ' - 'txtControlName - ' - Me.txtControlName.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtControlName.Location = New System.Drawing.Point(226, 84) - Me.txtControlName.Name = "txtControlName" - Me.txtControlName.ReadOnly = True - Me.txtControlName.Size = New System.Drawing.Size(224, 21) - Me.txtControlName.TabIndex = 6 - ' - 'txtName - ' - Me.txtName.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtName.Location = New System.Drawing.Point(226, 32) - Me.txtName.Name = "txtName" - Me.txtName.ReadOnly = True - Me.txtName.Size = New System.Drawing.Size(224, 21) - Me.txtName.TabIndex = 7 - ' - 'txtPID - ' - Me.txtPID.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtPID.Location = New System.Drawing.Point(226, 4) - Me.txtPID.Name = "txtPID" - Me.txtPID.ReadOnly = True - Me.txtPID.Size = New System.Drawing.Size(224, 21) - Me.txtPID.TabIndex = 5 ' 'Button1 ' + Me.Button1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) Me.Button1.DialogResult = System.Windows.Forms.DialogResult.OK Me.Button1.Image = Global.DD_Clipboard_Watcher.My.Resources.Resources.add Me.Button1.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.Button1.Location = New System.Drawing.Point(15, 242) + Me.Button1.Location = New System.Drawing.Point(12, 326) Me.Button1.Name = "Button1" Me.Button1.Size = New System.Drawing.Size(159, 34) Me.Button1.TabIndex = 0 @@ -130,113 +94,311 @@ Partial Class frmControlCapture ' 'Button2 ' + Me.Button2.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.Button2.DialogResult = System.Windows.Forms.DialogResult.Cancel Me.Button2.Image = Global.DD_Clipboard_Watcher.My.Resources.Resources.cancel Me.Button2.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.Button2.Location = New System.Drawing.Point(291, 242) + Me.Button2.Location = New System.Drawing.Point(147, 326) Me.Button2.Name = "Button2" Me.Button2.Size = New System.Drawing.Size(159, 34) Me.Button2.TabIndex = 0 Me.Button2.Text = "Abbruch" Me.Button2.UseVisualStyleBackColor = True ' - 'txtAutomationId + 'txtTLLeft ' - Me.txtAutomationId.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtAutomationId.Location = New System.Drawing.Point(226, 110) - Me.txtAutomationId.Name = "txtAutomationId" - Me.txtAutomationId.ReadOnly = True - Me.txtAutomationId.Size = New System.Drawing.Size(224, 21) - Me.txtAutomationId.TabIndex = 6 + Me.txtTLLeft.Location = New System.Drawing.Point(59, 28) + Me.txtTLLeft.Name = "txtTLLeft" + Me.txtTLLeft.Size = New System.Drawing.Size(77, 21) + Me.txtTLLeft.TabIndex = 12 + ' + 'txtTLRight + ' + Me.txtTLRight.Location = New System.Drawing.Point(59, 55) + Me.txtTLRight.Name = "txtTLRight" + Me.txtTLRight.Size = New System.Drawing.Size(77, 21) + Me.txtTLRight.TabIndex = 12 + ' + 'txtTLTop + ' + Me.txtTLTop.Location = New System.Drawing.Point(59, 82) + Me.txtTLTop.Name = "txtTLTop" + Me.txtTLTop.Size = New System.Drawing.Size(77, 21) + Me.txtTLTop.TabIndex = 12 + ' + 'txtTLBottom + ' + Me.txtTLBottom.Location = New System.Drawing.Point(59, 109) + Me.txtTLBottom.Name = "txtTLBottom" + Me.txtTLBottom.Size = New System.Drawing.Size(77, 21) + Me.txtTLBottom.TabIndex = 12 + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.Location = New System.Drawing.Point(12, 31) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(26, 13) + Me.Label1.TabIndex = 13 + Me.Label1.Text = "Left" + ' + 'Label2 + ' + Me.Label2.AutoSize = True + Me.Label2.Location = New System.Drawing.Point(12, 58) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(32, 13) + Me.Label2.TabIndex = 13 + Me.Label2.Text = "Right" + ' + 'Label4 + ' + Me.Label4.AutoSize = True + Me.Label4.Location = New System.Drawing.Point(12, 85) + Me.Label4.Name = "Label4" + Me.Label4.Size = New System.Drawing.Size(25, 13) + Me.Label4.TabIndex = 13 + Me.Label4.Text = "Top" ' 'Label5 ' Me.Label5.AutoSize = True - Me.Label5.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label5.Location = New System.Drawing.Point(12, 115) + Me.Label5.Location = New System.Drawing.Point(12, 112) Me.Label5.Name = "Label5" - Me.Label5.Size = New System.Drawing.Size(79, 13) - Me.Label5.TabIndex = 8 - Me.Label5.Text = "Automation Id:" + Me.Label5.Size = New System.Drawing.Size(41, 13) + Me.Label5.TabIndex = 13 + Me.Label5.Text = "Bottom" + ' + 'txtTRLeft + ' + Me.txtTRLeft.Location = New System.Drawing.Point(198, 28) + Me.txtTRLeft.Name = "txtTRLeft" + Me.txtTRLeft.Size = New System.Drawing.Size(77, 21) + Me.txtTRLeft.TabIndex = 12 + ' + 'txtTRRight + ' + Me.txtTRRight.Location = New System.Drawing.Point(198, 55) + Me.txtTRRight.Name = "txtTRRight" + Me.txtTRRight.Size = New System.Drawing.Size(77, 21) + Me.txtTRRight.TabIndex = 12 + ' + 'txtTRTop + ' + Me.txtTRTop.Location = New System.Drawing.Point(198, 82) + Me.txtTRTop.Name = "txtTRTop" + Me.txtTRTop.Size = New System.Drawing.Size(77, 21) + Me.txtTRTop.TabIndex = 12 + ' + 'txtTRBottom + ' + Me.txtTRBottom.Location = New System.Drawing.Point(198, 109) + Me.txtTRBottom.Name = "txtTRBottom" + Me.txtTRBottom.Size = New System.Drawing.Size(77, 21) + Me.txtTRBottom.TabIndex = 12 ' 'Label6 ' Me.Label6.AutoSize = True - Me.Label6.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label6.Location = New System.Drawing.Point(12, 61) + Me.Label6.Location = New System.Drawing.Point(151, 31) Me.Label6.Name = "Label6" - Me.Label6.Size = New System.Drawing.Size(77, 13) - Me.Label6.TabIndex = 8 - Me.Label6.Text = "Framework Id:" - ' - 'txtFrameworkId - ' - Me.txtFrameworkId.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtFrameworkId.Location = New System.Drawing.Point(226, 58) - Me.txtFrameworkId.Name = "txtFrameworkId" - Me.txtFrameworkId.ReadOnly = True - Me.txtFrameworkId.Size = New System.Drawing.Size(224, 21) - Me.txtFrameworkId.TabIndex = 6 - ' - 'chkAutomationId - ' - Me.chkAutomationId.AutoSize = True - Me.chkAutomationId.Location = New System.Drawing.Point(133, 139) - Me.chkAutomationId.Name = "chkAutomationId" - Me.chkAutomationId.Size = New System.Drawing.Size(87, 17) - Me.chkAutomationId.TabIndex = 12 - Me.chkAutomationId.Text = "Übernehmen" - Me.chkAutomationId.UseVisualStyleBackColor = True - ' - 'chkControlName - ' - Me.chkControlName.AutoSize = True - Me.chkControlName.Location = New System.Drawing.Point(133, 86) - Me.chkControlName.Name = "chkControlName" - Me.chkControlName.Size = New System.Drawing.Size(87, 17) - Me.chkControlName.TabIndex = 12 - Me.chkControlName.Text = "Übernehmen" - Me.chkControlName.UseVisualStyleBackColor = True + Me.Label6.Size = New System.Drawing.Size(26, 13) + Me.Label6.TabIndex = 13 + Me.Label6.Text = "Left" ' 'Label7 ' Me.Label7.AutoSize = True - Me.Label7.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label7.Location = New System.Drawing.Point(12, 140) + Me.Label7.Location = New System.Drawing.Point(151, 58) Me.Label7.Name = "Label7" - Me.Label7.Size = New System.Drawing.Size(107, 13) - Me.Label7.TabIndex = 14 - Me.Label7.Text = "FocusControlHandle:" + Me.Label7.Size = New System.Drawing.Size(32, 13) + Me.Label7.TabIndex = 13 + Me.Label7.Text = "Right" ' - 'txtNewFocusControlHandle + 'Label8 ' - Me.txtNewFocusControlHandle.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.txtNewFocusControlHandle.Location = New System.Drawing.Point(226, 137) - Me.txtNewFocusControlHandle.Name = "txtNewFocusControlHandle" - Me.txtNewFocusControlHandle.ReadOnly = True - Me.txtNewFocusControlHandle.Size = New System.Drawing.Size(224, 21) - Me.txtNewFocusControlHandle.TabIndex = 13 + Me.Label8.AutoSize = True + Me.Label8.Location = New System.Drawing.Point(151, 85) + Me.Label8.Name = "Label8" + Me.Label8.Size = New System.Drawing.Size(25, 13) + Me.Label8.TabIndex = 13 + Me.Label8.Text = "Top" + ' + 'Label9 + ' + Me.Label9.AutoSize = True + Me.Label9.Location = New System.Drawing.Point(151, 112) + Me.Label9.Name = "Label9" + Me.Label9.Size = New System.Drawing.Size(41, 13) + Me.Label9.TabIndex = 13 + Me.Label9.Text = "Bottom" + ' + 'txtBLLeft + ' + Me.txtBLLeft.Location = New System.Drawing.Point(59, 157) + Me.txtBLLeft.Name = "txtBLLeft" + Me.txtBLLeft.Size = New System.Drawing.Size(77, 21) + Me.txtBLLeft.TabIndex = 12 + ' + 'txtBLRight + ' + Me.txtBLRight.Location = New System.Drawing.Point(59, 184) + Me.txtBLRight.Name = "txtBLRight" + Me.txtBLRight.Size = New System.Drawing.Size(77, 21) + Me.txtBLRight.TabIndex = 12 + ' + 'txtBLTop + ' + Me.txtBLTop.Location = New System.Drawing.Point(59, 211) + Me.txtBLTop.Name = "txtBLTop" + Me.txtBLTop.Size = New System.Drawing.Size(77, 21) + Me.txtBLTop.TabIndex = 12 + ' + 'txtBLBottom + ' + Me.txtBLBottom.Location = New System.Drawing.Point(59, 238) + Me.txtBLBottom.Name = "txtBLBottom" + Me.txtBLBottom.Size = New System.Drawing.Size(77, 21) + Me.txtBLBottom.TabIndex = 12 + ' + 'Label10 + ' + Me.Label10.AutoSize = True + Me.Label10.Location = New System.Drawing.Point(12, 160) + Me.Label10.Name = "Label10" + Me.Label10.Size = New System.Drawing.Size(26, 13) + Me.Label10.TabIndex = 13 + Me.Label10.Text = "Left" + ' + 'Label11 + ' + Me.Label11.AutoSize = True + Me.Label11.Location = New System.Drawing.Point(12, 187) + Me.Label11.Name = "Label11" + Me.Label11.Size = New System.Drawing.Size(32, 13) + Me.Label11.TabIndex = 13 + Me.Label11.Text = "Right" + ' + 'Label12 + ' + Me.Label12.AutoSize = True + Me.Label12.Location = New System.Drawing.Point(12, 214) + Me.Label12.Name = "Label12" + Me.Label12.Size = New System.Drawing.Size(25, 13) + Me.Label12.TabIndex = 13 + Me.Label12.Text = "Top" + ' + 'Label13 + ' + Me.Label13.AutoSize = True + Me.Label13.Location = New System.Drawing.Point(12, 241) + Me.Label13.Name = "Label13" + Me.Label13.Size = New System.Drawing.Size(41, 13) + Me.Label13.TabIndex = 13 + Me.Label13.Text = "Bottom" + ' + 'txtBRLeft + ' + Me.txtBRLeft.Location = New System.Drawing.Point(198, 157) + Me.txtBRLeft.Name = "txtBRLeft" + Me.txtBRLeft.Size = New System.Drawing.Size(77, 21) + Me.txtBRLeft.TabIndex = 12 + ' + 'txtBRRight + ' + Me.txtBRRight.Location = New System.Drawing.Point(198, 184) + Me.txtBRRight.Name = "txtBRRight" + Me.txtBRRight.Size = New System.Drawing.Size(77, 21) + Me.txtBRRight.TabIndex = 12 + ' + 'txtBRTop + ' + Me.txtBRTop.Location = New System.Drawing.Point(198, 211) + Me.txtBRTop.Name = "txtBRTop" + Me.txtBRTop.Size = New System.Drawing.Size(77, 21) + Me.txtBRTop.TabIndex = 12 + ' + 'txtBRBottom + ' + Me.txtBRBottom.Location = New System.Drawing.Point(198, 238) + Me.txtBRBottom.Name = "txtBRBottom" + Me.txtBRBottom.Size = New System.Drawing.Size(77, 21) + Me.txtBRBottom.TabIndex = 12 + ' + 'Label14 + ' + Me.Label14.AutoSize = True + Me.Label14.Location = New System.Drawing.Point(151, 160) + Me.Label14.Name = "Label14" + Me.Label14.Size = New System.Drawing.Size(26, 13) + Me.Label14.TabIndex = 13 + Me.Label14.Text = "Left" + ' + 'Label15 + ' + Me.Label15.AutoSize = True + Me.Label15.Location = New System.Drawing.Point(151, 187) + Me.Label15.Name = "Label15" + Me.Label15.Size = New System.Drawing.Size(32, 13) + Me.Label15.TabIndex = 13 + Me.Label15.Text = "Right" + ' + 'Label16 + ' + Me.Label16.AutoSize = True + Me.Label16.Location = New System.Drawing.Point(151, 214) + Me.Label16.Name = "Label16" + Me.Label16.Size = New System.Drawing.Size(25, 13) + Me.Label16.TabIndex = 13 + Me.Label16.Text = "Top" + ' + 'Label17 + ' + Me.Label17.AutoSize = True + Me.Label17.Location = New System.Drawing.Point(151, 241) + Me.Label17.Name = "Label17" + Me.Label17.Size = New System.Drawing.Size(41, 13) + Me.Label17.TabIndex = 13 + Me.Label17.Text = "Bottom" ' 'frmControlCapture ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font - Me.ClientSize = New System.Drawing.Size(462, 300) - Me.Controls.Add(Me.Label7) - Me.Controls.Add(Me.txtNewFocusControlHandle) - Me.Controls.Add(Me.chkControlName) - Me.Controls.Add(Me.chkAutomationId) - Me.Controls.Add(Me.Label3) - Me.Controls.Add(Me.Label6) + Me.ClientSize = New System.Drawing.Size(318, 372) + Me.Controls.Add(Me.Label17) + Me.Controls.Add(Me.Label13) + Me.Controls.Add(Me.Label9) Me.Controls.Add(Me.Label5) + Me.Controls.Add(Me.Label16) + Me.Controls.Add(Me.Label12) + Me.Controls.Add(Me.Label8) Me.Controls.Add(Me.Label4) + Me.Controls.Add(Me.Label15) + Me.Controls.Add(Me.Label11) + Me.Controls.Add(Me.Label7) Me.Controls.Add(Me.Label2) + Me.Controls.Add(Me.Label14) + Me.Controls.Add(Me.Label10) + Me.Controls.Add(Me.Label6) Me.Controls.Add(Me.Label1) - Me.Controls.Add(Me.txtFrameworkId) - Me.Controls.Add(Me.txtAutomationId) - Me.Controls.Add(Me.txtControlName) - Me.Controls.Add(Me.txtName) - Me.Controls.Add(Me.txtPID) + Me.Controls.Add(Me.txtBRBottom) + Me.Controls.Add(Me.txtBLBottom) + Me.Controls.Add(Me.txtTRBottom) + Me.Controls.Add(Me.txtBRTop) + Me.Controls.Add(Me.txtBLTop) + Me.Controls.Add(Me.txtTRTop) + Me.Controls.Add(Me.txtTLBottom) + Me.Controls.Add(Me.txtBRRight) + Me.Controls.Add(Me.txtBLRight) + Me.Controls.Add(Me.txtTRRight) + Me.Controls.Add(Me.txtTLTop) + Me.Controls.Add(Me.txtBRLeft) + Me.Controls.Add(Me.txtBLLeft) + Me.Controls.Add(Me.txtTRLeft) + Me.Controls.Add(Me.txtTLRight) + Me.Controls.Add(Me.txtTLLeft) + Me.Controls.Add(Me.Label3) Me.Controls.Add(Me.Button2) Me.Controls.Add(Me.Button1) Me.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) @@ -250,20 +412,38 @@ Partial Class frmControlCapture End Sub Friend WithEvents Timer1 As Timer Friend WithEvents Label3 As Label - Friend WithEvents Label4 As Label - Friend WithEvents Label2 As Label - Friend WithEvents Label1 As Label - Friend WithEvents txtControlName As TextBox - Friend WithEvents txtName As TextBox - Friend WithEvents txtPID As TextBox Friend WithEvents Button1 As Button Friend WithEvents Button2 As Button - Friend WithEvents txtAutomationId As TextBox + Friend WithEvents txtTLLeft As TextBox + Friend WithEvents txtTLRight As TextBox + Friend WithEvents txtTLTop As TextBox + Friend WithEvents txtTLBottom As TextBox + Friend WithEvents Label1 As Label + Friend WithEvents Label2 As Label + Friend WithEvents Label4 As Label Friend WithEvents Label5 As Label + Friend WithEvents txtTRLeft As TextBox + Friend WithEvents txtTRRight As TextBox + Friend WithEvents txtTRTop As TextBox + Friend WithEvents txtTRBottom As TextBox Friend WithEvents Label6 As Label - Friend WithEvents txtFrameworkId As TextBox - Friend WithEvents chkAutomationId As CheckBox - Friend WithEvents chkControlName As CheckBox Friend WithEvents Label7 As Label - Friend WithEvents txtNewFocusControlHandle As TextBox + Friend WithEvents Label8 As Label + Friend WithEvents Label9 As Label + Friend WithEvents txtBLLeft As TextBox + Friend WithEvents txtBLRight As TextBox + Friend WithEvents txtBLTop As TextBox + Friend WithEvents txtBLBottom As TextBox + Friend WithEvents Label10 As Label + Friend WithEvents Label11 As Label + Friend WithEvents Label12 As Label + Friend WithEvents Label13 As Label + Friend WithEvents txtBRLeft As TextBox + Friend WithEvents txtBRRight As TextBox + Friend WithEvents txtBRTop As TextBox + Friend WithEvents txtBRBottom As TextBox + Friend WithEvents Label14 As Label + Friend WithEvents Label15 As Label + Friend WithEvents Label16 As Label + Friend WithEvents Label17 As Label End Class diff --git a/app/DD_Clipboard_Searcher/frmControlCapture.vb b/app/DD_Clipboard_Searcher/frmControlCapture.vb index dd03e35..a2c48d4 100644 --- a/app/DD_Clipboard_Searcher/frmControlCapture.vb +++ b/app/DD_Clipboard_Searcher/frmControlCapture.vb @@ -1,75 +1,66 @@ -Imports System.Windows.Automation -Imports DD_Clipboard_Watcher.ClassWindowAPI +Imports DigitalData.Modules.Windows +Imports DigitalData.Modules.Windows.Window Public Class frmControlCapture - Public ControlName As String - Public ProcessName As String - Public AutomationId As String - Public FrameworkId As String + Public Property TopLeft As RectangleInfo + Public Property TopRight As RectangleInfo + Public Property BottomLeft As RectangleInfo + Public Property BottomRight As RectangleInfo - Public Automation As ClassAutomation + Private WithEvents Watcher As ClipboardWatcher = ClipboardWatcher.Singleton + Private Window As Window - Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick - Dim oResult As WindowInfo = GetFocusedControl(Handle) - Dim newoResult As IntPtr = FocusedControlinActiveWindow(Handle) + Private Sub frmControlCapture_Load(sender As Object, e As EventArgs) Handles Me.Load + Window = New Window(LogConfig) - If oResult IsNot Nothing Then - txtPID.Text = oResult.ClassName - txtName.Text = oResult.ProcessName - txtControlName.Text = oResult.ControlName - txtAutomationId.Text = Automation.AutomationId - txtFrameworkId.Text = Automation.FrameworkId - Console.WriteLine($"Automation.AutomationId: {Automation.AutomationId}") - FrameworkId = Automation.FrameworkId - - ControlName = oResult.ControlName - Console.WriteLine($"oResult.ControlName: {oResult.ControlName}") - txtNewFocusControlHandle.Text = newoResult.ToString - AutomationId = newoResult.ToString - Console.WriteLine($"newoResult: {newoResult.ToString}") - - ProcessName = oResult.ProcessName - End If + AddHandler Watcher.Changed, AddressOf Watcher_Changed End Sub - Private Sub frmControlCapture_Load(sender As Object, e As EventArgs) Handles MyBase.Load - Automation = New ClassAutomation(LogConfig) - End Sub + Private Sub Watcher_Changed(sender As Object, e As EventArgs) + For Each oAnchor As Anchor In [Enum].GetValues(GetType(Anchor)) + Dim oRect = Window.GetFocusedControlLocation(Handle, oAnchor) - Private Sub frmControlCapture_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing - Timer1.Stop() - Automation.RemoveHandler() - End Sub + Select Case oAnchor + Case Window.Anchor.TopLeft + If oRect IsNot Nothing Then + TopLeft = oRect - Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click - If chkAutomationId.Checked = False Then - AutomationId = String.Empty - End If + txtTLLeft.Text = oRect.Left + txtTLRight.Text = oRect.Right + txtTLTop.Text = oRect.Top + txtTLBottom.Text = oRect.Bottom + End If - If chkControlName.Checked = False Then - ControlName = String.Empty - End If + Case Window.Anchor.TopRight + If oRect IsNot Nothing Then + TopRight = oRect - If chkAutomationId.Checked = False And chkControlName.Checked = False Then - MsgBox("Es muss entweder die AutomationId oder der Feldname ausgewählt sein!", MsgBoxStyle.Exclamation, Text) - DialogResult = DialogResult.None - End If - Timer1.Stop() - End Sub + txtTRLeft.Text = oRect.Left + txtTRRight.Text = oRect.Right + txtTRTop.Text = oRect.Top + txtTRBottom.Text = oRect.Bottom + End If - Private Sub chkControlName_CheckedChanged(sender As Object, e As EventArgs) Handles chkControlName.CheckedChanged - If chkControlName.Checked Then - chkAutomationId.Checked = False - End If - End Sub + Case Window.Anchor.BottomLeft + If oRect IsNot Nothing Then + BottomLeft = oRect - Private Sub chkAutomationId_CheckedChanged(sender As Object, e As EventArgs) Handles chkAutomationId.CheckedChanged - If chkAutomationId.Checked Then - chkControlName.Checked = False - End If - End Sub + txtBLLeft.Text = oRect.Left + txtBLRight.Text = oRect.Right + txtBLTop.Text = oRect.Top + txtBLBottom.Text = oRect.Bottom + End If - Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click - Timer1.Stop() + Case Window.Anchor.BottomRight + If oRect IsNot Nothing Then + BottomRight = oRect + + txtBRLeft.Text = oRect.Left + txtBRRight.Text = oRect.Right + txtBRTop.Text = oRect.Top + txtBRBottom.Text = oRect.Bottom + End If + End Select + Next End Sub End Class \ No newline at end of file diff --git a/app/DD_Clipboard_Searcher/frmProfileMatch.Designer.vb b/app/DD_Clipboard_Searcher/frmProfileMatch.Designer.vb index c1cc2ef..c593dae 100644 --- a/app/DD_Clipboard_Searcher/frmProfileMatch.Designer.vb +++ b/app/DD_Clipboard_Searcher/frmProfileMatch.Designer.vb @@ -26,11 +26,11 @@ Partial Class frmProfileMatch Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmProfileMatch)) Me.Label1 = New System.Windows.Forms.Label() Me.TileControlMatch = New DevExpress.XtraEditors.TileControl() + Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components) + Me.AblaufSucheAnzeigenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.TileGroupDocumentsData = New DevExpress.XtraEditors.TileGroup() Me.TileGroupDocuments = New DevExpress.XtraEditors.TileGroup() Me.TileGroupData = New DevExpress.XtraEditors.TileGroup() - Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components) - Me.AblaufSucheAnzeigenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.ContextMenuStrip1.SuspendLayout() Me.SuspendLayout() ' @@ -42,9 +42,9 @@ Partial Class frmProfileMatch Me.Label1.ForeColor = System.Drawing.Color.White Me.Label1.Location = New System.Drawing.Point(12, 9) Me.Label1.Name = "Label1" - Me.Label1.Size = New System.Drawing.Size(489, 19) + Me.Label1.Size = New System.Drawing.Size(348, 19) Me.Label1.TabIndex = 2 - Me.Label1.Text = "Clipboard Watcher hat mehr als einen Match für Ihre Suche gefunden:" + Me.Label1.Text = "Es wurde(n) {0} für Ihre Suche nach {1} gefunden:" ' 'TileControlMatch ' @@ -81,6 +81,18 @@ Partial Class frmProfileMatch Me.TileControlMatch.TabIndex = 6 Me.TileControlMatch.Text = "TileControl1" ' + 'ContextMenuStrip1 + ' + Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.AblaufSucheAnzeigenToolStripMenuItem}) + Me.ContextMenuStrip1.Name = "ContextMenuStrip1" + Me.ContextMenuStrip1.Size = New System.Drawing.Size(195, 26) + ' + 'AblaufSucheAnzeigenToolStripMenuItem + ' + Me.AblaufSucheAnzeigenToolStripMenuItem.Name = "AblaufSucheAnzeigenToolStripMenuItem" + Me.AblaufSucheAnzeigenToolStripMenuItem.Size = New System.Drawing.Size(194, 22) + Me.AblaufSucheAnzeigenToolStripMenuItem.Text = "Ablauf Suche anzeigen" + ' 'TileGroupDocumentsData ' Me.TileGroupDocumentsData.Name = "TileGroupDocumentsData" @@ -96,18 +108,6 @@ Partial Class frmProfileMatch Me.TileGroupData.Name = "TileGroupData" Me.TileGroupData.Text = "Daten" ' - 'ContextMenuStrip1 - ' - Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.AblaufSucheAnzeigenToolStripMenuItem}) - Me.ContextMenuStrip1.Name = "ContextMenuStrip1" - Me.ContextMenuStrip1.Size = New System.Drawing.Size(195, 48) - ' - 'AblaufSucheAnzeigenToolStripMenuItem - ' - Me.AblaufSucheAnzeigenToolStripMenuItem.Name = "AblaufSucheAnzeigenToolStripMenuItem" - Me.AblaufSucheAnzeigenToolStripMenuItem.Size = New System.Drawing.Size(194, 22) - Me.AblaufSucheAnzeigenToolStripMenuItem.Text = "Ablauf Suche anzeigen" - ' 'frmProfileMatch ' Me.Appearance.Options.UseFont = True diff --git a/app/DD_Clipboard_Searcher/frmProfileMatch.vb b/app/DD_Clipboard_Searcher/frmProfileMatch.vb index 4bd8356..32f7967 100644 --- a/app/DD_Clipboard_Searcher/frmProfileMatch.vb +++ b/app/DD_Clipboard_Searcher/frmProfileMatch.vb @@ -24,12 +24,6 @@ Public Class frmProfileMatch Size = ConfigManager.Config.MatchWindowSize End If - If USER_LANGUAGE = "de-DE" Then - Label1.Text = $"Clipboard Watcher hat mehr als einen Match für Ihre Suche nach ""{CURRENT_CLIPBOARD_CONTENTS}"" gefunden:" - Else - Label1.Text = $"Clipboard Watcher found more than on match for your search for ""{CURRENT_CLIPBOARD_CONTENTS}"":" - End If - Dim oCreatedTiles = CreateTiles() If oCreatedTiles = -1 Then @@ -41,6 +35,9 @@ Public Class frmProfileMatch Me.Close() End If + Dim oMatchString = IIf(oCreatedTiles = 1, "1 Match", $"{oCreatedTiles} Matches") + Label1.Text = String.Format(Label1.Text, oMatchString, CURRENT_CLIPBOARD_CONTENTS) + ' Open Result Forms directly if only one match found If oCreatedTiles = 1 Then Dim oProfile As ProfileData = CURRENT_MATCHING_PROFILES.First() diff --git a/app/DD_Clipboard_Searcher/frmStart.vb b/app/DD_Clipboard_Searcher/frmStart.vb index ef315bc..3f6fb06 100644 --- a/app/DD_Clipboard_Searcher/frmStart.vb +++ b/app/DD_Clipboard_Searcher/frmStart.vb @@ -121,10 +121,13 @@ Public Class frmStart CurrMatchTreeView.ImageList = ImageList1 CurrMatchTreeView.SelectedImageIndex = 0 + + oProfiles = oProfileFilter.FilterProfilesByClipboardRegex(oProfiles, ClipboardContents) oProfiles = oProfileFilter.FilterProfilesByProcess(oProfiles, oWindowInfo.ProcessName) oProfiles = oProfileFilter.FilterWindowsByWindowTitleRegex(oProfiles, oWindowInfo.WindowTitle) - oProfiles = oProfileFilter.FilterProfilesByFocusedControl(oProfiles, ClipboardContents, oFocusedControl.ToString) + 'oProfiles = oProfileFilter.FilterProfilesByFocusedControl(oProfiles, ClipboardContents, oFocusedControl.ToString) + oProfiles = oProfileFilter.FilterProfilesByFocusedControlLocation(oProfiles, ClipboardContents, Handle) oProfiles = oProfileFilter.ClearNotMatchedProfiles(oProfiles) oProfiles = oProfileFilter.ClearDuplicateProfiles(oProfiles) oProfiles = oProfiles.ToList()