diff --git a/Global_Indexer/ClassHotkey_Windream.vb b/Global_Indexer/ClassHotkey_Windream.vb deleted file mode 100644 index ff31166..0000000 --- a/Global_Indexer/ClassHotkey_Windream.vb +++ /dev/null @@ -1,341 +0,0 @@ -Imports System.IO -Imports System.Text - -Public Class ClassHotkey_Windream - Private Declare Function GetForegroundWindow Lib "user32" Alias "GetForegroundWindow" () As IntPtr - Private Declare Auto Function GetWindowText Lib "user32" (ByVal hWnd As System.IntPtr, ByVal lpString As System.Text.StringBuilder, ByVal cch As Integer) As Integer - - Private Declare Function ShowWindow Lib "user32" (ByVal handle As IntPtr, ByVal nCmdShow As Integer) As Integer - Private Declare Function SetForeGroundWindow Lib "user32" (ByVal Hwnd As IntPtr) As Integer - - Private makel As String - Public Shared Function GetCaption() As String - Dim Caption As New System.Text.StringBuilder(256) - Dim hWnd As IntPtr = GetForegroundWindow() - GetWindowText(hWnd, Caption, Caption.Capacity) - Return Caption.ToString() - End Function - - Private Shared fileContents As String - Private Shared Function IsRelevantWindow(windowname As String, myControlNo As Integer, Value As String) - Try - Dim Control_Sequence As Integer = 0 - Dim enumerator1 As New ClassWindowAPI - 'Jedes Formularwindow durchlaufen - For Each top As ClassWindowAPI.ApiWindow In enumerator1.GetTopLevelWindows() - LOGGER.Info(" ... top-window Name: " & top.MainWindowTitle) - If top.MainWindowTitle.Contains(windowname) Or top.MainWindowTitle.ToLower = windowname.ToLower Then - Control_Sequence = 0 - For Each vControl As ClassWindowAPI.ApiWindow In enumerator1.GetChildWindows(top.hWnd) - - If vControl.MainWindowTitle <> "" Then - If Control_Sequence = myControlNo Then - If Value.ToUpper = vControl.MainWindowTitle.ToUpper Then - Return True - Else - LOGGER.Info(" ... Control-Sequence: " & myControlNo.ToString & " entspricht nicht dem Matchvalue.") - Return False - End If - End If - End If - Control_Sequence += 1 - Next vControl - Return False - End If - Next top - Catch ex As Exception - MsgBox("Error in IsRelevantWindowt:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) - LOGGER.Info(">> Error in IsRelevantWindow:" & ex.Message) - Return False - End Try - End Function - Private Shared Function Get_windowContent(windowname As String, myControlID As Integer) - Try - Dim Control_Sequence As Integer = 0 - Dim enumerator1 As New ClassWindowAPI - 'Jedes Formularwindow durchlaufen - For Each top As ClassWindowAPI.ApiWindow In enumerator1.GetTopLevelWindows() - If top.MainWindowTitle.Contains(windowname) Or top.MainWindowTitle.ToLower = windowname.ToLower Then - Control_Sequence = 0 - For Each vControl As ClassWindowAPI.ApiWindow In enumerator1.GetChildWindows(top.hWnd) - If vControl.MainWindowTitle <> "" Then - If Control_Sequence = myControlID Then - LOGGER.Info(" ... Control-Sequence: " & myControlID.ToString & " - Gelesener Wert: " & vControl.MainWindowTitle) - Return vControl.MainWindowTitle.ToString - End If - End If - Control_Sequence += 1 - Next vControl - Return Nothing - End If - Next top - Catch ex As Exception - MsgBox("Error in Get_windowContent:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) - LOGGER.Info(">> Error in Get_windowContent:" & ex.Message) - Return Nothing - End Try - End Function - 'Fenster position ermitteln/auslesen - Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Integer - Private Declare Function GetWindowRect Lib "user32.dll" (ByVal hWnd As IntPtr, ByRef lpRect As RECT) As Int32 - Private Structure RECT - Dim Left As Integer - Dim Top As Integer - Dim Right As Integer - Dim Bottom As Integer - End Structure - Private Shared Sub GetWindowClientSize(ByVal hWnd As Long) - Dim rc As RECT - GetWindowRect(hWnd, rc) - 'Left = rc.Right - rc.Left - 'Height = rc.Bottom - rc.Top - End Sub - Public Shared Function RUN_WD_SEARCH(HK_USR_PROFILE_ID As Integer) - Try - LOGGER.Info(" ...RUN_WD_SEARCH with HK_USR_PROFILE_ID '" & HK_USR_PROFILE_ID & "'") - Dim DTWD As DataTable - Dim Objecttype As String - Dim windowname As String - Dim HKPROFILE_ID As Integer - Dim type As String - - - Dim _sql = "SELECT WD_SEARCH,HKPROFILE_ID FROM TBHOTKEY_USER_PROFILE WHERE GUID = " & HK_USR_PROFILE_ID - DTWD = ClassDatabase.Return_Datatable(_sql) - If DTWD.Rows.Count = 0 Then - LOGGER.Info(" ...KEINE USER_PROFILES hinterlegt") - Return "Uncexpected Error in Hotkey - Check Log for Hotkey" - End If - If DTWD.Rows.Count > 1 Then - LOGGER.Info("Das Ergebnis von '" & _sql & "' liefert mehr als eine Zeile zurück!") - Return "Uncexpected Error in Hotkey - Check Log for Hotkey" - End If - If DTWD.Rows(0).Item(0) = "" Then - LOGGER.Info(">> KEINE Windream-Suche hinterlegt!") - Return "Error in Hotkey - KEINE Windream-Suche hinterlegt - Check Logkey" - End If - Dim BaseSearch = DTWD.Rows(0).Item(0) - Dim extension = Path.GetExtension(BaseSearch) - HKPROFILE_ID = DTWD.Rows(0).Item("HKPROFILE_ID") - Dim windream_temp_search As String = "" - If IO.File.Exists(BaseSearch) = False Then - LOGGER.Info("Die Windream-Suche existiert nicht oder ist nicht zugreifbar!") - - If USER_LANGUAGE = "de-DE" Then - MsgBox("Die Windream-Suche existiert nicht oder ist nicht zugreifbar!", MsgBoxStyle.Critical) - Else - MsgBox("Windream-Search does not exist or is not accessible", MsgBoxStyle.Critical) - End If - - Return Nothing - End If - windowname = ClassDatabase.Execute_Scalar("SELECT WINDOW_NAME FROM TBHOTKEY_PROFILE WHERE GUID = " & HKPROFILE_ID, MyConnectionString, True) - type = ClassDatabase.Execute_Scalar("SELECT OBJECTTYPE FROM TBHOTKEY_PROFILE WHERE GUID = " & HKPROFILE_ID, MyConnectionString, True) - fileContents = "" - - 'Eine tempfile generieren - Dim tempFilename1 = My.Computer.FileSystem.GetTempFileName() - 'Nur den Filenamen ohne Erweiterung - Dim tempName = Path.GetFileNameWithoutExtension(tempFilename1) - 'tempfile löschen - If My.Computer.FileSystem.FileExists(tempFilename1) Then - My.Computer.FileSystem.DeleteFile(tempFilename1) - End If - - Dim temppath = Path.GetTempPath - - Dim EncodingFormat As Encoding - Dim WDUnicode = ClassDatabase.Execute_Scalar("SELECT WD_UNICODE FROM TBGI_CONFIGURATION WHERE GUID = 1", MyConnectionString, True) - If WDUnicode = True Then - EncodingFormat = Encoding.GetEncoding(1252) '1252 - LOGGER.Info(" ...Unicode is used (Encoding.GetEncoding(1252))") - Else - LOGGER.Info(" ...UTF8 (Encoding.GetEncoding(65001))") - EncodingFormat = Encoding.GetEncoding(65001) - End If - - Dim DT_HOOKS As DataTable = ClassDatabase.Return_Datatable("select * from TBHOTKEY_WINDOW_HOOK where HKPROFILE_ID = " & HKPROFILE_ID, True) - If DT_HOOKS.Rows.Count > 0 Then - Dim RelevantWindow As Boolean = False - For Each row As DataRow In DT_HOOKS.Rows - RelevantWindow = IsRelevantWindow(windowname, row.Item("SEQUENCE_NUMBER"), row.Item("CONTROL_VALUE")) - If RelevantWindow = False Then - LOGGER.Info(" ...Not the relevant window") - Return "Not the Relevant window......" - End If - Next - End If - - - LOGGER.Info(" ...ReadAlltext: " & BaseSearch) - fileContents = My.Computer.FileSystem.ReadAllText(BaseSearch, EncodingFormat) ', System.Text.Encoding.Unicode - LOGGER.Info(" ...fileContents geladen") - fileContents = fileContents.Replace("Í", "Ö") - 'Das Array für die PAtterns anpassen - _sql = "select * from TBHOTKEY_PATTERNS WHERE HKPROFILE_ID = " & HKPROFILE_ID - Dim DT_PATTERNS As DataTable = ClassDatabase.Return_Datatable(_sql, True) - If DT_PATTERNS.Rows.Count > 0 Then - Dim i As Integer = 0 - For Each row As DataRow In DT_PATTERNS.Rows - If type = "COPYPASTE" Then - _sql = "select window_control from TBHOTKEY_PATTERNS where HKPROFILE_ID = " & HKPROFILE_ID - Dim copytype = ClassDatabase.Execute_Scalar(_sql, MyConnectionString, True) - Dim clipbrd - Dim theHandle As IntPtr = FindWindow(Nothing, CURRENT_FOCUSES_WINDOWNAME) - If theHandle <> IntPtr.Zero Then - Dim theForegroundWindow As Boolean = SetForeGroundWindow(theHandle) - If theForegroundWindow = True Then - Select Case copytype - Case "strgC" - ' SetForeGroundWindow(HWND) - SendKeys.Send("^{c}") 'for Ctrl-C - - Case "strA and strgC" - SendKeys.Send("^{A}") - 'AppActivate(CURRENT_FOCUSES_WINDOWNAME) - SendKeys.Send("^{c}") 'for Ctrl-C - End Select - End If - End If - - - - clipbrd = Clipboard.GetText - Console.WriteLine(clipbrd.ToString) - If Not clipbrd Is Nothing Then - If clipbrd <> "" Then - _sql = "select PATTERN_WDSEARCH from TBHOTKEY_PATTERNS where HKPROFILE_ID = " & HKPROFILE_ID - Dim _pattern = ClassDatabase.Execute_Scalar(_sql, MyConnectionString, True) - fileContents = fileContents.Replace(_pattern, clipbrd.ToString) - End If - - End If - - Else - LOGGER.Info(" ...Get Value for Control# '" & row.Item("SEQUENCE_NUMBER").ToString & "'") - Dim foundresult = Get_windowContent(windowname, row.Item("SEQUENCE_NUMBER").ToString) - If Not IsNothing(foundresult) Then - 'Die Nachbearbeitungsschritte laden - Dim DTNB As DataTable = ClassDatabase.Return_Datatable("SELECT * FROM TBHOTKEY_PATTERNS_REWORK WHERE HKPATTERN_ID = " & row.Item("GUID") & " ORDER BY SEQUENCE") - If DTNB Is Nothing = False Then - If DTNB.Rows.Count > 0 Then - foundresult = ClassPostprocessing.Get_Nachbearbeitung_Wert(foundresult, DTNB) - End If - End If - End If - If Not IsNothing(foundresult) Then - If foundresult.ToString = "<" Or foundresult.ToString = ">" Then - LOGGER.Info(">> Hot Key received an irregular value.") - Return "Hotkey konnte nur einen irregulären Wert auswerten." - End If - LOGGER.Info(" ...fileContents.length: " & fileContents.Length) - LOGGER.Info(" ...Replace pattern '" & row.Item(2).ToString & "' with '" & foundresult & "'") - fileContents = fileContents.Replace(row.Item(2).ToString, foundresult) - LOGGER.Info(" ...fileContents.length: " & fileContents.Length) - Else - LOGGER.Info(">> Hot Key could not read any value.") - Return "Hotkey konnte keinen Wert auswerten - Evtl. ist das konfigurierte Fenster nicht geöffnet?" - End If - End If - - Next - End If - Try - 'Die windream File zusammensetzen - windream_temp_search = temppath & tempName & extension - Try - 'Die File schreiben - My.Computer.FileSystem.WriteAllText(windream_temp_search, fileContents, False, EncodingFormat) - LOGGER.Info(" ...wrote Text to windream_temp_search: " & windream_temp_search) - ' XML-Datei öffnen und laden - Dim Stream As New IO.StreamReader(CStr(windream_temp_search), EncodingFormat) - Dim Reader As New System.Xml.XmlTextReader(Stream) - - ' XML-Datei initialisieren - Dim xml As New System.Xml.XmlDocument() - ' XML-Datei öffnen und laden - xml.Load(Reader) - Reader.Close() - xml.Save(windream_temp_search) - LOGGER.Info(" ...Xml Generiert: " & windream_temp_search) - Catch ex As Exception - LOGGER.Info("TempFile could not be created: " & ex.Message) - LOGGER.Error(ex.Message) - MsgBox(ex.Message, MsgBoxStyle.Critical, "Unexpected Error in Write XmlSearch:") - End Try - - CURRENT_WD_TEMPSEARCH = windream_temp_search - TEMP_FILES.Add(CURRENT_WD_TEMPSEARCH) - Try - Dim myhWnd As IntPtr - Dim p As New Process() - p.StartInfo.FileName = windream_temp_search - - If CONFIG.Config.WindreamSearchMaximized Then - p.StartInfo.WindowStyle = ProcessWindowStyle.Maximized - Else - p.StartInfo.WindowStyle = ProcessWindowStyle.Normal - End If - p.Start() - - myhWnd = p.MainWindowHandle - Threading.Thread.Sleep(1000) - Dim rctMain As RECT - GetWindowRect(p.MainWindowHandle, rctMain) - If LogErrorsOnly = False Then - LOGGER.Info(" ...Top-Position: " & rctMain.Top.ToString) - LOGGER.Info(" ...Left-Position: " & rctMain.Left.ToString) - LOGGER.Info(" ...Right-Position: " & rctMain.Right.ToString) - LOGGER.Info(" ...Bottom-Position: " & rctMain.Bottom.ToString) - End If - Catch ex As Exception - MsgBox(ex.Message, MsgBoxStyle.Critical, "Unexpected error while executing windream-Search:") - LOGGER.Info("Unexpected error while executing search: " & ex.Message) - Return "Unexpected error while executing search" - End Try - Dim psList() As Process - Try - psList = Process.GetProcesses() - - For Each p As Process In psList - Console.WriteLine(p.Id.ToString() + " " + p.ProcessName) - If p.ProcessName.Contains("indream.Find") Then - AppActivate(p.Id) - If CONFIG.Config.WindreamSearchMaximized = False Then - Dim rctMain As RECT - GetWindowRect(p.MainWindowHandle, rctMain) - If rctMain.Left = 0 Or rctMain.Right = 0 Then - ShowWindow(p.MainWindowHandle, 3) ' SW_MAXIMIZE - End If - End If - ' SetForeGroundWindow( p.MainWindowHandle) - End If - - Next p - - Catch ex As Exception - LOGGER.Info("Unexpected error while Setting foreground: " & ex.Message) - LOGGER.Error(ex.Message) - End Try - Return "" - Catch ex As Exception - LOGGER.Info("Unexpected error in Create Search: " & ex.Message) - LOGGER.Error(ex.Message) - MsgBox("Error in Create Search:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) - Return "Unexpected error in Create Search" - End Try - - Catch ex As Exception - LOGGER.Info("Unexpected error in RUN_WD_SEARCH: " & ex.Message) - LOGGER.Error(ex.message) - MsgBox("Error in RUN_WD_SEARCH:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) - Return "Unerwarteter Unexpected error in RUN_WD_SEARCH" - End Try - - - End Function - - - - -End Class diff --git a/Global_Indexer/Global_Indexer.vbproj b/Global_Indexer/Global_Indexer.vbproj index d1b4654..64ad6e0 100644 --- a/Global_Indexer/Global_Indexer.vbproj +++ b/Global_Indexer/Global_Indexer.vbproj @@ -246,7 +246,6 @@ - @@ -289,18 +288,6 @@ Form - - frmHotKey_Add.vb - - - Form - - - frmHotkey_User.vb - - - Form - frmIndex.vb @@ -457,15 +444,6 @@ frmHistory.vb - - frmHotKey_Add.vb - - - frmHotkey_User.vb - - - frmHotkey_User.vb - frmIndex.vb diff --git a/Global_Indexer/MyDataset.Designer.vb b/Global_Indexer/MyDataset.Designer.vb index 04c2d7c..c633ef8 100644 --- a/Global_Indexer/MyDataset.Designer.vb +++ b/Global_Indexer/MyDataset.Designer.vb @@ -57,18 +57,6 @@ Partial Public Class MyDataset Private tableVWGI_USER_GROUPS_RELATION As VWGI_USER_GROUPS_RELATIONDataTable - Private tableTBHOTKEY_PROFILE As TBHOTKEY_PROFILEDataTable - - Private tableTBHOTKEY_PATTERNS As TBHOTKEY_PATTERNSDataTable - - Private tableTBMYHOTKEYS As TBMYHOTKEYSDataTable - - Private tableTBHOTKEY_USER_PROFILE As TBHOTKEY_USER_PROFILEDataTable - - Private tableTBHOTKEY_PATTERNS_REWORK As TBHOTKEY_PATTERNS_REWORKDataTable - - Private tableTBHOTKEY_WINDOW_HOOK As TBHOTKEY_WINDOW_HOOKDataTable - Private tableTBGI_FILES_USER As TBGI_FILES_USERDataTable Private tableTBGI_HISTORY As TBGI_HISTORYDataTable @@ -95,20 +83,6 @@ Partial Public Class MyDataset Private relationFK_TBDD_INDEX_MAN_DAID As Global.System.Data.DataRelation - Private relationFK_TBHOTKEY_PATTERNS_PROFILE_ID As Global.System.Data.DataRelation - - Private relationFK_TBHOTKEY_PATTERNS_PROFILE_ID1 As Global.System.Data.DataRelation - - Private relationFK_TBHOTKEY_USER_PROFILE_PROFILE_ID As Global.System.Data.DataRelation - - Private relationFK_TBHOTKEY_USER_PROFILE_PROFILE_ID1 As Global.System.Data.DataRelation - - Private relationFK_TBHOTKEY_USER_PROFILE_USER_ID As Global.System.Data.DataRelation - - Private relationFK_TBHOTKEY_PATTERNS_REWORK_HKPATTERN_ID As Global.System.Data.DataRelation - - Private relationFK_TBHOTKEY_WINDOW_HOOK_PROFILE_ID As Global.System.Data.DataRelation - Private relationFK_TBGI_REGEX_DOCTYPE_DTID As Global.System.Data.DataRelation Private _schemaSerializationMode As Global.System.Data.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema @@ -188,24 +162,6 @@ Partial Public Class MyDataset If (Not (ds.Tables("VWGI_USER_GROUPS_RELATION")) Is Nothing) Then MyBase.Tables.Add(New VWGI_USER_GROUPS_RELATIONDataTable(ds.Tables("VWGI_USER_GROUPS_RELATION"))) End If - If (Not (ds.Tables("TBHOTKEY_PROFILE")) Is Nothing) Then - MyBase.Tables.Add(New TBHOTKEY_PROFILEDataTable(ds.Tables("TBHOTKEY_PROFILE"))) - End If - If (Not (ds.Tables("TBHOTKEY_PATTERNS")) Is Nothing) Then - MyBase.Tables.Add(New TBHOTKEY_PATTERNSDataTable(ds.Tables("TBHOTKEY_PATTERNS"))) - End If - If (Not (ds.Tables("TBMYHOTKEYS")) Is Nothing) Then - MyBase.Tables.Add(New TBMYHOTKEYSDataTable(ds.Tables("TBMYHOTKEYS"))) - End If - If (Not (ds.Tables("TBHOTKEY_USER_PROFILE")) Is Nothing) Then - MyBase.Tables.Add(New TBHOTKEY_USER_PROFILEDataTable(ds.Tables("TBHOTKEY_USER_PROFILE"))) - End If - If (Not (ds.Tables("TBHOTKEY_PATTERNS_REWORK")) Is Nothing) Then - MyBase.Tables.Add(New TBHOTKEY_PATTERNS_REWORKDataTable(ds.Tables("TBHOTKEY_PATTERNS_REWORK"))) - End If - If (Not (ds.Tables("TBHOTKEY_WINDOW_HOOK")) Is Nothing) Then - MyBase.Tables.Add(New TBHOTKEY_WINDOW_HOOKDataTable(ds.Tables("TBHOTKEY_WINDOW_HOOK"))) - End If If (Not (ds.Tables("TBGI_FILES_USER")) Is Nothing) Then MyBase.Tables.Add(New TBGI_FILES_USERDataTable(ds.Tables("TBGI_FILES_USER"))) End If @@ -401,66 +357,6 @@ Partial Public Class MyDataset End Get End Property - _ - Public ReadOnly Property TBHOTKEY_PROFILE() As TBHOTKEY_PROFILEDataTable - Get - Return Me.tableTBHOTKEY_PROFILE - End Get - End Property - - _ - Public ReadOnly Property TBHOTKEY_PATTERNS() As TBHOTKEY_PATTERNSDataTable - Get - Return Me.tableTBHOTKEY_PATTERNS - End Get - End Property - - _ - Public ReadOnly Property TBMYHOTKEYS() As TBMYHOTKEYSDataTable - Get - Return Me.tableTBMYHOTKEYS - End Get - End Property - - _ - Public ReadOnly Property TBHOTKEY_USER_PROFILE() As TBHOTKEY_USER_PROFILEDataTable - Get - Return Me.tableTBHOTKEY_USER_PROFILE - End Get - End Property - - _ - Public ReadOnly Property TBHOTKEY_PATTERNS_REWORK() As TBHOTKEY_PATTERNS_REWORKDataTable - Get - Return Me.tableTBHOTKEY_PATTERNS_REWORK - End Get - End Property - - _ - Public ReadOnly Property TBHOTKEY_WINDOW_HOOK() As TBHOTKEY_WINDOW_HOOKDataTable - Get - Return Me.tableTBHOTKEY_WINDOW_HOOK - End Get - End Property - _ - Private Function ShouldSerializeTBHOTKEY_PROFILE() As Boolean - Return false - End Function - - _ - Private Function ShouldSerializeTBHOTKEY_PATTERNS() As Boolean - Return false - End Function - - _ - Private Function ShouldSerializeTBMYHOTKEYS() As Boolean - Return false - End Function - - _ - Private Function ShouldSerializeTBHOTKEY_USER_PROFILE() As Boolean - Return false - End Function - - _ - Private Function ShouldSerializeTBHOTKEY_PATTERNS_REWORK() As Boolean - Return false - End Function - - _ - Private Function ShouldSerializeTBHOTKEY_WINDOW_HOOK() As Boolean - Return false - End Function - _ Private Function ShouldSerializeTBGI_FILES_USER() As Boolean @@ -1259,24 +1032,6 @@ Partial Public Class MyDataset _ Public Delegate Sub VWGI_USER_GROUPS_RELATIONRowChangeEventHandler(ByVal sender As Object, ByVal e As VWGI_USER_GROUPS_RELATIONRowChangeEvent) - _ - Public Delegate Sub TBHOTKEY_PROFILERowChangeEventHandler(ByVal sender As Object, ByVal e As TBHOTKEY_PROFILERowChangeEvent) - - _ - Public Delegate Sub TBHOTKEY_PATTERNSRowChangeEventHandler(ByVal sender As Object, ByVal e As TBHOTKEY_PATTERNSRowChangeEvent) - - _ - Public Delegate Sub TBMYHOTKEYSRowChangeEventHandler(ByVal sender As Object, ByVal e As TBMYHOTKEYSRowChangeEvent) - - _ - Public Delegate Sub TBHOTKEY_USER_PROFILERowChangeEventHandler(ByVal sender As Object, ByVal e As TBHOTKEY_USER_PROFILERowChangeEvent) - - _ - Public Delegate Sub TBHOTKEY_PATTERNS_REWORKRowChangeEventHandler(ByVal sender As Object, ByVal e As TBHOTKEY_PATTERNS_REWORKRowChangeEvent) - - _ - Public Delegate Sub TBHOTKEY_WINDOW_HOOKRowChangeEventHandler(ByVal sender As Object, ByVal e As TBHOTKEY_WINDOW_HOOKRowChangeEvent) - _ Public Delegate Sub TBGI_FILES_USERRowChangeEventHandler(ByVal sender As Object, ByVal e As TBGI_FILES_USERRowChangeEvent) @@ -7973,2287 +7728,6 @@ Partial Public Class MyDataset End Function End Class - ''' - '''Represents the strongly named DataTable class. - ''' - _ - Partial Public Class TBHOTKEY_PROFILEDataTable - Inherits Global.System.Data.TypedTableBase(Of TBHOTKEY_PROFILERow) - - Private columnGUID As Global.System.Data.DataColumn - - Private columnNAME As Global.System.Data.DataColumn - - Private columnOBJECTTYPE As Global.System.Data.DataColumn - - Private columnWD_SEARCH As Global.System.Data.DataColumn - - Private columnHOTKEY1 As Global.System.Data.DataColumn - - Private columnHOTKEY2 As Global.System.Data.DataColumn - - Private columnWINDOW_NAME As Global.System.Data.DataColumn - - Private columnADDED_WHO As Global.System.Data.DataColumn - - Private columnADDED_WHEN As Global.System.Data.DataColumn - - Private columnCHANGED_WHO As Global.System.Data.DataColumn - - Private columnCHANGED_WHEN As Global.System.Data.DataColumn - - Private columnString As Global.System.Data.DataColumn - - _ - Public Sub New() - MyBase.New - Me.TableName = "TBHOTKEY_PROFILE" - Me.BeginInit - Me.InitClass - Me.EndInit - End Sub - - _ - Friend Sub New(ByVal table As Global.System.Data.DataTable) - MyBase.New - Me.TableName = table.TableName - If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then - Me.CaseSensitive = table.CaseSensitive - End If - If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then - Me.Locale = table.Locale - End If - If (table.Namespace <> table.DataSet.Namespace) Then - Me.Namespace = table.Namespace - End If - Me.Prefix = table.Prefix - Me.MinimumCapacity = table.MinimumCapacity - End Sub - - _ - Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) - MyBase.New(info, context) - Me.InitVars - End Sub - - _ - Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn - Get - Return Me.columnGUID - End Get - End Property - - _ - Public ReadOnly Property NAMEColumn() As Global.System.Data.DataColumn - Get - Return Me.columnNAME - End Get - End Property - - _ - Public ReadOnly Property OBJECTTYPEColumn() As Global.System.Data.DataColumn - Get - Return Me.columnOBJECTTYPE - End Get - End Property - - _ - Public ReadOnly Property WD_SEARCHColumn() As Global.System.Data.DataColumn - Get - Return Me.columnWD_SEARCH - End Get - End Property - - _ - Public ReadOnly Property HOTKEY1Column() As Global.System.Data.DataColumn - Get - Return Me.columnHOTKEY1 - End Get - End Property - - _ - Public ReadOnly Property HOTKEY2Column() As Global.System.Data.DataColumn - Get - Return Me.columnHOTKEY2 - End Get - End Property - - _ - Public ReadOnly Property WINDOW_NAMEColumn() As Global.System.Data.DataColumn - Get - Return Me.columnWINDOW_NAME - End Get - End Property - - _ - Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn - Get - Return Me.columnADDED_WHO - End Get - End Property - - _ - Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn - Get - Return Me.columnADDED_WHEN - End Get - End Property - - _ - Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn - Get - Return Me.columnCHANGED_WHO - End Get - End Property - - _ - Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn - Get - Return Me.columnCHANGED_WHEN - End Get - End Property - - _ - Public ReadOnly Property StringColumn() As Global.System.Data.DataColumn - Get - Return Me.columnString - End Get - End Property - - _ - Public ReadOnly Property Count() As Integer - Get - Return Me.Rows.Count - End Get - End Property - - _ - Public Default ReadOnly Property Item(ByVal index As Integer) As TBHOTKEY_PROFILERow - Get - Return CType(Me.Rows(index),TBHOTKEY_PROFILERow) - End Get - End Property - - _ - Public Event TBHOTKEY_PROFILERowChanging As TBHOTKEY_PROFILERowChangeEventHandler - - _ - Public Event TBHOTKEY_PROFILERowChanged As TBHOTKEY_PROFILERowChangeEventHandler - - _ - Public Event TBHOTKEY_PROFILERowDeleting As TBHOTKEY_PROFILERowChangeEventHandler - - _ - Public Event TBHOTKEY_PROFILERowDeleted As TBHOTKEY_PROFILERowChangeEventHandler - - _ - Public Overloads Sub AddTBHOTKEY_PROFILERow(ByVal row As TBHOTKEY_PROFILERow) - Me.Rows.Add(row) - End Sub - - _ - Public Overloads Function AddTBHOTKEY_PROFILERow(ByVal NAME As String, ByVal OBJECTTYPE As String, ByVal WD_SEARCH As String, ByVal HOTKEY1 As String, ByVal HOTKEY2 As String, ByVal WINDOW_NAME As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date, ByVal _String As String) As TBHOTKEY_PROFILERow - Dim rowTBHOTKEY_PROFILERow As TBHOTKEY_PROFILERow = CType(Me.NewRow,TBHOTKEY_PROFILERow) - Dim columnValuesArray() As Object = New Object() {Nothing, NAME, OBJECTTYPE, WD_SEARCH, HOTKEY1, HOTKEY2, WINDOW_NAME, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, _String} - rowTBHOTKEY_PROFILERow.ItemArray = columnValuesArray - Me.Rows.Add(rowTBHOTKEY_PROFILERow) - Return rowTBHOTKEY_PROFILERow - End Function - - _ - Public Function FindByGUID(ByVal GUID As Integer) As TBHOTKEY_PROFILERow - Return CType(Me.Rows.Find(New Object() {GUID}),TBHOTKEY_PROFILERow) - End Function - - _ - Public Overrides Function Clone() As Global.System.Data.DataTable - Dim cln As TBHOTKEY_PROFILEDataTable = CType(MyBase.Clone,TBHOTKEY_PROFILEDataTable) - cln.InitVars - Return cln - End Function - - _ - Protected Overrides Function CreateInstance() As Global.System.Data.DataTable - Return New TBHOTKEY_PROFILEDataTable() - End Function - - _ - Friend Sub InitVars() - Me.columnGUID = MyBase.Columns("GUID") - Me.columnNAME = MyBase.Columns("NAME") - Me.columnOBJECTTYPE = MyBase.Columns("OBJECTTYPE") - Me.columnWD_SEARCH = MyBase.Columns("WD_SEARCH") - Me.columnHOTKEY1 = MyBase.Columns("HOTKEY1") - Me.columnHOTKEY2 = MyBase.Columns("HOTKEY2") - Me.columnWINDOW_NAME = MyBase.Columns("WINDOW_NAME") - Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") - Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") - Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") - Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") - Me.columnString = MyBase.Columns("String") - End Sub - - _ - Private Sub InitClass() - Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnGUID) - Me.columnNAME = New Global.System.Data.DataColumn("NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnNAME) - Me.columnOBJECTTYPE = New Global.System.Data.DataColumn("OBJECTTYPE", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnOBJECTTYPE) - Me.columnWD_SEARCH = New Global.System.Data.DataColumn("WD_SEARCH", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnWD_SEARCH) - Me.columnHOTKEY1 = New Global.System.Data.DataColumn("HOTKEY1", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnHOTKEY1) - Me.columnHOTKEY2 = New Global.System.Data.DataColumn("HOTKEY2", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnHOTKEY2) - Me.columnWINDOW_NAME = New Global.System.Data.DataColumn("WINDOW_NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnWINDOW_NAME) - Me.columnADDED_WHO = New Global.System.Data.DataColumn("ADDED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnADDED_WHO) - Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnADDED_WHEN) - Me.columnCHANGED_WHO = New Global.System.Data.DataColumn("CHANGED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnCHANGED_WHO) - Me.columnCHANGED_WHEN = New Global.System.Data.DataColumn("CHANGED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnCHANGED_WHEN) - Me.columnString = New Global.System.Data.DataColumn("String", GetType(String), Nothing, Global.System.Data.MappingType.Element) - Me.columnString.ExtendedProperties.Add("Generator_ColumnPropNameInTable", "StringColumn") - Me.columnString.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "columnString") - Me.columnString.ExtendedProperties.Add("Generator_UserColumnName", "String") - MyBase.Columns.Add(Me.columnString) - Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) - Me.columnGUID.AutoIncrement = true - Me.columnGUID.AutoIncrementSeed = -1 - Me.columnGUID.AutoIncrementStep = -1 - Me.columnGUID.AllowDBNull = false - Me.columnGUID.ReadOnly = true - Me.columnGUID.Unique = true - Me.columnNAME.AllowDBNull = false - Me.columnNAME.MaxLength = 50 - Me.columnOBJECTTYPE.AllowDBNull = false - Me.columnOBJECTTYPE.MaxLength = 100 - Me.columnWD_SEARCH.AllowDBNull = false - Me.columnWD_SEARCH.MaxLength = 250 - Me.columnHOTKEY1.AllowDBNull = false - Me.columnHOTKEY1.MaxLength = 10 - Me.columnHOTKEY2.AllowDBNull = false - Me.columnHOTKEY2.MaxLength = 5 - Me.columnWINDOW_NAME.AllowDBNull = false - Me.columnWINDOW_NAME.MaxLength = 100 - Me.columnADDED_WHO.AllowDBNull = false - Me.columnADDED_WHO.MaxLength = 50 - Me.columnCHANGED_WHO.MaxLength = 50 - Me.columnString.ReadOnly = true - Me.columnString.MaxLength = 78 - End Sub - - _ - Public Function NewTBHOTKEY_PROFILERow() As TBHOTKEY_PROFILERow - Return CType(Me.NewRow,TBHOTKEY_PROFILERow) - End Function - - _ - Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow - Return New TBHOTKEY_PROFILERow(builder) - End Function - - _ - Protected Overrides Function GetRowType() As Global.System.Type - Return GetType(TBHOTKEY_PROFILERow) - End Function - - _ - Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) - MyBase.OnRowChanged(e) - If (Not (Me.TBHOTKEY_PROFILERowChangedEvent) Is Nothing) Then - RaiseEvent TBHOTKEY_PROFILERowChanged(Me, New TBHOTKEY_PROFILERowChangeEvent(CType(e.Row,TBHOTKEY_PROFILERow), e.Action)) - End If - End Sub - - _ - Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) - MyBase.OnRowChanging(e) - If (Not (Me.TBHOTKEY_PROFILERowChangingEvent) Is Nothing) Then - RaiseEvent TBHOTKEY_PROFILERowChanging(Me, New TBHOTKEY_PROFILERowChangeEvent(CType(e.Row,TBHOTKEY_PROFILERow), e.Action)) - End If - End Sub - - _ - Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) - MyBase.OnRowDeleted(e) - If (Not (Me.TBHOTKEY_PROFILERowDeletedEvent) Is Nothing) Then - RaiseEvent TBHOTKEY_PROFILERowDeleted(Me, New TBHOTKEY_PROFILERowChangeEvent(CType(e.Row,TBHOTKEY_PROFILERow), e.Action)) - End If - End Sub - - _ - Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) - MyBase.OnRowDeleting(e) - If (Not (Me.TBHOTKEY_PROFILERowDeletingEvent) Is Nothing) Then - RaiseEvent TBHOTKEY_PROFILERowDeleting(Me, New TBHOTKEY_PROFILERowChangeEvent(CType(e.Row,TBHOTKEY_PROFILERow), e.Action)) - End If - End Sub - - _ - Public Sub RemoveTBHOTKEY_PROFILERow(ByVal row As TBHOTKEY_PROFILERow) - Me.Rows.Remove(row) - End Sub - - _ - Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType - Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() - Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() - Dim ds As MyDataset = New MyDataset() - Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() - any1.Namespace = "http://www.w3.org/2001/XMLSchema" - any1.MinOccurs = New Decimal(0) - any1.MaxOccurs = Decimal.MaxValue - any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax - sequence.Items.Add(any1) - Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() - any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" - any2.MinOccurs = New Decimal(1) - any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax - sequence.Items.Add(any2) - Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() - attribute1.Name = "namespace" - attribute1.FixedValue = ds.Namespace - type.Attributes.Add(attribute1) - Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() - attribute2.Name = "tableTypeName" - attribute2.FixedValue = "TBHOTKEY_PROFILEDataTable" - type.Attributes.Add(attribute2) - type.Particle = sequence - Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable - If xs.Contains(dsSchema.TargetNamespace) Then - Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() - Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() - Try - Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing - dsSchema.Write(s1) - Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator - Do While schemas.MoveNext - schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) - s2.SetLength(0) - schema.Write(s2) - If (s1.Length = s2.Length) Then - s1.Position = 0 - s2.Position = 0 - - Do While ((s1.Position <> s1.Length) _ - AndAlso (s1.ReadByte = s2.ReadByte)) - - - Loop - If (s1.Position = s1.Length) Then - Return type - End If - End If - - Loop - Finally - If (Not (s1) Is Nothing) Then - s1.Close - End If - If (Not (s2) Is Nothing) Then - s2.Close - End If - End Try - End If - xs.Add(dsSchema) - Return type - End Function - End Class - - ''' - '''Represents the strongly named DataTable class. - ''' - _ - Partial Public Class TBHOTKEY_PATTERNSDataTable - Inherits Global.System.Data.TypedTableBase(Of TBHOTKEY_PATTERNSRow) - - Private columnGUID As Global.System.Data.DataColumn - - Private columnHKPROFILE_ID As Global.System.Data.DataColumn - - Private columnPATTERN_WDSEARCH As Global.System.Data.DataColumn - - Private columnWINDOW_CONTROL As Global.System.Data.DataColumn - - Private columnADDED_WHO As Global.System.Data.DataColumn - - Private columnADDED_WHEN As Global.System.Data.DataColumn - - Private columnCHANGED_WHO As Global.System.Data.DataColumn - - Private columnCHANGED_WHEN As Global.System.Data.DataColumn - - Private columnSEQUENCE_NUMBER As Global.System.Data.DataColumn - - _ - Public Sub New() - MyBase.New - Me.TableName = "TBHOTKEY_PATTERNS" - Me.BeginInit - Me.InitClass - Me.EndInit - End Sub - - _ - Friend Sub New(ByVal table As Global.System.Data.DataTable) - MyBase.New - Me.TableName = table.TableName - If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then - Me.CaseSensitive = table.CaseSensitive - End If - If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then - Me.Locale = table.Locale - End If - If (table.Namespace <> table.DataSet.Namespace) Then - Me.Namespace = table.Namespace - End If - Me.Prefix = table.Prefix - Me.MinimumCapacity = table.MinimumCapacity - End Sub - - _ - Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) - MyBase.New(info, context) - Me.InitVars - End Sub - - _ - Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn - Get - Return Me.columnGUID - End Get - End Property - - _ - Public ReadOnly Property HKPROFILE_IDColumn() As Global.System.Data.DataColumn - Get - Return Me.columnHKPROFILE_ID - End Get - End Property - - _ - Public ReadOnly Property PATTERN_WDSEARCHColumn() As Global.System.Data.DataColumn - Get - Return Me.columnPATTERN_WDSEARCH - End Get - End Property - - _ - Public ReadOnly Property WINDOW_CONTROLColumn() As Global.System.Data.DataColumn - Get - Return Me.columnWINDOW_CONTROL - End Get - End Property - - _ - Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn - Get - Return Me.columnADDED_WHO - End Get - End Property - - _ - Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn - Get - Return Me.columnADDED_WHEN - End Get - End Property - - _ - Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn - Get - Return Me.columnCHANGED_WHO - End Get - End Property - - _ - Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn - Get - Return Me.columnCHANGED_WHEN - End Get - End Property - - _ - Public ReadOnly Property SEQUENCE_NUMBERColumn() As Global.System.Data.DataColumn - Get - Return Me.columnSEQUENCE_NUMBER - End Get - End Property - - _ - Public ReadOnly Property Count() As Integer - Get - Return Me.Rows.Count - End Get - End Property - - _ - Public Default ReadOnly Property Item(ByVal index As Integer) As TBHOTKEY_PATTERNSRow - Get - Return CType(Me.Rows(index),TBHOTKEY_PATTERNSRow) - End Get - End Property - - _ - Public Event TBHOTKEY_PATTERNSRowChanging As TBHOTKEY_PATTERNSRowChangeEventHandler - - _ - Public Event TBHOTKEY_PATTERNSRowChanged As TBHOTKEY_PATTERNSRowChangeEventHandler - - _ - Public Event TBHOTKEY_PATTERNSRowDeleting As TBHOTKEY_PATTERNSRowChangeEventHandler - - _ - Public Event TBHOTKEY_PATTERNSRowDeleted As TBHOTKEY_PATTERNSRowChangeEventHandler - - _ - Public Overloads Sub AddTBHOTKEY_PATTERNSRow(ByVal row As TBHOTKEY_PATTERNSRow) - Me.Rows.Add(row) - End Sub - - _ - Public Overloads Function AddTBHOTKEY_PATTERNSRow(ByVal parentTBHOTKEY_PROFILERowByFK_TBHOTKEY_PATTERNS_PROFILE_ID As TBHOTKEY_PROFILERow, ByVal PATTERN_WDSEARCH As String, ByVal WINDOW_CONTROL As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date, ByVal SEQUENCE_NUMBER As Integer) As TBHOTKEY_PATTERNSRow - Dim rowTBHOTKEY_PATTERNSRow As TBHOTKEY_PATTERNSRow = CType(Me.NewRow,TBHOTKEY_PATTERNSRow) - Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, PATTERN_WDSEARCH, WINDOW_CONTROL, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, SEQUENCE_NUMBER} - If (Not (parentTBHOTKEY_PROFILERowByFK_TBHOTKEY_PATTERNS_PROFILE_ID) Is Nothing) Then - columnValuesArray(1) = parentTBHOTKEY_PROFILERowByFK_TBHOTKEY_PATTERNS_PROFILE_ID(0) - End If - rowTBHOTKEY_PATTERNSRow.ItemArray = columnValuesArray - Me.Rows.Add(rowTBHOTKEY_PATTERNSRow) - Return rowTBHOTKEY_PATTERNSRow - End Function - - _ - Public Function FindByGUID(ByVal GUID As Integer) As TBHOTKEY_PATTERNSRow - Return CType(Me.Rows.Find(New Object() {GUID}),TBHOTKEY_PATTERNSRow) - End Function - - _ - Public Overrides Function Clone() As Global.System.Data.DataTable - Dim cln As TBHOTKEY_PATTERNSDataTable = CType(MyBase.Clone,TBHOTKEY_PATTERNSDataTable) - cln.InitVars - Return cln - End Function - - _ - Protected Overrides Function CreateInstance() As Global.System.Data.DataTable - Return New TBHOTKEY_PATTERNSDataTable() - End Function - - _ - Friend Sub InitVars() - Me.columnGUID = MyBase.Columns("GUID") - Me.columnHKPROFILE_ID = MyBase.Columns("HKPROFILE_ID") - Me.columnPATTERN_WDSEARCH = MyBase.Columns("PATTERN_WDSEARCH") - Me.columnWINDOW_CONTROL = MyBase.Columns("WINDOW_CONTROL") - Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") - Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") - Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") - Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") - Me.columnSEQUENCE_NUMBER = MyBase.Columns("SEQUENCE_NUMBER") - End Sub - - _ - Private Sub InitClass() - Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnGUID) - Me.columnHKPROFILE_ID = New Global.System.Data.DataColumn("HKPROFILE_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnHKPROFILE_ID) - Me.columnPATTERN_WDSEARCH = New Global.System.Data.DataColumn("PATTERN_WDSEARCH", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnPATTERN_WDSEARCH) - Me.columnWINDOW_CONTROL = New Global.System.Data.DataColumn("WINDOW_CONTROL", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnWINDOW_CONTROL) - Me.columnADDED_WHO = New Global.System.Data.DataColumn("ADDED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnADDED_WHO) - Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnADDED_WHEN) - Me.columnCHANGED_WHO = New Global.System.Data.DataColumn("CHANGED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnCHANGED_WHO) - Me.columnCHANGED_WHEN = New Global.System.Data.DataColumn("CHANGED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnCHANGED_WHEN) - Me.columnSEQUENCE_NUMBER = New Global.System.Data.DataColumn("SEQUENCE_NUMBER", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnSEQUENCE_NUMBER) - Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) - Me.columnGUID.AutoIncrement = true - Me.columnGUID.AutoIncrementSeed = -1 - Me.columnGUID.AutoIncrementStep = -1 - Me.columnGUID.AllowDBNull = false - Me.columnGUID.ReadOnly = true - Me.columnGUID.Unique = true - Me.columnHKPROFILE_ID.AllowDBNull = false - Me.columnPATTERN_WDSEARCH.AllowDBNull = false - Me.columnPATTERN_WDSEARCH.MaxLength = 50 - Me.columnWINDOW_CONTROL.AllowDBNull = false - Me.columnWINDOW_CONTROL.MaxLength = 100 - Me.columnADDED_WHO.AllowDBNull = false - Me.columnADDED_WHO.MaxLength = 50 - Me.columnCHANGED_WHO.MaxLength = 50 - Me.columnSEQUENCE_NUMBER.AllowDBNull = false - End Sub - - _ - Public Function NewTBHOTKEY_PATTERNSRow() As TBHOTKEY_PATTERNSRow - Return CType(Me.NewRow,TBHOTKEY_PATTERNSRow) - End Function - - _ - Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow - Return New TBHOTKEY_PATTERNSRow(builder) - End Function - - _ - Protected Overrides Function GetRowType() As Global.System.Type - Return GetType(TBHOTKEY_PATTERNSRow) - End Function - - _ - Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) - MyBase.OnRowChanged(e) - If (Not (Me.TBHOTKEY_PATTERNSRowChangedEvent) Is Nothing) Then - RaiseEvent TBHOTKEY_PATTERNSRowChanged(Me, New TBHOTKEY_PATTERNSRowChangeEvent(CType(e.Row,TBHOTKEY_PATTERNSRow), e.Action)) - End If - End Sub - - _ - Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) - MyBase.OnRowChanging(e) - If (Not (Me.TBHOTKEY_PATTERNSRowChangingEvent) Is Nothing) Then - RaiseEvent TBHOTKEY_PATTERNSRowChanging(Me, New TBHOTKEY_PATTERNSRowChangeEvent(CType(e.Row,TBHOTKEY_PATTERNSRow), e.Action)) - End If - End Sub - - _ - Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) - MyBase.OnRowDeleted(e) - If (Not (Me.TBHOTKEY_PATTERNSRowDeletedEvent) Is Nothing) Then - RaiseEvent TBHOTKEY_PATTERNSRowDeleted(Me, New TBHOTKEY_PATTERNSRowChangeEvent(CType(e.Row,TBHOTKEY_PATTERNSRow), e.Action)) - End If - End Sub - - _ - Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) - MyBase.OnRowDeleting(e) - If (Not (Me.TBHOTKEY_PATTERNSRowDeletingEvent) Is Nothing) Then - RaiseEvent TBHOTKEY_PATTERNSRowDeleting(Me, New TBHOTKEY_PATTERNSRowChangeEvent(CType(e.Row,TBHOTKEY_PATTERNSRow), e.Action)) - End If - End Sub - - _ - Public Sub RemoveTBHOTKEY_PATTERNSRow(ByVal row As TBHOTKEY_PATTERNSRow) - Me.Rows.Remove(row) - End Sub - - _ - Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType - Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() - Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() - Dim ds As MyDataset = New MyDataset() - Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() - any1.Namespace = "http://www.w3.org/2001/XMLSchema" - any1.MinOccurs = New Decimal(0) - any1.MaxOccurs = Decimal.MaxValue - any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax - sequence.Items.Add(any1) - Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() - any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" - any2.MinOccurs = New Decimal(1) - any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax - sequence.Items.Add(any2) - Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() - attribute1.Name = "namespace" - attribute1.FixedValue = ds.Namespace - type.Attributes.Add(attribute1) - Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() - attribute2.Name = "tableTypeName" - attribute2.FixedValue = "TBHOTKEY_PATTERNSDataTable" - type.Attributes.Add(attribute2) - type.Particle = sequence - Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable - If xs.Contains(dsSchema.TargetNamespace) Then - Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() - Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() - Try - Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing - dsSchema.Write(s1) - Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator - Do While schemas.MoveNext - schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) - s2.SetLength(0) - schema.Write(s2) - If (s1.Length = s2.Length) Then - s1.Position = 0 - s2.Position = 0 - - Do While ((s1.Position <> s1.Length) _ - AndAlso (s1.ReadByte = s2.ReadByte)) - - - Loop - If (s1.Position = s1.Length) Then - Return type - End If - End If - - Loop - Finally - If (Not (s1) Is Nothing) Then - s1.Close - End If - If (Not (s2) Is Nothing) Then - s2.Close - End If - End Try - End If - xs.Add(dsSchema) - Return type - End Function - End Class - - ''' - '''Represents the strongly named DataTable class. - ''' - _ - Partial Public Class TBMYHOTKEYSDataTable - Inherits Global.System.Data.TypedTableBase(Of TBMYHOTKEYSRow) - - Private columnGUID As Global.System.Data.DataColumn - - Private columnString As Global.System.Data.DataColumn - - _ - Public Sub New() - MyBase.New - Me.TableName = "TBMYHOTKEYS" - Me.BeginInit - Me.InitClass - Me.EndInit - End Sub - - _ - Friend Sub New(ByVal table As Global.System.Data.DataTable) - MyBase.New - Me.TableName = table.TableName - If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then - Me.CaseSensitive = table.CaseSensitive - End If - If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then - Me.Locale = table.Locale - End If - If (table.Namespace <> table.DataSet.Namespace) Then - Me.Namespace = table.Namespace - End If - Me.Prefix = table.Prefix - Me.MinimumCapacity = table.MinimumCapacity - End Sub - - _ - Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) - MyBase.New(info, context) - Me.InitVars - End Sub - - _ - Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn - Get - Return Me.columnGUID - End Get - End Property - - _ - Public ReadOnly Property StringColumn() As Global.System.Data.DataColumn - Get - Return Me.columnString - End Get - End Property - - _ - Public ReadOnly Property Count() As Integer - Get - Return Me.Rows.Count - End Get - End Property - - _ - Public Default ReadOnly Property Item(ByVal index As Integer) As TBMYHOTKEYSRow - Get - Return CType(Me.Rows(index),TBMYHOTKEYSRow) - End Get - End Property - - _ - Public Event TBMYHOTKEYSRowChanging As TBMYHOTKEYSRowChangeEventHandler - - _ - Public Event TBMYHOTKEYSRowChanged As TBMYHOTKEYSRowChangeEventHandler - - _ - Public Event TBMYHOTKEYSRowDeleting As TBMYHOTKEYSRowChangeEventHandler - - _ - Public Event TBMYHOTKEYSRowDeleted As TBMYHOTKEYSRowChangeEventHandler - - _ - Public Overloads Sub AddTBMYHOTKEYSRow(ByVal row As TBMYHOTKEYSRow) - Me.Rows.Add(row) - End Sub - - _ - Public Overloads Function AddTBMYHOTKEYSRow(ByVal _String As String) As TBMYHOTKEYSRow - Dim rowTBMYHOTKEYSRow As TBMYHOTKEYSRow = CType(Me.NewRow,TBMYHOTKEYSRow) - Dim columnValuesArray() As Object = New Object() {Nothing, _String} - rowTBMYHOTKEYSRow.ItemArray = columnValuesArray - Me.Rows.Add(rowTBMYHOTKEYSRow) - Return rowTBMYHOTKEYSRow - End Function - - _ - Public Function FindByGUID(ByVal GUID As Integer) As TBMYHOTKEYSRow - Return CType(Me.Rows.Find(New Object() {GUID}),TBMYHOTKEYSRow) - End Function - - _ - Public Overrides Function Clone() As Global.System.Data.DataTable - Dim cln As TBMYHOTKEYSDataTable = CType(MyBase.Clone,TBMYHOTKEYSDataTable) - cln.InitVars - Return cln - End Function - - _ - Protected Overrides Function CreateInstance() As Global.System.Data.DataTable - Return New TBMYHOTKEYSDataTable() - End Function - - _ - Friend Sub InitVars() - Me.columnGUID = MyBase.Columns("GUID") - Me.columnString = MyBase.Columns("String") - End Sub - - _ - Private Sub InitClass() - Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnGUID) - Me.columnString = New Global.System.Data.DataColumn("String", GetType(String), Nothing, Global.System.Data.MappingType.Element) - Me.columnString.ExtendedProperties.Add("Generator_ColumnPropNameInTable", "StringColumn") - Me.columnString.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "columnString") - Me.columnString.ExtendedProperties.Add("Generator_UserColumnName", "String") - MyBase.Columns.Add(Me.columnString) - Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) - Me.columnGUID.AutoIncrement = true - Me.columnGUID.AutoIncrementSeed = -1 - Me.columnGUID.AutoIncrementStep = -1 - Me.columnGUID.AllowDBNull = false - Me.columnGUID.ReadOnly = true - Me.columnGUID.Unique = true - Me.columnString.ReadOnly = true - Me.columnString.MaxLength = 78 - End Sub - - _ - Public Function NewTBMYHOTKEYSRow() As TBMYHOTKEYSRow - Return CType(Me.NewRow,TBMYHOTKEYSRow) - End Function - - _ - Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow - Return New TBMYHOTKEYSRow(builder) - End Function - - _ - Protected Overrides Function GetRowType() As Global.System.Type - Return GetType(TBMYHOTKEYSRow) - End Function - - _ - Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) - MyBase.OnRowChanged(e) - If (Not (Me.TBMYHOTKEYSRowChangedEvent) Is Nothing) Then - RaiseEvent TBMYHOTKEYSRowChanged(Me, New TBMYHOTKEYSRowChangeEvent(CType(e.Row,TBMYHOTKEYSRow), e.Action)) - End If - End Sub - - _ - Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) - MyBase.OnRowChanging(e) - If (Not (Me.TBMYHOTKEYSRowChangingEvent) Is Nothing) Then - RaiseEvent TBMYHOTKEYSRowChanging(Me, New TBMYHOTKEYSRowChangeEvent(CType(e.Row,TBMYHOTKEYSRow), e.Action)) - End If - End Sub - - _ - Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) - MyBase.OnRowDeleted(e) - If (Not (Me.TBMYHOTKEYSRowDeletedEvent) Is Nothing) Then - RaiseEvent TBMYHOTKEYSRowDeleted(Me, New TBMYHOTKEYSRowChangeEvent(CType(e.Row,TBMYHOTKEYSRow), e.Action)) - End If - End Sub - - _ - Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) - MyBase.OnRowDeleting(e) - If (Not (Me.TBMYHOTKEYSRowDeletingEvent) Is Nothing) Then - RaiseEvent TBMYHOTKEYSRowDeleting(Me, New TBMYHOTKEYSRowChangeEvent(CType(e.Row,TBMYHOTKEYSRow), e.Action)) - End If - End Sub - - _ - Public Sub RemoveTBMYHOTKEYSRow(ByVal row As TBMYHOTKEYSRow) - Me.Rows.Remove(row) - End Sub - - _ - Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType - Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() - Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() - Dim ds As MyDataset = New MyDataset() - Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() - any1.Namespace = "http://www.w3.org/2001/XMLSchema" - any1.MinOccurs = New Decimal(0) - any1.MaxOccurs = Decimal.MaxValue - any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax - sequence.Items.Add(any1) - Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() - any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" - any2.MinOccurs = New Decimal(1) - any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax - sequence.Items.Add(any2) - Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() - attribute1.Name = "namespace" - attribute1.FixedValue = ds.Namespace - type.Attributes.Add(attribute1) - Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() - attribute2.Name = "tableTypeName" - attribute2.FixedValue = "TBMYHOTKEYSDataTable" - type.Attributes.Add(attribute2) - type.Particle = sequence - Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable - If xs.Contains(dsSchema.TargetNamespace) Then - Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() - Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() - Try - Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing - dsSchema.Write(s1) - Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator - Do While schemas.MoveNext - schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) - s2.SetLength(0) - schema.Write(s2) - If (s1.Length = s2.Length) Then - s1.Position = 0 - s2.Position = 0 - - Do While ((s1.Position <> s1.Length) _ - AndAlso (s1.ReadByte = s2.ReadByte)) - - - Loop - If (s1.Position = s1.Length) Then - Return type - End If - End If - - Loop - Finally - If (Not (s1) Is Nothing) Then - s1.Close - End If - If (Not (s2) Is Nothing) Then - s2.Close - End If - End Try - End If - xs.Add(dsSchema) - Return type - End Function - End Class - - ''' - '''Represents the strongly named DataTable class. - ''' - _ - Partial Public Class TBHOTKEY_USER_PROFILEDataTable - Inherits Global.System.Data.TypedTableBase(Of TBHOTKEY_USER_PROFILERow) - - Private columnGUID As Global.System.Data.DataColumn - - Private columnHKPROFILE_ID As Global.System.Data.DataColumn - - Private columnUSER_ID As Global.System.Data.DataColumn - - Private columnWD_SEARCH As Global.System.Data.DataColumn - - Private columnHOTKEY1 As Global.System.Data.DataColumn - - Private columnHOTKEY2 As Global.System.Data.DataColumn - - Private columnADDED_WHO As Global.System.Data.DataColumn - - Private columnADDED_WHEN As Global.System.Data.DataColumn - - Private columnCHANGED_WHO As Global.System.Data.DataColumn - - Private columnCHANGED_WHEN As Global.System.Data.DataColumn - - _ - Public Sub New() - MyBase.New - Me.TableName = "TBHOTKEY_USER_PROFILE" - Me.BeginInit - Me.InitClass - Me.EndInit - End Sub - - _ - Friend Sub New(ByVal table As Global.System.Data.DataTable) - MyBase.New - Me.TableName = table.TableName - If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then - Me.CaseSensitive = table.CaseSensitive - End If - If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then - Me.Locale = table.Locale - End If - If (table.Namespace <> table.DataSet.Namespace) Then - Me.Namespace = table.Namespace - End If - Me.Prefix = table.Prefix - Me.MinimumCapacity = table.MinimumCapacity - End Sub - - _ - Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) - MyBase.New(info, context) - Me.InitVars - End Sub - - _ - Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn - Get - Return Me.columnGUID - End Get - End Property - - _ - Public ReadOnly Property HKPROFILE_IDColumn() As Global.System.Data.DataColumn - Get - Return Me.columnHKPROFILE_ID - End Get - End Property - - _ - Public ReadOnly Property USER_IDColumn() As Global.System.Data.DataColumn - Get - Return Me.columnUSER_ID - End Get - End Property - - _ - Public ReadOnly Property WD_SEARCHColumn() As Global.System.Data.DataColumn - Get - Return Me.columnWD_SEARCH - End Get - End Property - - _ - Public ReadOnly Property HOTKEY1Column() As Global.System.Data.DataColumn - Get - Return Me.columnHOTKEY1 - End Get - End Property - - _ - Public ReadOnly Property HOTKEY2Column() As Global.System.Data.DataColumn - Get - Return Me.columnHOTKEY2 - End Get - End Property - - _ - Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn - Get - Return Me.columnADDED_WHO - End Get - End Property - - _ - Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn - Get - Return Me.columnADDED_WHEN - End Get - End Property - - _ - Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn - Get - Return Me.columnCHANGED_WHO - End Get - End Property - - _ - Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn - Get - Return Me.columnCHANGED_WHEN - End Get - End Property - - _ - Public ReadOnly Property Count() As Integer - Get - Return Me.Rows.Count - End Get - End Property - - _ - Public Default ReadOnly Property Item(ByVal index As Integer) As TBHOTKEY_USER_PROFILERow - Get - Return CType(Me.Rows(index),TBHOTKEY_USER_PROFILERow) - End Get - End Property - - _ - Public Event TBHOTKEY_USER_PROFILERowChanging As TBHOTKEY_USER_PROFILERowChangeEventHandler - - _ - Public Event TBHOTKEY_USER_PROFILERowChanged As TBHOTKEY_USER_PROFILERowChangeEventHandler - - _ - Public Event TBHOTKEY_USER_PROFILERowDeleting As TBHOTKEY_USER_PROFILERowChangeEventHandler - - _ - Public Event TBHOTKEY_USER_PROFILERowDeleted As TBHOTKEY_USER_PROFILERowChangeEventHandler - - _ - Public Overloads Sub AddTBHOTKEY_USER_PROFILERow(ByVal row As TBHOTKEY_USER_PROFILERow) - Me.Rows.Add(row) - End Sub - - _ - Public Overloads Function AddTBHOTKEY_USER_PROFILERow(ByVal parentTBHOTKEY_PROFILERowByFK_TBHOTKEY_USER_PROFILE_PROFILE_ID As TBHOTKEY_PROFILERow, ByVal parentTBDD_USERRowByFK_TBHOTKEY_USER_PROFILE_USER_ID As TBDD_USERRow, ByVal WD_SEARCH As String, ByVal HOTKEY1 As String, ByVal HOTKEY2 As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date) As TBHOTKEY_USER_PROFILERow - Dim rowTBHOTKEY_USER_PROFILERow As TBHOTKEY_USER_PROFILERow = CType(Me.NewRow,TBHOTKEY_USER_PROFILERow) - Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, Nothing, WD_SEARCH, HOTKEY1, HOTKEY2, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN} - If (Not (parentTBHOTKEY_PROFILERowByFK_TBHOTKEY_USER_PROFILE_PROFILE_ID) Is Nothing) Then - columnValuesArray(1) = parentTBHOTKEY_PROFILERowByFK_TBHOTKEY_USER_PROFILE_PROFILE_ID(0) - End If - If (Not (parentTBDD_USERRowByFK_TBHOTKEY_USER_PROFILE_USER_ID) Is Nothing) Then - columnValuesArray(2) = parentTBDD_USERRowByFK_TBHOTKEY_USER_PROFILE_USER_ID(0) - End If - rowTBHOTKEY_USER_PROFILERow.ItemArray = columnValuesArray - Me.Rows.Add(rowTBHOTKEY_USER_PROFILERow) - Return rowTBHOTKEY_USER_PROFILERow - End Function - - _ - Public Function FindByGUID(ByVal GUID As Integer) As TBHOTKEY_USER_PROFILERow - Return CType(Me.Rows.Find(New Object() {GUID}),TBHOTKEY_USER_PROFILERow) - End Function - - _ - Public Overrides Function Clone() As Global.System.Data.DataTable - Dim cln As TBHOTKEY_USER_PROFILEDataTable = CType(MyBase.Clone,TBHOTKEY_USER_PROFILEDataTable) - cln.InitVars - Return cln - End Function - - _ - Protected Overrides Function CreateInstance() As Global.System.Data.DataTable - Return New TBHOTKEY_USER_PROFILEDataTable() - End Function - - _ - Friend Sub InitVars() - Me.columnGUID = MyBase.Columns("GUID") - Me.columnHKPROFILE_ID = MyBase.Columns("HKPROFILE_ID") - Me.columnUSER_ID = MyBase.Columns("USER_ID") - Me.columnWD_SEARCH = MyBase.Columns("WD_SEARCH") - Me.columnHOTKEY1 = MyBase.Columns("HOTKEY1") - Me.columnHOTKEY2 = MyBase.Columns("HOTKEY2") - Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") - Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") - Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") - Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") - End Sub - - _ - Private Sub InitClass() - Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnGUID) - Me.columnHKPROFILE_ID = New Global.System.Data.DataColumn("HKPROFILE_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnHKPROFILE_ID) - Me.columnUSER_ID = New Global.System.Data.DataColumn("USER_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnUSER_ID) - Me.columnWD_SEARCH = New Global.System.Data.DataColumn("WD_SEARCH", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnWD_SEARCH) - Me.columnHOTKEY1 = New Global.System.Data.DataColumn("HOTKEY1", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnHOTKEY1) - Me.columnHOTKEY2 = New Global.System.Data.DataColumn("HOTKEY2", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnHOTKEY2) - Me.columnADDED_WHO = New Global.System.Data.DataColumn("ADDED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnADDED_WHO) - Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnADDED_WHEN) - Me.columnCHANGED_WHO = New Global.System.Data.DataColumn("CHANGED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnCHANGED_WHO) - Me.columnCHANGED_WHEN = New Global.System.Data.DataColumn("CHANGED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnCHANGED_WHEN) - Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) - Me.columnGUID.AutoIncrement = true - Me.columnGUID.AllowDBNull = false - Me.columnGUID.ReadOnly = true - Me.columnGUID.Unique = true - Me.columnHKPROFILE_ID.AllowDBNull = false - Me.columnUSER_ID.AllowDBNull = false - Me.columnWD_SEARCH.AllowDBNull = false - Me.columnWD_SEARCH.DefaultValue = CType("",String) - Me.columnWD_SEARCH.MaxLength = 250 - Me.columnHOTKEY1.AllowDBNull = false - Me.columnHOTKEY1.DefaultValue = CType("",String) - Me.columnHOTKEY1.MaxLength = 10 - Me.columnHOTKEY2.AllowDBNull = false - Me.columnHOTKEY2.DefaultValue = CType("",String) - Me.columnHOTKEY2.MaxLength = 5 - Me.columnADDED_WHO.AllowDBNull = false - Me.columnADDED_WHO.MaxLength = 50 - Me.columnCHANGED_WHO.MaxLength = 50 - End Sub - - _ - Public Function NewTBHOTKEY_USER_PROFILERow() As TBHOTKEY_USER_PROFILERow - Return CType(Me.NewRow,TBHOTKEY_USER_PROFILERow) - End Function - - _ - Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow - Return New TBHOTKEY_USER_PROFILERow(builder) - End Function - - _ - Protected Overrides Function GetRowType() As Global.System.Type - Return GetType(TBHOTKEY_USER_PROFILERow) - End Function - - _ - Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) - MyBase.OnRowChanged(e) - If (Not (Me.TBHOTKEY_USER_PROFILERowChangedEvent) Is Nothing) Then - RaiseEvent TBHOTKEY_USER_PROFILERowChanged(Me, New TBHOTKEY_USER_PROFILERowChangeEvent(CType(e.Row,TBHOTKEY_USER_PROFILERow), e.Action)) - End If - End Sub - - _ - Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) - MyBase.OnRowChanging(e) - If (Not (Me.TBHOTKEY_USER_PROFILERowChangingEvent) Is Nothing) Then - RaiseEvent TBHOTKEY_USER_PROFILERowChanging(Me, New TBHOTKEY_USER_PROFILERowChangeEvent(CType(e.Row,TBHOTKEY_USER_PROFILERow), e.Action)) - End If - End Sub - - _ - Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) - MyBase.OnRowDeleted(e) - If (Not (Me.TBHOTKEY_USER_PROFILERowDeletedEvent) Is Nothing) Then - RaiseEvent TBHOTKEY_USER_PROFILERowDeleted(Me, New TBHOTKEY_USER_PROFILERowChangeEvent(CType(e.Row,TBHOTKEY_USER_PROFILERow), e.Action)) - End If - End Sub - - _ - Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) - MyBase.OnRowDeleting(e) - If (Not (Me.TBHOTKEY_USER_PROFILERowDeletingEvent) Is Nothing) Then - RaiseEvent TBHOTKEY_USER_PROFILERowDeleting(Me, New TBHOTKEY_USER_PROFILERowChangeEvent(CType(e.Row,TBHOTKEY_USER_PROFILERow), e.Action)) - End If - End Sub - - _ - Public Sub RemoveTBHOTKEY_USER_PROFILERow(ByVal row As TBHOTKEY_USER_PROFILERow) - Me.Rows.Remove(row) - End Sub - - _ - Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType - Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() - Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() - Dim ds As MyDataset = New MyDataset() - Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() - any1.Namespace = "http://www.w3.org/2001/XMLSchema" - any1.MinOccurs = New Decimal(0) - any1.MaxOccurs = Decimal.MaxValue - any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax - sequence.Items.Add(any1) - Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() - any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" - any2.MinOccurs = New Decimal(1) - any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax - sequence.Items.Add(any2) - Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() - attribute1.Name = "namespace" - attribute1.FixedValue = ds.Namespace - type.Attributes.Add(attribute1) - Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() - attribute2.Name = "tableTypeName" - attribute2.FixedValue = "TBHOTKEY_USER_PROFILEDataTable" - type.Attributes.Add(attribute2) - type.Particle = sequence - Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable - If xs.Contains(dsSchema.TargetNamespace) Then - Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() - Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() - Try - Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing - dsSchema.Write(s1) - Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator - Do While schemas.MoveNext - schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) - s2.SetLength(0) - schema.Write(s2) - If (s1.Length = s2.Length) Then - s1.Position = 0 - s2.Position = 0 - - Do While ((s1.Position <> s1.Length) _ - AndAlso (s1.ReadByte = s2.ReadByte)) - - - Loop - If (s1.Position = s1.Length) Then - Return type - End If - End If - - Loop - Finally - If (Not (s1) Is Nothing) Then - s1.Close - End If - If (Not (s2) Is Nothing) Then - s2.Close - End If - End Try - End If - xs.Add(dsSchema) - Return type - End Function - End Class - - ''' - '''Represents the strongly named DataTable class. - ''' - _ - Partial Public Class TBHOTKEY_PATTERNS_REWORKDataTable - Inherits Global.System.Data.TypedTableBase(Of TBHOTKEY_PATTERNS_REWORKRow) - - Private columnGUID As Global.System.Data.DataColumn - - Private columnHKPATTERN_ID As Global.System.Data.DataColumn - - Private columnTYPE As Global.System.Data.DataColumn - - Private columnFUNCTION1 As Global.System.Data.DataColumn - - Private columnFUNCTION2 As Global.System.Data.DataColumn - - Private columnTEXT1 As Global.System.Data.DataColumn - - Private columnTEXT2 As Global.System.Data.DataColumn - - Private columnSEQUENCE As Global.System.Data.DataColumn - - Private columnADDED_WHO As Global.System.Data.DataColumn - - Private columnADDED_WHEN As Global.System.Data.DataColumn - - Private columnCHANGED_WHO As Global.System.Data.DataColumn - - Private columnCHANGED_WHEN As Global.System.Data.DataColumn - - _ - Public Sub New() - MyBase.New - Me.TableName = "TBHOTKEY_PATTERNS_REWORK" - Me.BeginInit - Me.InitClass - Me.EndInit - End Sub - - _ - Friend Sub New(ByVal table As Global.System.Data.DataTable) - MyBase.New - Me.TableName = table.TableName - If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then - Me.CaseSensitive = table.CaseSensitive - End If - If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then - Me.Locale = table.Locale - End If - If (table.Namespace <> table.DataSet.Namespace) Then - Me.Namespace = table.Namespace - End If - Me.Prefix = table.Prefix - Me.MinimumCapacity = table.MinimumCapacity - End Sub - - _ - Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) - MyBase.New(info, context) - Me.InitVars - End Sub - - _ - Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn - Get - Return Me.columnGUID - End Get - End Property - - _ - Public ReadOnly Property HKPATTERN_IDColumn() As Global.System.Data.DataColumn - Get - Return Me.columnHKPATTERN_ID - End Get - End Property - - _ - Public ReadOnly Property TYPEColumn() As Global.System.Data.DataColumn - Get - Return Me.columnTYPE - End Get - End Property - - _ - Public ReadOnly Property FUNCTION1Column() As Global.System.Data.DataColumn - Get - Return Me.columnFUNCTION1 - End Get - End Property - - _ - Public ReadOnly Property FUNCTION2Column() As Global.System.Data.DataColumn - Get - Return Me.columnFUNCTION2 - End Get - End Property - - _ - Public ReadOnly Property TEXT1Column() As Global.System.Data.DataColumn - Get - Return Me.columnTEXT1 - End Get - End Property - - _ - Public ReadOnly Property TEXT2Column() As Global.System.Data.DataColumn - Get - Return Me.columnTEXT2 - End Get - End Property - - _ - Public ReadOnly Property SEQUENCEColumn() As Global.System.Data.DataColumn - Get - Return Me.columnSEQUENCE - End Get - End Property - - _ - Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn - Get - Return Me.columnADDED_WHO - End Get - End Property - - _ - Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn - Get - Return Me.columnADDED_WHEN - End Get - End Property - - _ - Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn - Get - Return Me.columnCHANGED_WHO - End Get - End Property - - _ - Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn - Get - Return Me.columnCHANGED_WHEN - End Get - End Property - - _ - Public ReadOnly Property Count() As Integer - Get - Return Me.Rows.Count - End Get - End Property - - _ - Public Default ReadOnly Property Item(ByVal index As Integer) As TBHOTKEY_PATTERNS_REWORKRow - Get - Return CType(Me.Rows(index),TBHOTKEY_PATTERNS_REWORKRow) - End Get - End Property - - _ - Public Event TBHOTKEY_PATTERNS_REWORKRowChanging As TBHOTKEY_PATTERNS_REWORKRowChangeEventHandler - - _ - Public Event TBHOTKEY_PATTERNS_REWORKRowChanged As TBHOTKEY_PATTERNS_REWORKRowChangeEventHandler - - _ - Public Event TBHOTKEY_PATTERNS_REWORKRowDeleting As TBHOTKEY_PATTERNS_REWORKRowChangeEventHandler - - _ - Public Event TBHOTKEY_PATTERNS_REWORKRowDeleted As TBHOTKEY_PATTERNS_REWORKRowChangeEventHandler - - _ - Public Overloads Sub AddTBHOTKEY_PATTERNS_REWORKRow(ByVal row As TBHOTKEY_PATTERNS_REWORKRow) - Me.Rows.Add(row) - End Sub - - _ - Public Overloads Function AddTBHOTKEY_PATTERNS_REWORKRow(ByVal parentTBHOTKEY_PATTERNSRowByFK_TBHOTKEY_PATTERNS_REWORK_HKPATTERN_ID As TBHOTKEY_PATTERNSRow, ByVal TYPE As String, ByVal FUNCTION1 As String, ByVal FUNCTION2 As String, ByVal TEXT1 As String, ByVal TEXT2 As String, ByVal SEQUENCE As Integer, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date) As TBHOTKEY_PATTERNS_REWORKRow - Dim rowTBHOTKEY_PATTERNS_REWORKRow As TBHOTKEY_PATTERNS_REWORKRow = CType(Me.NewRow,TBHOTKEY_PATTERNS_REWORKRow) - Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, TYPE, FUNCTION1, FUNCTION2, TEXT1, TEXT2, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN} - If (Not (parentTBHOTKEY_PATTERNSRowByFK_TBHOTKEY_PATTERNS_REWORK_HKPATTERN_ID) Is Nothing) Then - columnValuesArray(1) = parentTBHOTKEY_PATTERNSRowByFK_TBHOTKEY_PATTERNS_REWORK_HKPATTERN_ID(0) - End If - rowTBHOTKEY_PATTERNS_REWORKRow.ItemArray = columnValuesArray - Me.Rows.Add(rowTBHOTKEY_PATTERNS_REWORKRow) - Return rowTBHOTKEY_PATTERNS_REWORKRow - End Function - - _ - Public Function FindByGUID(ByVal GUID As Integer) As TBHOTKEY_PATTERNS_REWORKRow - Return CType(Me.Rows.Find(New Object() {GUID}),TBHOTKEY_PATTERNS_REWORKRow) - End Function - - _ - Public Overrides Function Clone() As Global.System.Data.DataTable - Dim cln As TBHOTKEY_PATTERNS_REWORKDataTable = CType(MyBase.Clone,TBHOTKEY_PATTERNS_REWORKDataTable) - cln.InitVars - Return cln - End Function - - _ - Protected Overrides Function CreateInstance() As Global.System.Data.DataTable - Return New TBHOTKEY_PATTERNS_REWORKDataTable() - End Function - - _ - Friend Sub InitVars() - Me.columnGUID = MyBase.Columns("GUID") - Me.columnHKPATTERN_ID = MyBase.Columns("HKPATTERN_ID") - Me.columnTYPE = MyBase.Columns("TYPE") - Me.columnFUNCTION1 = MyBase.Columns("FUNCTION1") - Me.columnFUNCTION2 = MyBase.Columns("FUNCTION2") - Me.columnTEXT1 = MyBase.Columns("TEXT1") - Me.columnTEXT2 = MyBase.Columns("TEXT2") - Me.columnSEQUENCE = MyBase.Columns("SEQUENCE") - Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") - Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") - Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") - Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") - End Sub - - _ - Private Sub InitClass() - Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnGUID) - Me.columnHKPATTERN_ID = New Global.System.Data.DataColumn("HKPATTERN_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnHKPATTERN_ID) - Me.columnTYPE = New Global.System.Data.DataColumn("TYPE", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnTYPE) - Me.columnFUNCTION1 = New Global.System.Data.DataColumn("FUNCTION1", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnFUNCTION1) - Me.columnFUNCTION2 = New Global.System.Data.DataColumn("FUNCTION2", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnFUNCTION2) - Me.columnTEXT1 = New Global.System.Data.DataColumn("TEXT1", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnTEXT1) - Me.columnTEXT2 = New Global.System.Data.DataColumn("TEXT2", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnTEXT2) - Me.columnSEQUENCE = New Global.System.Data.DataColumn("SEQUENCE", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnSEQUENCE) - Me.columnADDED_WHO = New Global.System.Data.DataColumn("ADDED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnADDED_WHO) - Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnADDED_WHEN) - Me.columnCHANGED_WHO = New Global.System.Data.DataColumn("CHANGED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnCHANGED_WHO) - Me.columnCHANGED_WHEN = New Global.System.Data.DataColumn("CHANGED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnCHANGED_WHEN) - Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) - Me.columnGUID.AutoIncrement = true - Me.columnGUID.AutoIncrementSeed = -1 - Me.columnGUID.AutoIncrementStep = -1 - Me.columnGUID.AllowDBNull = false - Me.columnGUID.ReadOnly = true - Me.columnGUID.Unique = true - Me.columnHKPATTERN_ID.AllowDBNull = false - Me.columnTYPE.AllowDBNull = false - Me.columnTYPE.MaxLength = 30 - Me.columnFUNCTION1.MaxLength = 250 - Me.columnFUNCTION2.MaxLength = 250 - Me.columnTEXT1.MaxLength = 100 - Me.columnTEXT2.MaxLength = 100 - Me.columnSEQUENCE.AllowDBNull = false - Me.columnSEQUENCE.DefaultValue = CType(1,Integer) - Me.columnADDED_WHO.AllowDBNull = false - Me.columnADDED_WHO.MaxLength = 50 - Me.columnCHANGED_WHO.MaxLength = 50 - End Sub - - _ - Public Function NewTBHOTKEY_PATTERNS_REWORKRow() As TBHOTKEY_PATTERNS_REWORKRow - Return CType(Me.NewRow,TBHOTKEY_PATTERNS_REWORKRow) - End Function - - _ - Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow - Return New TBHOTKEY_PATTERNS_REWORKRow(builder) - End Function - - _ - Protected Overrides Function GetRowType() As Global.System.Type - Return GetType(TBHOTKEY_PATTERNS_REWORKRow) - End Function - - _ - Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) - MyBase.OnRowChanged(e) - If (Not (Me.TBHOTKEY_PATTERNS_REWORKRowChangedEvent) Is Nothing) Then - RaiseEvent TBHOTKEY_PATTERNS_REWORKRowChanged(Me, New TBHOTKEY_PATTERNS_REWORKRowChangeEvent(CType(e.Row,TBHOTKEY_PATTERNS_REWORKRow), e.Action)) - End If - End Sub - - _ - Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) - MyBase.OnRowChanging(e) - If (Not (Me.TBHOTKEY_PATTERNS_REWORKRowChangingEvent) Is Nothing) Then - RaiseEvent TBHOTKEY_PATTERNS_REWORKRowChanging(Me, New TBHOTKEY_PATTERNS_REWORKRowChangeEvent(CType(e.Row,TBHOTKEY_PATTERNS_REWORKRow), e.Action)) - End If - End Sub - - _ - Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) - MyBase.OnRowDeleted(e) - If (Not (Me.TBHOTKEY_PATTERNS_REWORKRowDeletedEvent) Is Nothing) Then - RaiseEvent TBHOTKEY_PATTERNS_REWORKRowDeleted(Me, New TBHOTKEY_PATTERNS_REWORKRowChangeEvent(CType(e.Row,TBHOTKEY_PATTERNS_REWORKRow), e.Action)) - End If - End Sub - - _ - Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) - MyBase.OnRowDeleting(e) - If (Not (Me.TBHOTKEY_PATTERNS_REWORKRowDeletingEvent) Is Nothing) Then - RaiseEvent TBHOTKEY_PATTERNS_REWORKRowDeleting(Me, New TBHOTKEY_PATTERNS_REWORKRowChangeEvent(CType(e.Row,TBHOTKEY_PATTERNS_REWORKRow), e.Action)) - End If - End Sub - - _ - Public Sub RemoveTBHOTKEY_PATTERNS_REWORKRow(ByVal row As TBHOTKEY_PATTERNS_REWORKRow) - Me.Rows.Remove(row) - End Sub - - _ - Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType - Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() - Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() - Dim ds As MyDataset = New MyDataset() - Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() - any1.Namespace = "http://www.w3.org/2001/XMLSchema" - any1.MinOccurs = New Decimal(0) - any1.MaxOccurs = Decimal.MaxValue - any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax - sequence.Items.Add(any1) - Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() - any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" - any2.MinOccurs = New Decimal(1) - any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax - sequence.Items.Add(any2) - Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() - attribute1.Name = "namespace" - attribute1.FixedValue = ds.Namespace - type.Attributes.Add(attribute1) - Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() - attribute2.Name = "tableTypeName" - attribute2.FixedValue = "TBHOTKEY_PATTERNS_REWORKDataTable" - type.Attributes.Add(attribute2) - type.Particle = sequence - Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable - If xs.Contains(dsSchema.TargetNamespace) Then - Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() - Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() - Try - Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing - dsSchema.Write(s1) - Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator - Do While schemas.MoveNext - schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) - s2.SetLength(0) - schema.Write(s2) - If (s1.Length = s2.Length) Then - s1.Position = 0 - s2.Position = 0 - - Do While ((s1.Position <> s1.Length) _ - AndAlso (s1.ReadByte = s2.ReadByte)) - - - Loop - If (s1.Position = s1.Length) Then - Return type - End If - End If - - Loop - Finally - If (Not (s1) Is Nothing) Then - s1.Close - End If - If (Not (s2) Is Nothing) Then - s2.Close - End If - End Try - End If - xs.Add(dsSchema) - Return type - End Function - End Class - - ''' - '''Represents the strongly named DataTable class. - ''' - _ - Partial Public Class TBHOTKEY_WINDOW_HOOKDataTable - Inherits Global.System.Data.TypedTableBase(Of TBHOTKEY_WINDOW_HOOKRow) - - Private columnGUID As Global.System.Data.DataColumn - - Private columnHKPROFILE_ID As Global.System.Data.DataColumn - - Private columnSEQUENCE_NUMBER As Global.System.Data.DataColumn - - Private columnCONTROL_VALUE As Global.System.Data.DataColumn - - Private columnADDED_WHO As Global.System.Data.DataColumn - - Private columnADDED_WHEN As Global.System.Data.DataColumn - - Private columnCHANGED_WHO As Global.System.Data.DataColumn - - Private columnCHANGED_WHEN As Global.System.Data.DataColumn - - _ - Public Sub New() - MyBase.New - Me.TableName = "TBHOTKEY_WINDOW_HOOK" - Me.BeginInit - Me.InitClass - Me.EndInit - End Sub - - _ - Friend Sub New(ByVal table As Global.System.Data.DataTable) - MyBase.New - Me.TableName = table.TableName - If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then - Me.CaseSensitive = table.CaseSensitive - End If - If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then - Me.Locale = table.Locale - End If - If (table.Namespace <> table.DataSet.Namespace) Then - Me.Namespace = table.Namespace - End If - Me.Prefix = table.Prefix - Me.MinimumCapacity = table.MinimumCapacity - End Sub - - _ - Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) - MyBase.New(info, context) - Me.InitVars - End Sub - - _ - Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn - Get - Return Me.columnGUID - End Get - End Property - - _ - Public ReadOnly Property HKPROFILE_IDColumn() As Global.System.Data.DataColumn - Get - Return Me.columnHKPROFILE_ID - End Get - End Property - - _ - Public ReadOnly Property SEQUENCE_NUMBERColumn() As Global.System.Data.DataColumn - Get - Return Me.columnSEQUENCE_NUMBER - End Get - End Property - - _ - Public ReadOnly Property CONTROL_VALUEColumn() As Global.System.Data.DataColumn - Get - Return Me.columnCONTROL_VALUE - End Get - End Property - - _ - Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn - Get - Return Me.columnADDED_WHO - End Get - End Property - - _ - Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn - Get - Return Me.columnADDED_WHEN - End Get - End Property - - _ - Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn - Get - Return Me.columnCHANGED_WHO - End Get - End Property - - _ - Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn - Get - Return Me.columnCHANGED_WHEN - End Get - End Property - - _ - Public ReadOnly Property Count() As Integer - Get - Return Me.Rows.Count - End Get - End Property - - _ - Public Default ReadOnly Property Item(ByVal index As Integer) As TBHOTKEY_WINDOW_HOOKRow - Get - Return CType(Me.Rows(index),TBHOTKEY_WINDOW_HOOKRow) - End Get - End Property - - _ - Public Event TBHOTKEY_WINDOW_HOOKRowChanging As TBHOTKEY_WINDOW_HOOKRowChangeEventHandler - - _ - Public Event TBHOTKEY_WINDOW_HOOKRowChanged As TBHOTKEY_WINDOW_HOOKRowChangeEventHandler - - _ - Public Event TBHOTKEY_WINDOW_HOOKRowDeleting As TBHOTKEY_WINDOW_HOOKRowChangeEventHandler - - _ - Public Event TBHOTKEY_WINDOW_HOOKRowDeleted As TBHOTKEY_WINDOW_HOOKRowChangeEventHandler - - _ - Public Overloads Sub AddTBHOTKEY_WINDOW_HOOKRow(ByVal row As TBHOTKEY_WINDOW_HOOKRow) - Me.Rows.Add(row) - End Sub - - _ - Public Overloads Function AddTBHOTKEY_WINDOW_HOOKRow(ByVal parentTBHOTKEY_PROFILERowByFK_TBHOTKEY_WINDOW_HOOK_PROFILE_ID As TBHOTKEY_PROFILERow, ByVal SEQUENCE_NUMBER As Integer, ByVal CONTROL_VALUE As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date) As TBHOTKEY_WINDOW_HOOKRow - Dim rowTBHOTKEY_WINDOW_HOOKRow As TBHOTKEY_WINDOW_HOOKRow = CType(Me.NewRow,TBHOTKEY_WINDOW_HOOKRow) - Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, SEQUENCE_NUMBER, CONTROL_VALUE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN} - If (Not (parentTBHOTKEY_PROFILERowByFK_TBHOTKEY_WINDOW_HOOK_PROFILE_ID) Is Nothing) Then - columnValuesArray(1) = parentTBHOTKEY_PROFILERowByFK_TBHOTKEY_WINDOW_HOOK_PROFILE_ID(0) - End If - rowTBHOTKEY_WINDOW_HOOKRow.ItemArray = columnValuesArray - Me.Rows.Add(rowTBHOTKEY_WINDOW_HOOKRow) - Return rowTBHOTKEY_WINDOW_HOOKRow - End Function - - _ - Public Function FindByGUID(ByVal GUID As Integer) As TBHOTKEY_WINDOW_HOOKRow - Return CType(Me.Rows.Find(New Object() {GUID}),TBHOTKEY_WINDOW_HOOKRow) - End Function - - _ - Public Overrides Function Clone() As Global.System.Data.DataTable - Dim cln As TBHOTKEY_WINDOW_HOOKDataTable = CType(MyBase.Clone,TBHOTKEY_WINDOW_HOOKDataTable) - cln.InitVars - Return cln - End Function - - _ - Protected Overrides Function CreateInstance() As Global.System.Data.DataTable - Return New TBHOTKEY_WINDOW_HOOKDataTable() - End Function - - _ - Friend Sub InitVars() - Me.columnGUID = MyBase.Columns("GUID") - Me.columnHKPROFILE_ID = MyBase.Columns("HKPROFILE_ID") - Me.columnSEQUENCE_NUMBER = MyBase.Columns("SEQUENCE_NUMBER") - Me.columnCONTROL_VALUE = MyBase.Columns("CONTROL_VALUE") - Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") - Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") - Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") - Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") - End Sub - - _ - Private Sub InitClass() - Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnGUID) - Me.columnHKPROFILE_ID = New Global.System.Data.DataColumn("HKPROFILE_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnHKPROFILE_ID) - Me.columnSEQUENCE_NUMBER = New Global.System.Data.DataColumn("SEQUENCE_NUMBER", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnSEQUENCE_NUMBER) - Me.columnCONTROL_VALUE = New Global.System.Data.DataColumn("CONTROL_VALUE", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnCONTROL_VALUE) - Me.columnADDED_WHO = New Global.System.Data.DataColumn("ADDED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnADDED_WHO) - Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnADDED_WHEN) - Me.columnCHANGED_WHO = New Global.System.Data.DataColumn("CHANGED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnCHANGED_WHO) - Me.columnCHANGED_WHEN = New Global.System.Data.DataColumn("CHANGED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnCHANGED_WHEN) - Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) - Me.columnGUID.AutoIncrement = true - Me.columnGUID.AutoIncrementSeed = -1 - Me.columnGUID.AutoIncrementStep = -1 - Me.columnGUID.AllowDBNull = false - Me.columnGUID.ReadOnly = true - Me.columnGUID.Unique = true - Me.columnHKPROFILE_ID.AllowDBNull = false - Me.columnSEQUENCE_NUMBER.AllowDBNull = false - Me.columnCONTROL_VALUE.AllowDBNull = false - Me.columnCONTROL_VALUE.MaxLength = 100 - Me.columnADDED_WHO.AllowDBNull = false - Me.columnADDED_WHO.MaxLength = 50 - Me.columnCHANGED_WHO.MaxLength = 50 - End Sub - - _ - Public Function NewTBHOTKEY_WINDOW_HOOKRow() As TBHOTKEY_WINDOW_HOOKRow - Return CType(Me.NewRow,TBHOTKEY_WINDOW_HOOKRow) - End Function - - _ - Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow - Return New TBHOTKEY_WINDOW_HOOKRow(builder) - End Function - - _ - Protected Overrides Function GetRowType() As Global.System.Type - Return GetType(TBHOTKEY_WINDOW_HOOKRow) - End Function - - _ - Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) - MyBase.OnRowChanged(e) - If (Not (Me.TBHOTKEY_WINDOW_HOOKRowChangedEvent) Is Nothing) Then - RaiseEvent TBHOTKEY_WINDOW_HOOKRowChanged(Me, New TBHOTKEY_WINDOW_HOOKRowChangeEvent(CType(e.Row,TBHOTKEY_WINDOW_HOOKRow), e.Action)) - End If - End Sub - - _ - Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) - MyBase.OnRowChanging(e) - If (Not (Me.TBHOTKEY_WINDOW_HOOKRowChangingEvent) Is Nothing) Then - RaiseEvent TBHOTKEY_WINDOW_HOOKRowChanging(Me, New TBHOTKEY_WINDOW_HOOKRowChangeEvent(CType(e.Row,TBHOTKEY_WINDOW_HOOKRow), e.Action)) - End If - End Sub - - _ - Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) - MyBase.OnRowDeleted(e) - If (Not (Me.TBHOTKEY_WINDOW_HOOKRowDeletedEvent) Is Nothing) Then - RaiseEvent TBHOTKEY_WINDOW_HOOKRowDeleted(Me, New TBHOTKEY_WINDOW_HOOKRowChangeEvent(CType(e.Row,TBHOTKEY_WINDOW_HOOKRow), e.Action)) - End If - End Sub - - _ - Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) - MyBase.OnRowDeleting(e) - If (Not (Me.TBHOTKEY_WINDOW_HOOKRowDeletingEvent) Is Nothing) Then - RaiseEvent TBHOTKEY_WINDOW_HOOKRowDeleting(Me, New TBHOTKEY_WINDOW_HOOKRowChangeEvent(CType(e.Row,TBHOTKEY_WINDOW_HOOKRow), e.Action)) - End If - End Sub - - _ - Public Sub RemoveTBHOTKEY_WINDOW_HOOKRow(ByVal row As TBHOTKEY_WINDOW_HOOKRow) - Me.Rows.Remove(row) - End Sub - - _ - Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType - Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() - Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() - Dim ds As MyDataset = New MyDataset() - Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() - any1.Namespace = "http://www.w3.org/2001/XMLSchema" - any1.MinOccurs = New Decimal(0) - any1.MaxOccurs = Decimal.MaxValue - any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax - sequence.Items.Add(any1) - Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() - any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" - any2.MinOccurs = New Decimal(1) - any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax - sequence.Items.Add(any2) - Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() - attribute1.Name = "namespace" - attribute1.FixedValue = ds.Namespace - type.Attributes.Add(attribute1) - Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() - attribute2.Name = "tableTypeName" - attribute2.FixedValue = "TBHOTKEY_WINDOW_HOOKDataTable" - type.Attributes.Add(attribute2) - type.Particle = sequence - Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable - If xs.Contains(dsSchema.TargetNamespace) Then - Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() - Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() - Try - Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing - dsSchema.Write(s1) - Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator - Do While schemas.MoveNext - schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) - s2.SetLength(0) - schema.Write(s2) - If (s1.Length = s2.Length) Then - s1.Position = 0 - s2.Position = 0 - - Do While ((s1.Position <> s1.Length) _ - AndAlso (s1.ReadByte = s2.ReadByte)) - - - Loop - If (s1.Position = s1.Length) Then - Return type - End If - End If - - Loop - Finally - If (Not (s1) Is Nothing) Then - s1.Close - End If - If (Not (s2) Is Nothing) Then - s2.Close - End If - End Try - End If - xs.Add(dsSchema) - Return type - End Function - End Class - ''' '''Represents the strongly named DataTable class. ''' @@ -12403,16 +9877,6 @@ Partial Public Class MyDataset Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBDD_GROUPS_USER_USER_ID")),TBDD_GROUPS_USERRow()) End If End Function - - _ - Public Function GetTBHOTKEY_USER_PROFILERows() As TBHOTKEY_USER_PROFILERow() - If (Me.Table.ChildRelations("FK_TBHOTKEY_USER_PROFILE_USER_ID") Is Nothing) Then - Return New TBHOTKEY_USER_PROFILERow(-1) {} - Else - Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBHOTKEY_USER_PROFILE_USER_ID")),TBHOTKEY_USER_PROFILERow()) - End If - End Function End Class ''' @@ -15961,1158 +13425,6 @@ Partial Public Class MyDataset End Sub End Class - ''' - '''Represents strongly named DataRow class. - ''' - Partial Public Class TBHOTKEY_PROFILERow - Inherits Global.System.Data.DataRow - - Private tableTBHOTKEY_PROFILE As TBHOTKEY_PROFILEDataTable - - _ - Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) - MyBase.New(rb) - Me.tableTBHOTKEY_PROFILE = CType(Me.Table,TBHOTKEY_PROFILEDataTable) - End Sub - - _ - Public Property GUID() As Integer - Get - Return CType(Me(Me.tableTBHOTKEY_PROFILE.GUIDColumn),Integer) - End Get - Set - Me(Me.tableTBHOTKEY_PROFILE.GUIDColumn) = value - End Set - End Property - - _ - Public Property NAME() As String - Get - Return CType(Me(Me.tableTBHOTKEY_PROFILE.NAMEColumn),String) - End Get - Set - Me(Me.tableTBHOTKEY_PROFILE.NAMEColumn) = value - End Set - End Property - - _ - Public Property OBJECTTYPE() As String - Get - Return CType(Me(Me.tableTBHOTKEY_PROFILE.OBJECTTYPEColumn),String) - End Get - Set - Me(Me.tableTBHOTKEY_PROFILE.OBJECTTYPEColumn) = value - End Set - End Property - - _ - Public Property WD_SEARCH() As String - Get - Return CType(Me(Me.tableTBHOTKEY_PROFILE.WD_SEARCHColumn),String) - End Get - Set - Me(Me.tableTBHOTKEY_PROFILE.WD_SEARCHColumn) = value - End Set - End Property - - _ - Public Property HOTKEY1() As String - Get - Return CType(Me(Me.tableTBHOTKEY_PROFILE.HOTKEY1Column),String) - End Get - Set - Me(Me.tableTBHOTKEY_PROFILE.HOTKEY1Column) = value - End Set - End Property - - _ - Public Property HOTKEY2() As String - Get - Return CType(Me(Me.tableTBHOTKEY_PROFILE.HOTKEY2Column),String) - End Get - Set - Me(Me.tableTBHOTKEY_PROFILE.HOTKEY2Column) = value - End Set - End Property - - _ - Public Property WINDOW_NAME() As String - Get - Return CType(Me(Me.tableTBHOTKEY_PROFILE.WINDOW_NAMEColumn),String) - End Get - Set - Me(Me.tableTBHOTKEY_PROFILE.WINDOW_NAMEColumn) = value - End Set - End Property - - _ - Public Property ADDED_WHO() As String - Get - Return CType(Me(Me.tableTBHOTKEY_PROFILE.ADDED_WHOColumn),String) - End Get - Set - Me(Me.tableTBHOTKEY_PROFILE.ADDED_WHOColumn) = value - End Set - End Property - - _ - Public Property ADDED_WHEN() As Date - Get - Try - Return CType(Me(Me.tableTBHOTKEY_PROFILE.ADDED_WHENColumn),Date) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBHOTKEY_PROFILE ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableTBHOTKEY_PROFILE.ADDED_WHENColumn) = value - End Set - End Property - - _ - Public Property CHANGED_WHO() As String - Get - Try - Return CType(Me(Me.tableTBHOTKEY_PROFILE.CHANGED_WHOColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBHOTKEY_PROFILE ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableTBHOTKEY_PROFILE.CHANGED_WHOColumn) = value - End Set - End Property - - _ - Public Property CHANGED_WHEN() As Date - Get - Try - Return CType(Me(Me.tableTBHOTKEY_PROFILE.CHANGED_WHENColumn),Date) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBHOTKEY_PROFILE ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableTBHOTKEY_PROFILE.CHANGED_WHENColumn) = value - End Set - End Property - - _ - Public Property _String() As String - Get - Try - Return CType(Me(Me.tableTBHOTKEY_PROFILE.StringColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte String in Tabelle TBHOTKEY_PROFILE ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableTBHOTKEY_PROFILE.StringColumn) = value - End Set - End Property - - _ - Public Function IsADDED_WHENNull() As Boolean - Return Me.IsNull(Me.tableTBHOTKEY_PROFILE.ADDED_WHENColumn) - End Function - - _ - Public Sub SetADDED_WHENNull() - Me(Me.tableTBHOTKEY_PROFILE.ADDED_WHENColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsCHANGED_WHONull() As Boolean - Return Me.IsNull(Me.tableTBHOTKEY_PROFILE.CHANGED_WHOColumn) - End Function - - _ - Public Sub SetCHANGED_WHONull() - Me(Me.tableTBHOTKEY_PROFILE.CHANGED_WHOColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsCHANGED_WHENNull() As Boolean - Return Me.IsNull(Me.tableTBHOTKEY_PROFILE.CHANGED_WHENColumn) - End Function - - _ - Public Sub SetCHANGED_WHENNull() - Me(Me.tableTBHOTKEY_PROFILE.CHANGED_WHENColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function Is_StringNull() As Boolean - Return Me.IsNull(Me.tableTBHOTKEY_PROFILE.StringColumn) - End Function - - _ - Public Sub Set_StringNull() - Me(Me.tableTBHOTKEY_PROFILE.StringColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function GetTBHOTKEY_PATTERNSRows() As TBHOTKEY_PATTERNSRow() - If (Me.Table.ChildRelations("FK_TBHOTKEY_PATTERNS_PROFILE_ID") Is Nothing) Then - Return New TBHOTKEY_PATTERNSRow(-1) {} - Else - Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBHOTKEY_PATTERNS_PROFILE_ID")),TBHOTKEY_PATTERNSRow()) - End If - End Function - - _ - Public Function GetTBHOTKEY_USER_PROFILERows() As TBHOTKEY_USER_PROFILERow() - If (Me.Table.ChildRelations("FK_TBHOTKEY_USER_PROFILE_PROFILE_ID") Is Nothing) Then - Return New TBHOTKEY_USER_PROFILERow(-1) {} - Else - Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBHOTKEY_USER_PROFILE_PROFILE_ID")),TBHOTKEY_USER_PROFILERow()) - End If - End Function - - _ - Public Function GetTBHOTKEY_WINDOW_HOOKRows() As TBHOTKEY_WINDOW_HOOKRow() - If (Me.Table.ChildRelations("FK_TBHOTKEY_WINDOW_HOOK_PROFILE_ID") Is Nothing) Then - Return New TBHOTKEY_WINDOW_HOOKRow(-1) {} - Else - Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBHOTKEY_WINDOW_HOOK_PROFILE_ID")),TBHOTKEY_WINDOW_HOOKRow()) - End If - End Function - End Class - - ''' - '''Represents strongly named DataRow class. - ''' - Partial Public Class TBHOTKEY_PATTERNSRow - Inherits Global.System.Data.DataRow - - Private tableTBHOTKEY_PATTERNS As TBHOTKEY_PATTERNSDataTable - - _ - Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) - MyBase.New(rb) - Me.tableTBHOTKEY_PATTERNS = CType(Me.Table,TBHOTKEY_PATTERNSDataTable) - End Sub - - _ - Public Property GUID() As Integer - Get - Return CType(Me(Me.tableTBHOTKEY_PATTERNS.GUIDColumn),Integer) - End Get - Set - Me(Me.tableTBHOTKEY_PATTERNS.GUIDColumn) = value - End Set - End Property - - _ - Public Property HKPROFILE_ID() As Integer - Get - Return CType(Me(Me.tableTBHOTKEY_PATTERNS.HKPROFILE_IDColumn),Integer) - End Get - Set - Me(Me.tableTBHOTKEY_PATTERNS.HKPROFILE_IDColumn) = value - End Set - End Property - - _ - Public Property PATTERN_WDSEARCH() As String - Get - Return CType(Me(Me.tableTBHOTKEY_PATTERNS.PATTERN_WDSEARCHColumn),String) - End Get - Set - Me(Me.tableTBHOTKEY_PATTERNS.PATTERN_WDSEARCHColumn) = value - End Set - End Property - - _ - Public Property WINDOW_CONTROL() As String - Get - Return CType(Me(Me.tableTBHOTKEY_PATTERNS.WINDOW_CONTROLColumn),String) - End Get - Set - Me(Me.tableTBHOTKEY_PATTERNS.WINDOW_CONTROLColumn) = value - End Set - End Property - - _ - Public Property ADDED_WHO() As String - Get - Return CType(Me(Me.tableTBHOTKEY_PATTERNS.ADDED_WHOColumn),String) - End Get - Set - Me(Me.tableTBHOTKEY_PATTERNS.ADDED_WHOColumn) = value - End Set - End Property - - _ - Public Property ADDED_WHEN() As Date - Get - Try - Return CType(Me(Me.tableTBHOTKEY_PATTERNS.ADDED_WHENColumn),Date) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBHOTKEY_PATTERNS ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableTBHOTKEY_PATTERNS.ADDED_WHENColumn) = value - End Set - End Property - - _ - Public Property CHANGED_WHO() As String - Get - Try - Return CType(Me(Me.tableTBHOTKEY_PATTERNS.CHANGED_WHOColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBHOTKEY_PATTERNS ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableTBHOTKEY_PATTERNS.CHANGED_WHOColumn) = value - End Set - End Property - - _ - Public Property CHANGED_WHEN() As Date - Get - Try - Return CType(Me(Me.tableTBHOTKEY_PATTERNS.CHANGED_WHENColumn),Date) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBHOTKEY_PATTERNS ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableTBHOTKEY_PATTERNS.CHANGED_WHENColumn) = value - End Set - End Property - - _ - Public Property SEQUENCE_NUMBER() As Integer - Get - Return CType(Me(Me.tableTBHOTKEY_PATTERNS.SEQUENCE_NUMBERColumn),Integer) - End Get - Set - Me(Me.tableTBHOTKEY_PATTERNS.SEQUENCE_NUMBERColumn) = value - End Set - End Property - - _ - Public Property TBHOTKEY_PROFILERow() As TBHOTKEY_PROFILERow - Get - Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBHOTKEY_PATTERNS_PROFILE_ID")),TBHOTKEY_PROFILERow) - End Get - Set - Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBHOTKEY_PATTERNS_PROFILE_ID")) - End Set - End Property - - _ - Public Property TBMYHOTKEYSRow() As TBMYHOTKEYSRow - Get - Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBHOTKEY_PATTERNS_PROFILE_ID1")),TBMYHOTKEYSRow) - End Get - Set - Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBHOTKEY_PATTERNS_PROFILE_ID1")) - End Set - End Property - - _ - Public Function IsADDED_WHENNull() As Boolean - Return Me.IsNull(Me.tableTBHOTKEY_PATTERNS.ADDED_WHENColumn) - End Function - - _ - Public Sub SetADDED_WHENNull() - Me(Me.tableTBHOTKEY_PATTERNS.ADDED_WHENColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsCHANGED_WHONull() As Boolean - Return Me.IsNull(Me.tableTBHOTKEY_PATTERNS.CHANGED_WHOColumn) - End Function - - _ - Public Sub SetCHANGED_WHONull() - Me(Me.tableTBHOTKEY_PATTERNS.CHANGED_WHOColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsCHANGED_WHENNull() As Boolean - Return Me.IsNull(Me.tableTBHOTKEY_PATTERNS.CHANGED_WHENColumn) - End Function - - _ - Public Sub SetCHANGED_WHENNull() - Me(Me.tableTBHOTKEY_PATTERNS.CHANGED_WHENColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function GetTBHOTKEY_PATTERNS_REWORKRows() As TBHOTKEY_PATTERNS_REWORKRow() - If (Me.Table.ChildRelations("FK_TBHOTKEY_PATTERNS_REWORK_HKPATTERN_ID") Is Nothing) Then - Return New TBHOTKEY_PATTERNS_REWORKRow(-1) {} - Else - Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBHOTKEY_PATTERNS_REWORK_HKPATTERN_ID")),TBHOTKEY_PATTERNS_REWORKRow()) - End If - End Function - End Class - - ''' - '''Represents strongly named DataRow class. - ''' - Partial Public Class TBMYHOTKEYSRow - Inherits Global.System.Data.DataRow - - Private tableTBMYHOTKEYS As TBMYHOTKEYSDataTable - - _ - Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) - MyBase.New(rb) - Me.tableTBMYHOTKEYS = CType(Me.Table,TBMYHOTKEYSDataTable) - End Sub - - _ - Public Property GUID() As Integer - Get - Return CType(Me(Me.tableTBMYHOTKEYS.GUIDColumn),Integer) - End Get - Set - Me(Me.tableTBMYHOTKEYS.GUIDColumn) = value - End Set - End Property - - _ - Public Property _String() As String - Get - Try - Return CType(Me(Me.tableTBMYHOTKEYS.StringColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte String in Tabelle TBMYHOTKEYS ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableTBMYHOTKEYS.StringColumn) = value - End Set - End Property - - _ - Public Function Is_StringNull() As Boolean - Return Me.IsNull(Me.tableTBMYHOTKEYS.StringColumn) - End Function - - _ - Public Sub Set_StringNull() - Me(Me.tableTBMYHOTKEYS.StringColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function GetTBHOTKEY_PATTERNSRows() As TBHOTKEY_PATTERNSRow() - If (Me.Table.ChildRelations("FK_TBHOTKEY_PATTERNS_PROFILE_ID1") Is Nothing) Then - Return New TBHOTKEY_PATTERNSRow(-1) {} - Else - Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBHOTKEY_PATTERNS_PROFILE_ID1")),TBHOTKEY_PATTERNSRow()) - End If - End Function - - _ - Public Function GetTBHOTKEY_USER_PROFILERows() As TBHOTKEY_USER_PROFILERow() - If (Me.Table.ChildRelations("FK_TBHOTKEY_USER_PROFILE_PROFILE_ID1") Is Nothing) Then - Return New TBHOTKEY_USER_PROFILERow(-1) {} - Else - Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBHOTKEY_USER_PROFILE_PROFILE_ID1")),TBHOTKEY_USER_PROFILERow()) - End If - End Function - End Class - - ''' - '''Represents strongly named DataRow class. - ''' - Partial Public Class TBHOTKEY_USER_PROFILERow - Inherits Global.System.Data.DataRow - - Private tableTBHOTKEY_USER_PROFILE As TBHOTKEY_USER_PROFILEDataTable - - _ - Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) - MyBase.New(rb) - Me.tableTBHOTKEY_USER_PROFILE = CType(Me.Table,TBHOTKEY_USER_PROFILEDataTable) - End Sub - - _ - Public Property GUID() As Integer - Get - Return CType(Me(Me.tableTBHOTKEY_USER_PROFILE.GUIDColumn),Integer) - End Get - Set - Me(Me.tableTBHOTKEY_USER_PROFILE.GUIDColumn) = value - End Set - End Property - - _ - Public Property HKPROFILE_ID() As Integer - Get - Return CType(Me(Me.tableTBHOTKEY_USER_PROFILE.HKPROFILE_IDColumn),Integer) - End Get - Set - Me(Me.tableTBHOTKEY_USER_PROFILE.HKPROFILE_IDColumn) = value - End Set - End Property - - _ - Public Property USER_ID() As Integer - Get - Return CType(Me(Me.tableTBHOTKEY_USER_PROFILE.USER_IDColumn),Integer) - End Get - Set - Me(Me.tableTBHOTKEY_USER_PROFILE.USER_IDColumn) = value - End Set - End Property - - _ - Public Property WD_SEARCH() As String - Get - Return CType(Me(Me.tableTBHOTKEY_USER_PROFILE.WD_SEARCHColumn),String) - End Get - Set - Me(Me.tableTBHOTKEY_USER_PROFILE.WD_SEARCHColumn) = value - End Set - End Property - - _ - Public Property HOTKEY1() As String - Get - Return CType(Me(Me.tableTBHOTKEY_USER_PROFILE.HOTKEY1Column),String) - End Get - Set - Me(Me.tableTBHOTKEY_USER_PROFILE.HOTKEY1Column) = value - End Set - End Property - - _ - Public Property HOTKEY2() As String - Get - Return CType(Me(Me.tableTBHOTKEY_USER_PROFILE.HOTKEY2Column),String) - End Get - Set - Me(Me.tableTBHOTKEY_USER_PROFILE.HOTKEY2Column) = value - End Set - End Property - - _ - Public Property ADDED_WHO() As String - Get - Return CType(Me(Me.tableTBHOTKEY_USER_PROFILE.ADDED_WHOColumn),String) - End Get - Set - Me(Me.tableTBHOTKEY_USER_PROFILE.ADDED_WHOColumn) = value - End Set - End Property - - _ - Public Property ADDED_WHEN() As Date - Get - Try - Return CType(Me(Me.tableTBHOTKEY_USER_PROFILE.ADDED_WHENColumn),Date) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBHOTKEY_USER_PROFILE ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableTBHOTKEY_USER_PROFILE.ADDED_WHENColumn) = value - End Set - End Property - - _ - Public Property CHANGED_WHO() As String - Get - Try - Return CType(Me(Me.tableTBHOTKEY_USER_PROFILE.CHANGED_WHOColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBHOTKEY_USER_PROFILE ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableTBHOTKEY_USER_PROFILE.CHANGED_WHOColumn) = value - End Set - End Property - - _ - Public Property CHANGED_WHEN() As Date - Get - Try - Return CType(Me(Me.tableTBHOTKEY_USER_PROFILE.CHANGED_WHENColumn),Date) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBHOTKEY_USER_PROFILE ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableTBHOTKEY_USER_PROFILE.CHANGED_WHENColumn) = value - End Set - End Property - - _ - Public Property TBHOTKEY_PROFILERow() As TBHOTKEY_PROFILERow - Get - Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBHOTKEY_USER_PROFILE_PROFILE_ID")),TBHOTKEY_PROFILERow) - End Get - Set - Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBHOTKEY_USER_PROFILE_PROFILE_ID")) - End Set - End Property - - _ - Public Property TBMYHOTKEYSRow() As TBMYHOTKEYSRow - Get - Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBHOTKEY_USER_PROFILE_PROFILE_ID1")),TBMYHOTKEYSRow) - End Get - Set - Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBHOTKEY_USER_PROFILE_PROFILE_ID1")) - End Set - End Property - - _ - Public Property TBDD_USERRow() As TBDD_USERRow - Get - Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBHOTKEY_USER_PROFILE_USER_ID")),TBDD_USERRow) - End Get - Set - Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBHOTKEY_USER_PROFILE_USER_ID")) - End Set - End Property - - _ - Public Function IsADDED_WHENNull() As Boolean - Return Me.IsNull(Me.tableTBHOTKEY_USER_PROFILE.ADDED_WHENColumn) - End Function - - _ - Public Sub SetADDED_WHENNull() - Me(Me.tableTBHOTKEY_USER_PROFILE.ADDED_WHENColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsCHANGED_WHONull() As Boolean - Return Me.IsNull(Me.tableTBHOTKEY_USER_PROFILE.CHANGED_WHOColumn) - End Function - - _ - Public Sub SetCHANGED_WHONull() - Me(Me.tableTBHOTKEY_USER_PROFILE.CHANGED_WHOColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsCHANGED_WHENNull() As Boolean - Return Me.IsNull(Me.tableTBHOTKEY_USER_PROFILE.CHANGED_WHENColumn) - End Function - - _ - Public Sub SetCHANGED_WHENNull() - Me(Me.tableTBHOTKEY_USER_PROFILE.CHANGED_WHENColumn) = Global.System.Convert.DBNull - End Sub - End Class - - ''' - '''Represents strongly named DataRow class. - ''' - Partial Public Class TBHOTKEY_PATTERNS_REWORKRow - Inherits Global.System.Data.DataRow - - Private tableTBHOTKEY_PATTERNS_REWORK As TBHOTKEY_PATTERNS_REWORKDataTable - - _ - Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) - MyBase.New(rb) - Me.tableTBHOTKEY_PATTERNS_REWORK = CType(Me.Table,TBHOTKEY_PATTERNS_REWORKDataTable) - End Sub - - _ - Public Property GUID() As Integer - Get - Return CType(Me(Me.tableTBHOTKEY_PATTERNS_REWORK.GUIDColumn),Integer) - End Get - Set - Me(Me.tableTBHOTKEY_PATTERNS_REWORK.GUIDColumn) = value - End Set - End Property - - _ - Public Property HKPATTERN_ID() As Integer - Get - Return CType(Me(Me.tableTBHOTKEY_PATTERNS_REWORK.HKPATTERN_IDColumn),Integer) - End Get - Set - Me(Me.tableTBHOTKEY_PATTERNS_REWORK.HKPATTERN_IDColumn) = value - End Set - End Property - - _ - Public Property TYPE() As String - Get - Return CType(Me(Me.tableTBHOTKEY_PATTERNS_REWORK.TYPEColumn),String) - End Get - Set - Me(Me.tableTBHOTKEY_PATTERNS_REWORK.TYPEColumn) = value - End Set - End Property - - _ - Public Property FUNCTION1() As String - Get - Try - Return CType(Me(Me.tableTBHOTKEY_PATTERNS_REWORK.FUNCTION1Column),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte FUNCTION1 in Tabelle TBHOTKEY_PATTERNS_REWORK ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableTBHOTKEY_PATTERNS_REWORK.FUNCTION1Column) = value - End Set - End Property - - _ - Public Property FUNCTION2() As String - Get - Try - Return CType(Me(Me.tableTBHOTKEY_PATTERNS_REWORK.FUNCTION2Column),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte FUNCTION2 in Tabelle TBHOTKEY_PATTERNS_REWORK ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableTBHOTKEY_PATTERNS_REWORK.FUNCTION2Column) = value - End Set - End Property - - _ - Public Property TEXT1() As String - Get - Try - Return CType(Me(Me.tableTBHOTKEY_PATTERNS_REWORK.TEXT1Column),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte TEXT1 in Tabelle TBHOTKEY_PATTERNS_REWORK ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableTBHOTKEY_PATTERNS_REWORK.TEXT1Column) = value - End Set - End Property - - _ - Public Property TEXT2() As String - Get - Try - Return CType(Me(Me.tableTBHOTKEY_PATTERNS_REWORK.TEXT2Column),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte TEXT2 in Tabelle TBHOTKEY_PATTERNS_REWORK ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableTBHOTKEY_PATTERNS_REWORK.TEXT2Column) = value - End Set - End Property - - _ - Public Property SEQUENCE() As Integer - Get - Return CType(Me(Me.tableTBHOTKEY_PATTERNS_REWORK.SEQUENCEColumn),Integer) - End Get - Set - Me(Me.tableTBHOTKEY_PATTERNS_REWORK.SEQUENCEColumn) = value - End Set - End Property - - _ - Public Property ADDED_WHO() As String - Get - Return CType(Me(Me.tableTBHOTKEY_PATTERNS_REWORK.ADDED_WHOColumn),String) - End Get - Set - Me(Me.tableTBHOTKEY_PATTERNS_REWORK.ADDED_WHOColumn) = value - End Set - End Property - - _ - Public Property ADDED_WHEN() As Date - Get - Try - Return CType(Me(Me.tableTBHOTKEY_PATTERNS_REWORK.ADDED_WHENColumn),Date) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBHOTKEY_PATTERNS_REWORK ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableTBHOTKEY_PATTERNS_REWORK.ADDED_WHENColumn) = value - End Set - End Property - - _ - Public Property CHANGED_WHO() As String - Get - Try - Return CType(Me(Me.tableTBHOTKEY_PATTERNS_REWORK.CHANGED_WHOColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBHOTKEY_PATTERNS_REWORK ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableTBHOTKEY_PATTERNS_REWORK.CHANGED_WHOColumn) = value - End Set - End Property - - _ - Public Property CHANGED_WHEN() As Date - Get - Try - Return CType(Me(Me.tableTBHOTKEY_PATTERNS_REWORK.CHANGED_WHENColumn),Date) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBHOTKEY_PATTERNS_REWORK ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableTBHOTKEY_PATTERNS_REWORK.CHANGED_WHENColumn) = value - End Set - End Property - - _ - Public Property TBHOTKEY_PATTERNSRow() As TBHOTKEY_PATTERNSRow - Get - Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBHOTKEY_PATTERNS_REWORK_HKPATTERN_ID")),TBHOTKEY_PATTERNSRow) - End Get - Set - Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBHOTKEY_PATTERNS_REWORK_HKPATTERN_ID")) - End Set - End Property - - _ - Public Function IsFUNCTION1Null() As Boolean - Return Me.IsNull(Me.tableTBHOTKEY_PATTERNS_REWORK.FUNCTION1Column) - End Function - - _ - Public Sub SetFUNCTION1Null() - Me(Me.tableTBHOTKEY_PATTERNS_REWORK.FUNCTION1Column) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsFUNCTION2Null() As Boolean - Return Me.IsNull(Me.tableTBHOTKEY_PATTERNS_REWORK.FUNCTION2Column) - End Function - - _ - Public Sub SetFUNCTION2Null() - Me(Me.tableTBHOTKEY_PATTERNS_REWORK.FUNCTION2Column) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsTEXT1Null() As Boolean - Return Me.IsNull(Me.tableTBHOTKEY_PATTERNS_REWORK.TEXT1Column) - End Function - - _ - Public Sub SetTEXT1Null() - Me(Me.tableTBHOTKEY_PATTERNS_REWORK.TEXT1Column) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsTEXT2Null() As Boolean - Return Me.IsNull(Me.tableTBHOTKEY_PATTERNS_REWORK.TEXT2Column) - End Function - - _ - Public Sub SetTEXT2Null() - Me(Me.tableTBHOTKEY_PATTERNS_REWORK.TEXT2Column) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsADDED_WHENNull() As Boolean - Return Me.IsNull(Me.tableTBHOTKEY_PATTERNS_REWORK.ADDED_WHENColumn) - End Function - - _ - Public Sub SetADDED_WHENNull() - Me(Me.tableTBHOTKEY_PATTERNS_REWORK.ADDED_WHENColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsCHANGED_WHONull() As Boolean - Return Me.IsNull(Me.tableTBHOTKEY_PATTERNS_REWORK.CHANGED_WHOColumn) - End Function - - _ - Public Sub SetCHANGED_WHONull() - Me(Me.tableTBHOTKEY_PATTERNS_REWORK.CHANGED_WHOColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsCHANGED_WHENNull() As Boolean - Return Me.IsNull(Me.tableTBHOTKEY_PATTERNS_REWORK.CHANGED_WHENColumn) - End Function - - _ - Public Sub SetCHANGED_WHENNull() - Me(Me.tableTBHOTKEY_PATTERNS_REWORK.CHANGED_WHENColumn) = Global.System.Convert.DBNull - End Sub - End Class - - ''' - '''Represents strongly named DataRow class. - ''' - Partial Public Class TBHOTKEY_WINDOW_HOOKRow - Inherits Global.System.Data.DataRow - - Private tableTBHOTKEY_WINDOW_HOOK As TBHOTKEY_WINDOW_HOOKDataTable - - _ - Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) - MyBase.New(rb) - Me.tableTBHOTKEY_WINDOW_HOOK = CType(Me.Table,TBHOTKEY_WINDOW_HOOKDataTable) - End Sub - - _ - Public Property GUID() As Integer - Get - Return CType(Me(Me.tableTBHOTKEY_WINDOW_HOOK.GUIDColumn),Integer) - End Get - Set - Me(Me.tableTBHOTKEY_WINDOW_HOOK.GUIDColumn) = value - End Set - End Property - - _ - Public Property HKPROFILE_ID() As Integer - Get - Return CType(Me(Me.tableTBHOTKEY_WINDOW_HOOK.HKPROFILE_IDColumn),Integer) - End Get - Set - Me(Me.tableTBHOTKEY_WINDOW_HOOK.HKPROFILE_IDColumn) = value - End Set - End Property - - _ - Public Property SEQUENCE_NUMBER() As Integer - Get - Return CType(Me(Me.tableTBHOTKEY_WINDOW_HOOK.SEQUENCE_NUMBERColumn),Integer) - End Get - Set - Me(Me.tableTBHOTKEY_WINDOW_HOOK.SEQUENCE_NUMBERColumn) = value - End Set - End Property - - _ - Public Property CONTROL_VALUE() As String - Get - Return CType(Me(Me.tableTBHOTKEY_WINDOW_HOOK.CONTROL_VALUEColumn),String) - End Get - Set - Me(Me.tableTBHOTKEY_WINDOW_HOOK.CONTROL_VALUEColumn) = value - End Set - End Property - - _ - Public Property ADDED_WHO() As String - Get - Return CType(Me(Me.tableTBHOTKEY_WINDOW_HOOK.ADDED_WHOColumn),String) - End Get - Set - Me(Me.tableTBHOTKEY_WINDOW_HOOK.ADDED_WHOColumn) = value - End Set - End Property - - _ - Public Property ADDED_WHEN() As Date - Get - Try - Return CType(Me(Me.tableTBHOTKEY_WINDOW_HOOK.ADDED_WHENColumn),Date) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBHOTKEY_WINDOW_HOOK ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableTBHOTKEY_WINDOW_HOOK.ADDED_WHENColumn) = value - End Set - End Property - - _ - Public Property CHANGED_WHO() As String - Get - Try - Return CType(Me(Me.tableTBHOTKEY_WINDOW_HOOK.CHANGED_WHOColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBHOTKEY_WINDOW_HOOK ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableTBHOTKEY_WINDOW_HOOK.CHANGED_WHOColumn) = value - End Set - End Property - - _ - Public Property CHANGED_WHEN() As Date - Get - Try - Return CType(Me(Me.tableTBHOTKEY_WINDOW_HOOK.CHANGED_WHENColumn),Date) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBHOTKEY_WINDOW_HOOK ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableTBHOTKEY_WINDOW_HOOK.CHANGED_WHENColumn) = value - End Set - End Property - - _ - Public Property TBHOTKEY_PROFILERow() As TBHOTKEY_PROFILERow - Get - Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBHOTKEY_WINDOW_HOOK_PROFILE_ID")),TBHOTKEY_PROFILERow) - End Get - Set - Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBHOTKEY_WINDOW_HOOK_PROFILE_ID")) - End Set - End Property - - _ - Public Function IsADDED_WHENNull() As Boolean - Return Me.IsNull(Me.tableTBHOTKEY_WINDOW_HOOK.ADDED_WHENColumn) - End Function - - _ - Public Sub SetADDED_WHENNull() - Me(Me.tableTBHOTKEY_WINDOW_HOOK.ADDED_WHENColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsCHANGED_WHONull() As Boolean - Return Me.IsNull(Me.tableTBHOTKEY_WINDOW_HOOK.CHANGED_WHOColumn) - End Function - - _ - Public Sub SetCHANGED_WHONull() - Me(Me.tableTBHOTKEY_WINDOW_HOOK.CHANGED_WHOColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsCHANGED_WHENNull() As Boolean - Return Me.IsNull(Me.tableTBHOTKEY_WINDOW_HOOK.CHANGED_WHENColumn) - End Function - - _ - Public Sub SetCHANGED_WHENNull() - Me(Me.tableTBHOTKEY_WINDOW_HOOK.CHANGED_WHENColumn) = Global.System.Convert.DBNull - End Sub - End Class - ''' '''Represents strongly named DataRow class. ''' @@ -18430,222 +14742,6 @@ Partial Public Class MyDataset End Property End Class - ''' - '''Row event argument class - ''' - _ - Public Class TBHOTKEY_PROFILERowChangeEvent - Inherits Global.System.EventArgs - - Private eventRow As TBHOTKEY_PROFILERow - - Private eventAction As Global.System.Data.DataRowAction - - _ - Public Sub New(ByVal row As TBHOTKEY_PROFILERow, ByVal action As Global.System.Data.DataRowAction) - MyBase.New - Me.eventRow = row - Me.eventAction = action - End Sub - - _ - Public ReadOnly Property Row() As TBHOTKEY_PROFILERow - Get - Return Me.eventRow - End Get - End Property - - _ - Public ReadOnly Property Action() As Global.System.Data.DataRowAction - Get - Return Me.eventAction - End Get - End Property - End Class - - ''' - '''Row event argument class - ''' - _ - Public Class TBHOTKEY_PATTERNSRowChangeEvent - Inherits Global.System.EventArgs - - Private eventRow As TBHOTKEY_PATTERNSRow - - Private eventAction As Global.System.Data.DataRowAction - - _ - Public Sub New(ByVal row As TBHOTKEY_PATTERNSRow, ByVal action As Global.System.Data.DataRowAction) - MyBase.New - Me.eventRow = row - Me.eventAction = action - End Sub - - _ - Public ReadOnly Property Row() As TBHOTKEY_PATTERNSRow - Get - Return Me.eventRow - End Get - End Property - - _ - Public ReadOnly Property Action() As Global.System.Data.DataRowAction - Get - Return Me.eventAction - End Get - End Property - End Class - - ''' - '''Row event argument class - ''' - _ - Public Class TBMYHOTKEYSRowChangeEvent - Inherits Global.System.EventArgs - - Private eventRow As TBMYHOTKEYSRow - - Private eventAction As Global.System.Data.DataRowAction - - _ - Public Sub New(ByVal row As TBMYHOTKEYSRow, ByVal action As Global.System.Data.DataRowAction) - MyBase.New - Me.eventRow = row - Me.eventAction = action - End Sub - - _ - Public ReadOnly Property Row() As TBMYHOTKEYSRow - Get - Return Me.eventRow - End Get - End Property - - _ - Public ReadOnly Property Action() As Global.System.Data.DataRowAction - Get - Return Me.eventAction - End Get - End Property - End Class - - ''' - '''Row event argument class - ''' - _ - Public Class TBHOTKEY_USER_PROFILERowChangeEvent - Inherits Global.System.EventArgs - - Private eventRow As TBHOTKEY_USER_PROFILERow - - Private eventAction As Global.System.Data.DataRowAction - - _ - Public Sub New(ByVal row As TBHOTKEY_USER_PROFILERow, ByVal action As Global.System.Data.DataRowAction) - MyBase.New - Me.eventRow = row - Me.eventAction = action - End Sub - - _ - Public ReadOnly Property Row() As TBHOTKEY_USER_PROFILERow - Get - Return Me.eventRow - End Get - End Property - - _ - Public ReadOnly Property Action() As Global.System.Data.DataRowAction - Get - Return Me.eventAction - End Get - End Property - End Class - - ''' - '''Row event argument class - ''' - _ - Public Class TBHOTKEY_PATTERNS_REWORKRowChangeEvent - Inherits Global.System.EventArgs - - Private eventRow As TBHOTKEY_PATTERNS_REWORKRow - - Private eventAction As Global.System.Data.DataRowAction - - _ - Public Sub New(ByVal row As TBHOTKEY_PATTERNS_REWORKRow, ByVal action As Global.System.Data.DataRowAction) - MyBase.New - Me.eventRow = row - Me.eventAction = action - End Sub - - _ - Public ReadOnly Property Row() As TBHOTKEY_PATTERNS_REWORKRow - Get - Return Me.eventRow - End Get - End Property - - _ - Public ReadOnly Property Action() As Global.System.Data.DataRowAction - Get - Return Me.eventAction - End Get - End Property - End Class - - ''' - '''Row event argument class - ''' - _ - Public Class TBHOTKEY_WINDOW_HOOKRowChangeEvent - Inherits Global.System.EventArgs - - Private eventRow As TBHOTKEY_WINDOW_HOOKRow - - Private eventAction As Global.System.Data.DataRowAction - - _ - Public Sub New(ByVal row As TBHOTKEY_WINDOW_HOOKRow, ByVal action As Global.System.Data.DataRowAction) - MyBase.New - Me.eventRow = row - Me.eventAction = action - End Sub - - _ - Public ReadOnly Property Row() As TBHOTKEY_WINDOW_HOOKRow - Get - Return Me.eventRow - End Get - End Property - - _ - Public ReadOnly Property Action() As Global.System.Data.DataRowAction - Get - Return Me.eventAction - End Get - End Property - End Class - ''' '''Row event argument class ''' @@ -24192,2641 +20288,6 @@ Namespace MyDatasetTableAdapters End Function End Class - ''' - '''Represents the connection and commands used to retrieve and save data. - ''' - _ - Partial Public Class TBHOTKEY_PROFILETableAdapter - Inherits Global.System.ComponentModel.Component - - Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter - - Private _connection As Global.System.Data.SqlClient.SqlConnection - - Private _transaction As Global.System.Data.SqlClient.SqlTransaction - - Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand - - Private _clearBeforeFill As Boolean - - _ - Public Sub New() - MyBase.New - Me.ClearBeforeFill = true - End Sub - - _ - Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter - Get - If (Me._adapter Is Nothing) Then - Me.InitAdapter - End If - Return Me._adapter - End Get - End Property - - _ - Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection - Get - If (Me._connection Is Nothing) Then - Me.InitConnection - End If - Return Me._connection - End Get - Set - Me._connection = value - If (Not (Me.Adapter.InsertCommand) Is Nothing) Then - Me.Adapter.InsertCommand.Connection = value - End If - If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then - Me.Adapter.DeleteCommand.Connection = value - End If - If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then - Me.Adapter.UpdateCommand.Connection = value - End If - Dim i As Integer = 0 - Do While (i < Me.CommandCollection.Length) - If (Not (Me.CommandCollection(i)) Is Nothing) Then - CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value - End If - i = (i + 1) - Loop - End Set - End Property - - _ - Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction - Get - Return Me._transaction - End Get - Set - Me._transaction = value - Dim i As Integer = 0 - Do While (i < Me.CommandCollection.Length) - Me.CommandCollection(i).Transaction = Me._transaction - i = (i + 1) - Loop - If ((Not (Me.Adapter) Is Nothing) _ - AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then - Me.Adapter.DeleteCommand.Transaction = Me._transaction - End If - If ((Not (Me.Adapter) Is Nothing) _ - AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then - Me.Adapter.InsertCommand.Transaction = Me._transaction - End If - If ((Not (Me.Adapter) Is Nothing) _ - AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then - Me.Adapter.UpdateCommand.Transaction = Me._transaction - End If - End Set - End Property - - _ - Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() - Get - If (Me._commandCollection Is Nothing) Then - Me.InitCommandCollection - End If - Return Me._commandCollection - End Get - End Property - - _ - Public Property ClearBeforeFill() As Boolean - Get - Return Me._clearBeforeFill - End Get - Set - Me._clearBeforeFill = value - End Set - End Property - - _ - Private Sub InitAdapter() - Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() - Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() - tableMapping.SourceTable = "Table" - tableMapping.DataSetTable = "TBHOTKEY_PROFILE" - tableMapping.ColumnMappings.Add("GUID", "GUID") - tableMapping.ColumnMappings.Add("NAME", "NAME") - tableMapping.ColumnMappings.Add("OBJECTTYPE", "OBJECTTYPE") - tableMapping.ColumnMappings.Add("WD_SEARCH", "WD_SEARCH") - tableMapping.ColumnMappings.Add("HOTKEY1", "HOTKEY1") - tableMapping.ColumnMappings.Add("HOTKEY2", "HOTKEY2") - tableMapping.ColumnMappings.Add("WINDOW_NAME", "WINDOW_NAME") - tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") - tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") - tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") - tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") - tableMapping.ColumnMappings.Add("String", "String") - 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 [TBHOTKEY_PROFILE] WHERE (([GUID] = @Original_GUID) AND ([NAME] = @Or"& _ - "iginal_NAME) AND ([OBJECTTYPE] = @Original_OBJECTTYPE) AND ([WD_SEARCH] = @Origi"& _ - "nal_WD_SEARCH) AND ([HOTKEY1] = @Original_HOTKEY1) AND ([HOTKEY2] = @Original_HO"& _ - "TKEY2) AND ([WINDOW_NAME] = @Original_WINDOW_NAME) AND ([ADDED_WHO] = @Original_"& _ - "ADDED_WHO) AND ((@IsNull_ADDED_WHEN = 1 AND [ADDED_WHEN] IS NULL) OR ([ADDED_WHE"& _ - "N] = @Original_ADDED_WHEN)) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS N"& _ - "ULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 "& _ - "AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)))" - 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, 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_NAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_OBJECTTYPE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "OBJECTTYPE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_WD_SEARCH", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WD_SEARCH", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_HOTKEY1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "HOTKEY1", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_HOTKEY2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "HOTKEY2", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_WINDOW_NAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WINDOW_NAME", 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.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() - Me._adapter.InsertCommand.Connection = Me.Connection - Me._adapter.InsertCommand.CommandText = "INSERT INTO TBHOTKEY_PROFILE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (NAME, OBJECTTYPE, WD_SEAR"& _ - "CH, HOTKEY1, HOTKEY2, WINDOW_NAME, ADDED_WHO)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@NAME,@OBJECTTYPE,"& _ - "@WD_SEARCH,@HOTKEY1,@HOTKEY2,@WINDOW_NAME,@ADDED_WHO); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, NAME, NAME"& _ - " + ', Hotkey: ' + HOTKEY1 + ' & ' + HOTKEY2 AS String, OBJECTTYPE, WD_SEARCH, HO"& _ - "TKEY1, HOTKEY2, WINDOW_NAME, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FR"& _ - "OM TBHOTKEY_PROFILE WHERE (GUID = SCOPE_IDENTITY())" - Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@OBJECTTYPE", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "OBJECTTYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WD_SEARCH", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "WD_SEARCH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@HOTKEY1", Global.System.Data.SqlDbType.VarChar, 10, Global.System.Data.ParameterDirection.Input, 0, 0, "HOTKEY1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@HOTKEY2", Global.System.Data.SqlDbType.VarChar, 5, Global.System.Data.ParameterDirection.Input, 0, 0, "HOTKEY2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WINDOW_NAME", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "WINDOW_NAME", 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.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() - Me._adapter.UpdateCommand.Connection = Me.Connection - Me._adapter.UpdateCommand.CommandText = "UPDATE [TBHOTKEY_PROFILE] SET [NAME] = @NAME, [OBJECTTYPE] = @OBJECTTYPE, [WD_SEA"& _ - "RCH] = @WD_SEARCH, [HOTKEY1] = @HOTKEY1, [HOTKEY2] = @HOTKEY2, [WINDOW_NAME] = @"& _ - "WINDOW_NAME, [ADDED_WHO] = @ADDED_WHO, [ADDED_WHEN] = @ADDED_WHEN, [CHANGED_WHO]"& _ - " = @CHANGED_WHO, [CHANGED_WHEN] = @CHANGED_WHEN WHERE (([GUID] = @Original_GUID)"& _ - " AND ([NAME] = @Original_NAME) AND ([OBJECTTYPE] = @Original_OBJECTTYPE) AND ([W"& _ - "D_SEARCH] = @Original_WD_SEARCH) AND ([HOTKEY1] = @Original_HOTKEY1) AND ([HOTKE"& _ - "Y2] = @Original_HOTKEY2) AND ([WINDOW_NAME] = @Original_WINDOW_NAME) AND ([ADDED"& _ - "_WHO] = @Original_ADDED_WHO) AND ((@IsNull_ADDED_WHEN = 1 AND [ADDED_WHEN] IS NU"& _ - "LL) 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_CHA"& _ - "NGED_WHEN)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, NAME, NAME + ', Hotkey: ' + HOTKEY1 + ' & ' + HOTKEY"& _ - "2 AS String, OBJECTTYPE, WD_SEARCH, HOTKEY1, HOTKEY2, WINDOW_NAME, ADDED_WHO, AD"& _ - "DED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBHOTKEY_PROFILE WHERE (GUID = @GUID)" - Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@OBJECTTYPE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "OBJECTTYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WD_SEARCH", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WD_SEARCH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@HOTKEY1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "HOTKEY1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@HOTKEY2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "HOTKEY2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WINDOW_NAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WINDOW_NAME", 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("@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_NAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_OBJECTTYPE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "OBJECTTYPE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_WD_SEARCH", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WD_SEARCH", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_HOTKEY1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "HOTKEY1", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_HOTKEY2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "HOTKEY2", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_WINDOW_NAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WINDOW_NAME", 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("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - End Sub - - _ - Private Sub InitConnection() - Me._connection = New Global.System.Data.SqlClient.SqlConnection() - Me._connection.ConnectionString = Global.Global_Indexer.My.MySettings.Default.DD_ECMConnectionString - End Sub - - _ - Private Sub InitCommandCollection() - Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(2) {} - Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(0).Connection = Me.Connection - Me._commandCollection(0).CommandText = "SELECT GUID, NAME, NAME + ', Hotkey: ' + HOTKEY1 + ' & ' + HOTKEY2 AS Stri"& _ - "ng, OBJECTTYPE, WD_SEARCH, HOTKEY1, HOTKEY2, WINDOW_NAME, ADDED_WHO, ADDED_WHEN,"& _ - " CHANGED_WHO, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" CHANGED_WHEN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBHOTKEY_"& _ - "PROFILE" - Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(1) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(1).Connection = Me.Connection - Me._commandCollection(1).CommandText = "UPDATE TBHOTKEY_PROFILE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET NAME = @NAME, OBJECTTYPE = @OBJ"& _ - "ECTTYPE, WD_SEARCH = @WD_SEARCH, HOTKEY1 = @HOTKEY1, HOTKEY2 = @HOTKEY2, WINDOW_"& _ - "NAME = @WINDOW_NAME, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" CHANGED_WHO = @CHANGED_WHO"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHER"& _ - "E (GUID = @Original_GUID)" - Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@OBJECTTYPE", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "OBJECTTYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WD_SEARCH", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "WD_SEARCH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@HOTKEY1", Global.System.Data.SqlDbType.VarChar, 10, Global.System.Data.ParameterDirection.Input, 0, 0, "HOTKEY1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@HOTKEY2", Global.System.Data.SqlDbType.VarChar, 5, Global.System.Data.ParameterDirection.Input, 0, 0, "HOTKEY2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WINDOW_NAME", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "WINDOW_NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(1).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._commandCollection(2) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(2).Connection = Me.Connection - Me._commandCollection(2).CommandText = "SELECT GUID, NAME, NAME + ', Hotkey: ' + HOTKEY1 + ' & ' + HOTKEY2 AS Stri"& _ - "ng, OBJECTTYPE, WD_SEARCH, HOTKEY1, HOTKEY2, WINDOW_NAME, ADDED_WHO, ADDED_WHEN,"& _ - " CHANGED_WHO, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" CHANGED_WHEN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBHOTKEY_"& _ - "PROFILE where GUID = @HK_ID" - Me._commandCollection(2).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(2).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@HK_ID", 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 Fill(ByVal dataTable As MyDataset.TBHOTKEY_PROFILEDataTable) As Integer - Me.Adapter.SelectCommand = Me.CommandCollection(0) - If (Me.ClearBeforeFill = true) Then - dataTable.Clear - End If - Dim returnValue As Integer = Me.Adapter.Fill(dataTable) - Return returnValue - End Function - - _ - Public Overloads Overridable Function GetData() As MyDataset.TBHOTKEY_PROFILEDataTable - Me.Adapter.SelectCommand = Me.CommandCollection(0) - Dim dataTable As MyDataset.TBHOTKEY_PROFILEDataTable = New MyDataset.TBHOTKEY_PROFILEDataTable() - Me.Adapter.Fill(dataTable) - Return dataTable - End Function - - _ - Public Overloads Overridable Function FillByID(ByVal dataTable As MyDataset.TBHOTKEY_PROFILEDataTable, ByVal HK_ID As Integer) As Integer - Me.Adapter.SelectCommand = Me.CommandCollection(2) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(HK_ID,Integer) - If (Me.ClearBeforeFill = true) Then - dataTable.Clear - End If - Dim returnValue As Integer = Me.Adapter.Fill(dataTable) - Return returnValue - End Function - - _ - Public Overloads Overridable Function GetDataByID(ByVal HK_ID As Integer) As MyDataset.TBHOTKEY_PROFILEDataTable - Me.Adapter.SelectCommand = Me.CommandCollection(2) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(HK_ID,Integer) - Dim dataTable As MyDataset.TBHOTKEY_PROFILEDataTable = New MyDataset.TBHOTKEY_PROFILEDataTable() - Me.Adapter.Fill(dataTable) - Return dataTable - End Function - - _ - Public Overloads Overridable Function Update(ByVal dataTable As MyDataset.TBHOTKEY_PROFILEDataTable) As Integer - Return Me.Adapter.Update(dataTable) - End Function - - _ - Public Overloads Overridable Function Update(ByVal dataSet As MyDataset) As Integer - Return Me.Adapter.Update(dataSet, "TBHOTKEY_PROFILE") - End Function - - _ - Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer - Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) - End Function - - _ - Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer - Return Me.Adapter.Update(dataRows) - End Function - - _ - Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer, ByVal Original_NAME As String, ByVal Original_OBJECTTYPE As String, ByVal Original_WD_SEARCH As String, ByVal Original_HOTKEY1 As String, ByVal Original_HOTKEY2 As String, ByVal Original_WINDOW_NAME As String, 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)) As Integer - Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) - If (Original_NAME Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_NAME") - Else - Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_NAME,String) - End If - If (Original_OBJECTTYPE Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_OBJECTTYPE") - Else - Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_OBJECTTYPE,String) - End If - If (Original_WD_SEARCH Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_WD_SEARCH") - Else - Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_WD_SEARCH,String) - End If - If (Original_HOTKEY1 Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_HOTKEY1") - Else - Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_HOTKEY1,String) - End If - If (Original_HOTKEY2 Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_HOTKEY2") - Else - Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_HOTKEY2,String) - End If - If (Original_WINDOW_NAME Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_WINDOW_NAME") - Else - Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_WINDOW_NAME,String) - End If - If (Original_ADDED_WHO Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_ADDED_WHO") - Else - Me.Adapter.DeleteCommand.Parameters(7).Value = CType(Original_ADDED_WHO,String) - End If - If (Original_ADDED_WHEN.HasValue = true) Then - Me.Adapter.DeleteCommand.Parameters(8).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(9).Value = CType(Original_ADDED_WHEN.Value,Date) - Else - Me.Adapter.DeleteCommand.Parameters(8).Value = CType(1,Object) - Me.Adapter.DeleteCommand.Parameters(9).Value = Global.System.DBNull.Value - End If - If (Original_CHANGED_WHO Is Nothing) Then - Me.Adapter.DeleteCommand.Parameters(10).Value = CType(1,Object) - Me.Adapter.DeleteCommand.Parameters(11).Value = Global.System.DBNull.Value - Else - Me.Adapter.DeleteCommand.Parameters(10).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(11).Value = CType(Original_CHANGED_WHO,String) - End If - If (Original_CHANGED_WHEN.HasValue = true) Then - Me.Adapter.DeleteCommand.Parameters(12).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(13).Value = CType(Original_CHANGED_WHEN.Value,Date) - Else - Me.Adapter.DeleteCommand.Parameters(12).Value = CType(1,Object) - Me.Adapter.DeleteCommand.Parameters(13).Value = Global.System.DBNull.Value - End If - 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 - Me.Adapter.DeleteCommand.Connection.Open - End If - Try - Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery - Return returnValue - Finally - If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - Me.Adapter.DeleteCommand.Connection.Close - End If - End Try - End Function - - _ - Public Overloads Overridable Function Insert(ByVal NAME As String, ByVal OBJECTTYPE As String, ByVal WD_SEARCH As String, ByVal HOTKEY1 As String, ByVal HOTKEY2 As String, ByVal WINDOW_NAME As String, ByVal ADDED_WHO As String) As Integer - If (NAME Is Nothing) Then - Throw New Global.System.ArgumentNullException("NAME") - Else - Me.Adapter.InsertCommand.Parameters(0).Value = CType(NAME,String) - End If - If (OBJECTTYPE Is Nothing) Then - Throw New Global.System.ArgumentNullException("OBJECTTYPE") - Else - Me.Adapter.InsertCommand.Parameters(1).Value = CType(OBJECTTYPE,String) - End If - If (WD_SEARCH Is Nothing) Then - Throw New Global.System.ArgumentNullException("WD_SEARCH") - Else - Me.Adapter.InsertCommand.Parameters(2).Value = CType(WD_SEARCH,String) - End If - If (HOTKEY1 Is Nothing) Then - Throw New Global.System.ArgumentNullException("HOTKEY1") - Else - Me.Adapter.InsertCommand.Parameters(3).Value = CType(HOTKEY1,String) - End If - If (HOTKEY2 Is Nothing) Then - Throw New Global.System.ArgumentNullException("HOTKEY2") - Else - Me.Adapter.InsertCommand.Parameters(4).Value = CType(HOTKEY2,String) - End If - If (WINDOW_NAME Is Nothing) Then - Throw New Global.System.ArgumentNullException("WINDOW_NAME") - Else - Me.Adapter.InsertCommand.Parameters(5).Value = CType(WINDOW_NAME,String) - End If - If (ADDED_WHO Is Nothing) Then - Throw New Global.System.ArgumentNullException("ADDED_WHO") - Else - Me.Adapter.InsertCommand.Parameters(6).Value = CType(ADDED_WHO,String) - End If - 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 - Me.Adapter.InsertCommand.Connection.Open - End If - Try - Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery - Return returnValue - Finally - If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - Me.Adapter.InsertCommand.Connection.Close - End If - End Try - End Function - - _ - Public Overloads Overridable Function Update( _ - ByVal NAME As String, _ - ByVal OBJECTTYPE As String, _ - ByVal WD_SEARCH As String, _ - ByVal HOTKEY1 As String, _ - ByVal HOTKEY2 As String, _ - ByVal WINDOW_NAME As String, _ - 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 Original_GUID As Integer, _ - ByVal Original_NAME As String, _ - ByVal Original_OBJECTTYPE As String, _ - ByVal Original_WD_SEARCH As String, _ - ByVal Original_HOTKEY1 As String, _ - ByVal Original_HOTKEY2 As String, _ - ByVal Original_WINDOW_NAME As String, _ - 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 GUID As Integer) As Integer - If (NAME Is Nothing) Then - Throw New Global.System.ArgumentNullException("NAME") - Else - Me.Adapter.UpdateCommand.Parameters(0).Value = CType(NAME,String) - End If - If (OBJECTTYPE Is Nothing) Then - Throw New Global.System.ArgumentNullException("OBJECTTYPE") - Else - Me.Adapter.UpdateCommand.Parameters(1).Value = CType(OBJECTTYPE,String) - End If - If (WD_SEARCH Is Nothing) Then - Throw New Global.System.ArgumentNullException("WD_SEARCH") - Else - Me.Adapter.UpdateCommand.Parameters(2).Value = CType(WD_SEARCH,String) - End If - If (HOTKEY1 Is Nothing) Then - Throw New Global.System.ArgumentNullException("HOTKEY1") - Else - Me.Adapter.UpdateCommand.Parameters(3).Value = CType(HOTKEY1,String) - End If - If (HOTKEY2 Is Nothing) Then - Throw New Global.System.ArgumentNullException("HOTKEY2") - Else - Me.Adapter.UpdateCommand.Parameters(4).Value = CType(HOTKEY2,String) - End If - If (WINDOW_NAME Is Nothing) Then - Throw New Global.System.ArgumentNullException("WINDOW_NAME") - Else - Me.Adapter.UpdateCommand.Parameters(5).Value = CType(WINDOW_NAME,String) - End If - If (ADDED_WHO Is Nothing) Then - Throw New Global.System.ArgumentNullException("ADDED_WHO") - Else - Me.Adapter.UpdateCommand.Parameters(6).Value = CType(ADDED_WHO,String) - End If - If (ADDED_WHEN.HasValue = true) Then - Me.Adapter.UpdateCommand.Parameters(7).Value = CType(ADDED_WHEN.Value,Date) - Else - Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value - End If - If (CHANGED_WHO Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(8).Value = CType(CHANGED_WHO,String) - End If - If (CHANGED_WHEN.HasValue = true) Then - Me.Adapter.UpdateCommand.Parameters(9).Value = CType(CHANGED_WHEN.Value,Date) - Else - Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value - End If - Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Original_GUID,Integer) - If (Original_NAME Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_NAME") - Else - Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Original_NAME,String) - End If - If (Original_OBJECTTYPE Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_OBJECTTYPE") - Else - Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Original_OBJECTTYPE,String) - End If - If (Original_WD_SEARCH Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_WD_SEARCH") - Else - Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Original_WD_SEARCH,String) - End If - If (Original_HOTKEY1 Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_HOTKEY1") - Else - Me.Adapter.UpdateCommand.Parameters(14).Value = CType(Original_HOTKEY1,String) - End If - If (Original_HOTKEY2 Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_HOTKEY2") - Else - Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Original_HOTKEY2,String) - End If - If (Original_WINDOW_NAME Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_WINDOW_NAME") - Else - Me.Adapter.UpdateCommand.Parameters(16).Value = CType(Original_WINDOW_NAME,String) - End If - If (Original_ADDED_WHO Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_ADDED_WHO") - Else - Me.Adapter.UpdateCommand.Parameters(17).Value = CType(Original_ADDED_WHO,String) - End If - If (Original_ADDED_WHEN.HasValue = true) Then - Me.Adapter.UpdateCommand.Parameters(18).Value = CType(0,Object) - Me.Adapter.UpdateCommand.Parameters(19).Value = CType(Original_ADDED_WHEN.Value,Date) - Else - Me.Adapter.UpdateCommand.Parameters(18).Value = CType(1,Object) - Me.Adapter.UpdateCommand.Parameters(19).Value = Global.System.DBNull.Value - End If - If (Original_CHANGED_WHO Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(20).Value = CType(1,Object) - Me.Adapter.UpdateCommand.Parameters(21).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(20).Value = CType(0,Object) - Me.Adapter.UpdateCommand.Parameters(21).Value = CType(Original_CHANGED_WHO,String) - End If - If (Original_CHANGED_WHEN.HasValue = true) Then - Me.Adapter.UpdateCommand.Parameters(22).Value = CType(0,Object) - Me.Adapter.UpdateCommand.Parameters(23).Value = CType(Original_CHANGED_WHEN.Value,Date) - Else - Me.Adapter.UpdateCommand.Parameters(22).Value = CType(1,Object) - Me.Adapter.UpdateCommand.Parameters(23).Value = Global.System.DBNull.Value - End If - Me.Adapter.UpdateCommand.Parameters(24).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 - Me.Adapter.UpdateCommand.Connection.Open - End If - Try - Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery - Return returnValue - Finally - If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - Me.Adapter.UpdateCommand.Connection.Close - End If - End Try - End Function - - _ - Public Overloads Overridable Function Update( _ - ByVal NAME As String, _ - ByVal OBJECTTYPE As String, _ - ByVal WD_SEARCH As String, _ - ByVal HOTKEY1 As String, _ - ByVal HOTKEY2 As String, _ - ByVal WINDOW_NAME As String, _ - 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 Original_GUID As Integer, _ - ByVal Original_NAME As String, _ - ByVal Original_OBJECTTYPE As String, _ - ByVal Original_WD_SEARCH As String, _ - ByVal Original_HOTKEY1 As String, _ - ByVal Original_HOTKEY2 As String, _ - ByVal Original_WINDOW_NAME As String, _ - 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)) As Integer - Return Me.Update(NAME, OBJECTTYPE, WD_SEARCH, HOTKEY1, HOTKEY2, WINDOW_NAME, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, Original_GUID, Original_NAME, Original_OBJECTTYPE, Original_WD_SEARCH, Original_HOTKEY1, Original_HOTKEY2, Original_WINDOW_NAME, Original_ADDED_WHO, Original_ADDED_WHEN, Original_CHANGED_WHO, Original_CHANGED_WHEN, Original_GUID) - End Function - - _ - Public Overloads Overridable Function cmdUpdate(ByVal NAME As String, ByVal OBJECTTYPE As String, ByVal WD_SEARCH As String, ByVal HOTKEY1 As String, ByVal HOTKEY2 As String, ByVal WINDOW_NAME As String, ByVal CHANGED_WHO As String, ByVal Original_GUID As Integer) As Integer - Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(1) - If (NAME Is Nothing) Then - Throw New Global.System.ArgumentNullException("NAME") - Else - command.Parameters(0).Value = CType(NAME,String) - End If - If (OBJECTTYPE Is Nothing) Then - Throw New Global.System.ArgumentNullException("OBJECTTYPE") - Else - command.Parameters(1).Value = CType(OBJECTTYPE,String) - End If - If (WD_SEARCH Is Nothing) Then - Throw New Global.System.ArgumentNullException("WD_SEARCH") - Else - command.Parameters(2).Value = CType(WD_SEARCH,String) - End If - If (HOTKEY1 Is Nothing) Then - Throw New Global.System.ArgumentNullException("HOTKEY1") - Else - command.Parameters(3).Value = CType(HOTKEY1,String) - End If - If (HOTKEY2 Is Nothing) Then - Throw New Global.System.ArgumentNullException("HOTKEY2") - Else - command.Parameters(4).Value = CType(HOTKEY2,String) - End If - If (WINDOW_NAME Is Nothing) Then - Throw New Global.System.ArgumentNullException("WINDOW_NAME") - Else - command.Parameters(5).Value = CType(WINDOW_NAME,String) - End If - If (CHANGED_WHO Is Nothing) Then - command.Parameters(6).Value = Global.System.DBNull.Value - Else - command.Parameters(6).Value = CType(CHANGED_WHO,String) - End If - command.Parameters(7).Value = CType(Original_GUID,Integer) - Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State - If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ - <> Global.System.Data.ConnectionState.Open) Then - command.Connection.Open - End If - Dim returnValue As Integer - Try - returnValue = command.ExecuteNonQuery - Finally - If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - command.Connection.Close - End If - End Try - Return returnValue - End Function - End Class - - ''' - '''Represents the connection and commands used to retrieve and save data. - ''' - _ - Partial Public Class TBHOTKEY_PATTERNSTableAdapter - Inherits Global.System.ComponentModel.Component - - Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter - - Private _connection As Global.System.Data.SqlClient.SqlConnection - - Private _transaction As Global.System.Data.SqlClient.SqlTransaction - - Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand - - Private _clearBeforeFill As Boolean - - _ - Public Sub New() - MyBase.New - Me.ClearBeforeFill = true - End Sub - - _ - Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter - Get - If (Me._adapter Is Nothing) Then - Me.InitAdapter - End If - Return Me._adapter - End Get - End Property - - _ - Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection - Get - If (Me._connection Is Nothing) Then - Me.InitConnection - End If - Return Me._connection - End Get - Set - Me._connection = value - If (Not (Me.Adapter.InsertCommand) Is Nothing) Then - Me.Adapter.InsertCommand.Connection = value - End If - If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then - Me.Adapter.DeleteCommand.Connection = value - End If - If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then - Me.Adapter.UpdateCommand.Connection = value - End If - Dim i As Integer = 0 - Do While (i < Me.CommandCollection.Length) - If (Not (Me.CommandCollection(i)) Is Nothing) Then - CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value - End If - i = (i + 1) - Loop - End Set - End Property - - _ - Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction - Get - Return Me._transaction - End Get - Set - Me._transaction = value - Dim i As Integer = 0 - Do While (i < Me.CommandCollection.Length) - Me.CommandCollection(i).Transaction = Me._transaction - i = (i + 1) - Loop - If ((Not (Me.Adapter) Is Nothing) _ - AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then - Me.Adapter.DeleteCommand.Transaction = Me._transaction - End If - If ((Not (Me.Adapter) Is Nothing) _ - AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then - Me.Adapter.InsertCommand.Transaction = Me._transaction - End If - If ((Not (Me.Adapter) Is Nothing) _ - AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then - Me.Adapter.UpdateCommand.Transaction = Me._transaction - End If - End Set - End Property - - _ - Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() - Get - If (Me._commandCollection Is Nothing) Then - Me.InitCommandCollection - End If - Return Me._commandCollection - End Get - End Property - - _ - Public Property ClearBeforeFill() As Boolean - Get - Return Me._clearBeforeFill - End Get - Set - Me._clearBeforeFill = value - End Set - End Property - - _ - Private Sub InitAdapter() - Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() - Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() - tableMapping.SourceTable = "Table" - tableMapping.DataSetTable = "TBHOTKEY_PATTERNS" - tableMapping.ColumnMappings.Add("GUID", "GUID") - tableMapping.ColumnMappings.Add("HKPROFILE_ID", "HKPROFILE_ID") - tableMapping.ColumnMappings.Add("PATTERN_WDSEARCH", "PATTERN_WDSEARCH") - tableMapping.ColumnMappings.Add("WINDOW_CONTROL", "WINDOW_CONTROL") - tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") - tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") - tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") - tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") - tableMapping.ColumnMappings.Add("SEQUENCE_NUMBER", "SEQUENCE_NUMBER") - 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 TBHOTKEY_PATTERNS"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" - 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.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() - Me._adapter.InsertCommand.Connection = Me.Connection - Me._adapter.InsertCommand.CommandText = "INSERT INTO TBHOTKEY_PATTERNS"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (HKPROFILE_ID, PATTERN_WD"& _ - "SEARCH, WINDOW_CONTROL, ADDED_WHO, SEQUENCE_NUMBER)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@HKPROFILE_I"& _ - "D,@PATTERN_WDSEARCH,@WINDOW_CONTROL,@ADDED_WHO,@SEQUENCE_NUMBER); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID"& _ - ", HKPROFILE_ID, PATTERN_WDSEARCH, WINDOW_CONTROL, ADDED_WHO, ADDED_WHEN, CHANGED"& _ - "_WHO, CHANGED_WHEN FROM TBHOTKEY_PATTERNS WHERE (GUID = SCOPE_IDENTITY())" - Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@HKPROFILE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "HKPROFILE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PATTERN_WDSEARCH", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "PATTERN_WDSEARCH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WINDOW_CONTROL", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "WINDOW_CONTROL", 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("@SEQUENCE_NUMBER", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE_NUMBER", 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 TBHOTKEY_PATTERNS"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET HKPROFILE_ID = @HKPROFILE_ID, "& _ - "PATTERN_WDSEARCH = @PATTERN_WDSEARCH, WINDOW_CONTROL = @WINDOW_CONTROL, ADDED_WH"& _ - "O = @ADDED_WHO, ADDED_WHEN = @ADDED_WHEN, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" CHANGED_WHO"& _ - " = @CHANGED_WHO, SEQUENCE_NUMBER = @SEQUENCE_NUMBER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Origi"& _ - "nal_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, HKPROFILE_ID, PATTERN_WDSEARCH, WINDOW_CONTROL, ADDED_"& _ - "WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBHOTKEY_PATTERNS WHERE (GUID = "& _ - "@GUID)" - Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@HKPROFILE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "HKPROFILE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PATTERN_WDSEARCH", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "PATTERN_WDSEARCH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WINDOW_CONTROL", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "WINDOW_CONTROL", 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, 50, 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, 8, 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, 50, 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("@SEQUENCE_NUMBER", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE_NUMBER", 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, "", "", "")) - End Sub - - _ - Private Sub InitConnection() - Me._connection = New Global.System.Data.SqlClient.SqlConnection() - Me._connection.ConnectionString = Global.Global_Indexer.My.MySettings.Default.DD_ECMConnectionString - End Sub - - _ - Private Sub InitCommandCollection() - Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} - Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(0).Connection = Me.Connection - Me._commandCollection(0).CommandText = "SELECT GUID, HKPROFILE_ID, PATTERN_WDSEARCH, WINDOW_CONTROL, ADDED_WHO, AD"& _ - "DED_WHEN, CHANGED_WHO, CHANGED_WHEN, SEQUENCE_NUMBER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBHOTKEY_P"& _ - "ATTERNS"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (HKPROFILE_ID = @ID)" - Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "HKPROFILE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - End Sub - - _ - Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBHOTKEY_PATTERNSDataTable, ByVal ID As Integer) As Integer - Me.Adapter.SelectCommand = Me.CommandCollection(0) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(ID,Integer) - If (Me.ClearBeforeFill = true) Then - dataTable.Clear - End If - Dim returnValue As Integer = Me.Adapter.Fill(dataTable) - Return returnValue - End Function - - _ - Public Overloads Overridable Function GetData(ByVal ID As Integer) As MyDataset.TBHOTKEY_PATTERNSDataTable - Me.Adapter.SelectCommand = Me.CommandCollection(0) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(ID,Integer) - Dim dataTable As MyDataset.TBHOTKEY_PATTERNSDataTable = New MyDataset.TBHOTKEY_PATTERNSDataTable() - Me.Adapter.Fill(dataTable) - Return dataTable - End Function - - _ - Public Overloads Overridable Function Update(ByVal dataTable As MyDataset.TBHOTKEY_PATTERNSDataTable) As Integer - Return Me.Adapter.Update(dataTable) - End Function - - _ - Public Overloads Overridable Function Update(ByVal dataSet As MyDataset) As Integer - Return Me.Adapter.Update(dataSet, "TBHOTKEY_PATTERNS") - End Function - - _ - Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer - Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) - End Function - - _ - Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer - Return Me.Adapter.Update(dataRows) - End Function - - _ - Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer) As Integer - Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,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 - Me.Adapter.DeleteCommand.Connection.Open - End If - Try - Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery - Return returnValue - Finally - If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - Me.Adapter.DeleteCommand.Connection.Close - End If - End Try - End Function - - _ - Public Overloads Overridable Function Insert(ByVal HKPROFILE_ID As Integer, ByVal PATTERN_WDSEARCH As String, ByVal WINDOW_CONTROL As String, ByVal ADDED_WHO As String, ByVal SEQUENCE_NUMBER As Integer) As Integer - Me.Adapter.InsertCommand.Parameters(0).Value = CType(HKPROFILE_ID,Integer) - If (PATTERN_WDSEARCH Is Nothing) Then - Throw New Global.System.ArgumentNullException("PATTERN_WDSEARCH") - Else - Me.Adapter.InsertCommand.Parameters(1).Value = CType(PATTERN_WDSEARCH,String) - End If - If (WINDOW_CONTROL Is Nothing) Then - Throw New Global.System.ArgumentNullException("WINDOW_CONTROL") - Else - Me.Adapter.InsertCommand.Parameters(2).Value = CType(WINDOW_CONTROL,String) - End If - If (ADDED_WHO Is Nothing) Then - Throw New Global.System.ArgumentNullException("ADDED_WHO") - Else - Me.Adapter.InsertCommand.Parameters(3).Value = CType(ADDED_WHO,String) - End If - Me.Adapter.InsertCommand.Parameters(4).Value = CType(SEQUENCE_NUMBER,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 - Me.Adapter.InsertCommand.Connection.Open - End If - Try - Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery - Return returnValue - Finally - If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - Me.Adapter.InsertCommand.Connection.Close - End If - End Try - End Function - - _ - Public Overloads Overridable Function Update(ByVal HKPROFILE_ID As Integer, ByVal PATTERN_WDSEARCH As String, ByVal WINDOW_CONTROL As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Global.System.Nullable(Of Date), ByVal CHANGED_WHO As String, ByVal SEQUENCE_NUMBER As Integer, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer - Me.Adapter.UpdateCommand.Parameters(0).Value = CType(HKPROFILE_ID,Integer) - If (PATTERN_WDSEARCH Is Nothing) Then - Throw New Global.System.ArgumentNullException("PATTERN_WDSEARCH") - Else - Me.Adapter.UpdateCommand.Parameters(1).Value = CType(PATTERN_WDSEARCH,String) - End If - If (WINDOW_CONTROL Is Nothing) Then - Throw New Global.System.ArgumentNullException("WINDOW_CONTROL") - Else - Me.Adapter.UpdateCommand.Parameters(2).Value = CType(WINDOW_CONTROL,String) - End If - If (ADDED_WHO Is Nothing) Then - Throw New Global.System.ArgumentNullException("ADDED_WHO") - Else - Me.Adapter.UpdateCommand.Parameters(3).Value = CType(ADDED_WHO,String) - End If - If (ADDED_WHEN.HasValue = true) Then - Me.Adapter.UpdateCommand.Parameters(4).Value = CType(ADDED_WHEN.Value,Date) - Else - Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value - End If - If (CHANGED_WHO Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(5).Value = CType(CHANGED_WHO,String) - End If - Me.Adapter.UpdateCommand.Parameters(6).Value = CType(SEQUENCE_NUMBER,Integer) - Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_GUID,Integer) - Me.Adapter.UpdateCommand.Parameters(8).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 - Me.Adapter.UpdateCommand.Connection.Open - End If - Try - Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery - Return returnValue - Finally - If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - Me.Adapter.UpdateCommand.Connection.Close - End If - End Try - End Function - End Class - - ''' - '''Represents the connection and commands used to retrieve and save data. - ''' - _ - Partial Public Class TBMYHOTKEYSTableAdapter - Inherits Global.System.ComponentModel.Component - - Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter - - Private _connection As Global.System.Data.SqlClient.SqlConnection - - Private _transaction As Global.System.Data.SqlClient.SqlTransaction - - Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand - - Private _clearBeforeFill As Boolean - - _ - Public Sub New() - MyBase.New - Me.ClearBeforeFill = true - End Sub - - _ - Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter - Get - If (Me._adapter Is Nothing) Then - Me.InitAdapter - End If - Return Me._adapter - End Get - End Property - - _ - Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection - Get - If (Me._connection Is Nothing) Then - Me.InitConnection - End If - Return Me._connection - End Get - Set - Me._connection = value - If (Not (Me.Adapter.InsertCommand) Is Nothing) Then - Me.Adapter.InsertCommand.Connection = value - End If - If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then - Me.Adapter.DeleteCommand.Connection = value - End If - If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then - Me.Adapter.UpdateCommand.Connection = value - End If - Dim i As Integer = 0 - Do While (i < Me.CommandCollection.Length) - If (Not (Me.CommandCollection(i)) Is Nothing) Then - CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value - End If - i = (i + 1) - Loop - End Set - End Property - - _ - Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction - Get - Return Me._transaction - End Get - Set - Me._transaction = value - Dim i As Integer = 0 - Do While (i < Me.CommandCollection.Length) - Me.CommandCollection(i).Transaction = Me._transaction - i = (i + 1) - Loop - If ((Not (Me.Adapter) Is Nothing) _ - AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then - Me.Adapter.DeleteCommand.Transaction = Me._transaction - End If - If ((Not (Me.Adapter) Is Nothing) _ - AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then - Me.Adapter.InsertCommand.Transaction = Me._transaction - End If - If ((Not (Me.Adapter) Is Nothing) _ - AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then - Me.Adapter.UpdateCommand.Transaction = Me._transaction - End If - End Set - End Property - - _ - Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() - Get - If (Me._commandCollection Is Nothing) Then - Me.InitCommandCollection - End If - Return Me._commandCollection - End Get - End Property - - _ - Public Property ClearBeforeFill() As Boolean - Get - Return Me._clearBeforeFill - End Get - Set - Me._clearBeforeFill = value - End Set - End Property - - _ - Private Sub InitAdapter() - Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() - Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() - tableMapping.SourceTable = "Table" - tableMapping.DataSetTable = "TBMYHOTKEYS" - tableMapping.ColumnMappings.Add("GUID", "GUID") - tableMapping.ColumnMappings.Add("String", "String") - Me._adapter.TableMappings.Add(tableMapping) - End Sub - - _ - Private Sub InitConnection() - Me._connection = New Global.System.Data.SqlClient.SqlConnection() - Me._connection.ConnectionString = Global.Global_Indexer.My.MySettings.Default.DD_ECMConnectionString - End Sub - - _ - Private Sub InitCommandCollection() - Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} - Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(0).Connection = Me.Connection - Me._commandCollection(0).CommandText = "SELECT T1.GUID, T.NAME + ', Hotkey: ' + T1.HOTKEY1 + ' & ' + T1.HOTKEY2 AS"& _ - " String"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBHOTKEY_PROFILE AS T INNER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ - " TBHOTKEY_USER_PROFILE AS T1 ON T.GUID = T1.HKPROFILE_ID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (T.GUI"& _ - "D IN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (SELECT HKPROFILE_ID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ - " FROM TBHOTKEY_USER_PROFILE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ - " WHERE (USER_ID = @USERID))) AND (T1.USER_ID = @USERID)" - Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USERID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "USER_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - End Sub - - _ - Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBMYHOTKEYSDataTable, ByVal USERID As Integer) As Integer - Me.Adapter.SelectCommand = Me.CommandCollection(0) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(USERID,Integer) - If (Me.ClearBeforeFill = true) Then - dataTable.Clear - End If - Dim returnValue As Integer = Me.Adapter.Fill(dataTable) - Return returnValue - End Function - - _ - Public Overloads Overridable Function GetData(ByVal USERID As Integer) As MyDataset.TBMYHOTKEYSDataTable - Me.Adapter.SelectCommand = Me.CommandCollection(0) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(USERID,Integer) - Dim dataTable As MyDataset.TBMYHOTKEYSDataTable = New MyDataset.TBMYHOTKEYSDataTable() - Me.Adapter.Fill(dataTable) - Return dataTable - End Function - End Class - - ''' - '''Represents the connection and commands used to retrieve and save data. - ''' - _ - Partial Public Class TBHOTKEY_USER_PROFILETableAdapter - Inherits Global.System.ComponentModel.Component - - Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter - - Private _connection As Global.System.Data.SqlClient.SqlConnection - - Private _transaction As Global.System.Data.SqlClient.SqlTransaction - - Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand - - Private _clearBeforeFill As Boolean - - _ - Public Sub New() - MyBase.New - Me.ClearBeforeFill = true - End Sub - - _ - Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter - Get - If (Me._adapter Is Nothing) Then - Me.InitAdapter - End If - Return Me._adapter - End Get - End Property - - _ - Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection - Get - If (Me._connection Is Nothing) Then - Me.InitConnection - End If - Return Me._connection - End Get - Set - Me._connection = value - If (Not (Me.Adapter.InsertCommand) Is Nothing) Then - Me.Adapter.InsertCommand.Connection = value - End If - If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then - Me.Adapter.DeleteCommand.Connection = value - End If - If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then - Me.Adapter.UpdateCommand.Connection = value - End If - Dim i As Integer = 0 - Do While (i < Me.CommandCollection.Length) - If (Not (Me.CommandCollection(i)) Is Nothing) Then - CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value - End If - i = (i + 1) - Loop - End Set - End Property - - _ - Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction - Get - Return Me._transaction - End Get - Set - Me._transaction = value - Dim i As Integer = 0 - Do While (i < Me.CommandCollection.Length) - Me.CommandCollection(i).Transaction = Me._transaction - i = (i + 1) - Loop - If ((Not (Me.Adapter) Is Nothing) _ - AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then - Me.Adapter.DeleteCommand.Transaction = Me._transaction - End If - If ((Not (Me.Adapter) Is Nothing) _ - AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then - Me.Adapter.InsertCommand.Transaction = Me._transaction - End If - If ((Not (Me.Adapter) Is Nothing) _ - AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then - Me.Adapter.UpdateCommand.Transaction = Me._transaction - End If - End Set - End Property - - _ - Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() - Get - If (Me._commandCollection Is Nothing) Then - Me.InitCommandCollection - End If - Return Me._commandCollection - End Get - End Property - - _ - Public Property ClearBeforeFill() As Boolean - Get - Return Me._clearBeforeFill - End Get - Set - Me._clearBeforeFill = value - End Set - End Property - - _ - Private Sub InitAdapter() - Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() - Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() - tableMapping.SourceTable = "Table" - tableMapping.DataSetTable = "TBHOTKEY_USER_PROFILE" - tableMapping.ColumnMappings.Add("GUID", "GUID") - tableMapping.ColumnMappings.Add("HKPROFILE_ID", "HKPROFILE_ID") - tableMapping.ColumnMappings.Add("USER_ID", "USER_ID") - tableMapping.ColumnMappings.Add("WD_SEARCH", "WD_SEARCH") - tableMapping.ColumnMappings.Add("HOTKEY1", "HOTKEY1") - tableMapping.ColumnMappings.Add("HOTKEY2", "HOTKEY2") - tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") - tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") - tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") - tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") - 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 TBHOTKEY_USER_PROFILE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" - 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.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() - Me._adapter.InsertCommand.Connection = Me.Connection - Me._adapter.InsertCommand.CommandText = "INSERT INTO [TBHOTKEY_USER_PROFILE] ([HKPROFILE_ID], [USER_ID], [WD_SEARCH], [HOT"& _ - "KEY1], [HOTKEY2], [ADDED_WHO], [ADDED_WHEN], [CHANGED_WHO], [CHANGED_WHEN]) VALU"& _ - "ES (@HKPROFILE_ID, @USER_ID, @WD_SEARCH, @HOTKEY1, @HOTKEY2, @ADDED_WHO, @ADDED_"& _ - "WHEN, @CHANGED_WHO, @CHANGED_WHEN);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, HKPROFILE_ID, USER_ID, WD_SEAR"& _ - "CH, HOTKEY1, HOTKEY2, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBHO"& _ - "TKEY_USER_PROFILE WHERE (GUID = SCOPE_IDENTITY())" - Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@HKPROFILE_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "HKPROFILE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USER_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "USER_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WD_SEARCH", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WD_SEARCH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@HOTKEY1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "HOTKEY1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@HOTKEY2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "HOTKEY2", 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.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() - Me._adapter.UpdateCommand.Connection = Me.Connection - Me._adapter.UpdateCommand.CommandText = "UPDATE [TBHOTKEY_USER_PROFILE] SET [HKPROFILE_ID] = @HKPROFILE_ID, [USER_ID] = @U"& _ - "SER_ID, [WD_SEARCH] = @WD_SEARCH, [HOTKEY1] = @HOTKEY1, [HOTKEY2] = @HOTKEY2, [A"& _ - "DDED_WHO] = @ADDED_WHO, [ADDED_WHEN] = @ADDED_WHEN, [CHANGED_WHO] = @CHANGED_WHO"& _ - ", [CHANGED_WHEN] = @CHANGED_WHEN WHERE (([GUID] = @Original_GUID) AND ([HKPROFIL"& _ - "E_ID] = @Original_HKPROFILE_ID) AND ([USER_ID] = @Original_USER_ID) AND ([WD_SEA"& _ - "RCH] = @Original_WD_SEARCH) AND ([HOTKEY1] = @Original_HOTKEY1) AND ([HOTKEY2] ="& _ - " @Original_HOTKEY2) 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] = @Origi"& _ - "nal_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR "& _ - "([CHANGED_WHEN] = @Original_CHANGED_WHEN)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, HKPROFILE_ID, USER_ID"& _ - ", WD_SEARCH, HOTKEY1, HOTKEY2, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN "& _ - "FROM TBHOTKEY_USER_PROFILE WHERE (GUID = @GUID)" - Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@HKPROFILE_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "HKPROFILE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USER_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "USER_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WD_SEARCH", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WD_SEARCH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@HOTKEY1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "HOTKEY1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@HOTKEY2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "HOTKEY2", 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("@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_HKPROFILE_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "HKPROFILE_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_USER_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "USER_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_WD_SEARCH", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WD_SEARCH", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_HOTKEY1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "HOTKEY1", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_HOTKEY2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "HOTKEY2", 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("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - End Sub - - _ - Private Sub InitConnection() - Me._connection = New Global.System.Data.SqlClient.SqlConnection() - Me._connection.ConnectionString = Global.Global_Indexer.My.MySettings.Default.DD_ECMConnectionString - End Sub - - _ - Private Sub InitCommandCollection() - Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(2) {} - Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(0).Connection = Me.Connection - Me._commandCollection(0).CommandText = "SELECT GUID, HKPROFILE_ID, USER_ID, WD_SEARCH, HOTKEY1, HOTKEY2, ADDED_WHO"& _ - ", ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBHOTKEY_USER_PROFILE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)& _ - "WHERE (GUID = @TBHOTKEY_USER_PROFILE_GUID)" - Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TBHOTKEY_USER_PROFILE_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(1) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(1).Connection = Me.Connection - Me._commandCollection(1).CommandText = "INSERT INTO TBHOTKEY_USER_PROFILE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (HKPROFILE_ID, USER_I"& _ - "D, WD_SEARCH, HOTKEY1, HOTKEY2, ADDED_WHO)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, @USER_ID AS Expr"& _ - "1, WD_SEARCH, HOTKEY1, HOTKEY2, 'INSERT_FRONTEND' AS Expr2"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBHO"& _ - "TKEY_PROFILE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @PROFILE_ID)" - Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USER_ID", Global.System.Data.SqlDbType.VarChar, 1024, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROFILE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(2) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(2).Connection = Me.Connection - Me._commandCollection(2).CommandText = "SELECT ADDED_WHEN, ADDED_WHO, CHANGED_WHEN, CHANGED_WHO, GUID, HKPROFILE_ID, HOTK"& _ - "EY1, HOTKEY2, USER_ID, WD_SEARCH FROM TBHOTKEY_USER_PROFILE WHERE (USER_ID = @US"& _ - "ER_ID)" - Me._commandCollection(2).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(2).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USER_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "USER_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - End Sub - - _ - Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBHOTKEY_USER_PROFILEDataTable, ByVal TBHOTKEY_USER_PROFILE_GUID As Integer) As Integer - Me.Adapter.SelectCommand = Me.CommandCollection(0) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(TBHOTKEY_USER_PROFILE_GUID,Integer) - If (Me.ClearBeforeFill = true) Then - dataTable.Clear - End If - Dim returnValue As Integer = Me.Adapter.Fill(dataTable) - Return returnValue - End Function - - _ - Public Overloads Overridable Function GetData(ByVal TBHOTKEY_USER_PROFILE_GUID As Integer) As MyDataset.TBHOTKEY_USER_PROFILEDataTable - Me.Adapter.SelectCommand = Me.CommandCollection(0) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(TBHOTKEY_USER_PROFILE_GUID,Integer) - Dim dataTable As MyDataset.TBHOTKEY_USER_PROFILEDataTable = New MyDataset.TBHOTKEY_USER_PROFILEDataTable() - Me.Adapter.Fill(dataTable) - Return dataTable - End Function - - _ - Public Overloads Overridable Function FillByUser(ByVal dataTable As MyDataset.TBHOTKEY_USER_PROFILEDataTable, ByVal USER_ID As Integer) As Integer - Me.Adapter.SelectCommand = Me.CommandCollection(2) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(USER_ID,Integer) - If (Me.ClearBeforeFill = true) Then - dataTable.Clear - End If - Dim returnValue As Integer = Me.Adapter.Fill(dataTable) - Return returnValue - End Function - - _ - Public Overloads Overridable Function GetDataByUser(ByVal USER_ID As Integer) As MyDataset.TBHOTKEY_USER_PROFILEDataTable - Me.Adapter.SelectCommand = Me.CommandCollection(2) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(USER_ID,Integer) - Dim dataTable As MyDataset.TBHOTKEY_USER_PROFILEDataTable = New MyDataset.TBHOTKEY_USER_PROFILEDataTable() - Me.Adapter.Fill(dataTable) - Return dataTable - End Function - - _ - Public Overloads Overridable Function Update(ByVal dataTable As MyDataset.TBHOTKEY_USER_PROFILEDataTable) As Integer - Return Me.Adapter.Update(dataTable) - End Function - - _ - Public Overloads Overridable Function Update(ByVal dataSet As MyDataset) As Integer - Return Me.Adapter.Update(dataSet, "TBHOTKEY_USER_PROFILE") - End Function - - _ - Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer - Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) - End Function - - _ - Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer - Return Me.Adapter.Update(dataRows) - End Function - - _ - Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer) As Integer - Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,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 - Me.Adapter.DeleteCommand.Connection.Open - End If - Try - Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery - Return returnValue - Finally - If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - Me.Adapter.DeleteCommand.Connection.Close - End If - End Try - End Function - - _ - Public Overloads Overridable Function Insert(ByVal HKPROFILE_ID As Integer, ByVal USER_ID As Integer, ByVal WD_SEARCH As String, ByVal HOTKEY1 As String, ByVal HOTKEY2 As String, 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)) As Integer - Me.Adapter.InsertCommand.Parameters(0).Value = CType(HKPROFILE_ID,Integer) - Me.Adapter.InsertCommand.Parameters(1).Value = CType(USER_ID,Integer) - If (WD_SEARCH Is Nothing) Then - Throw New Global.System.ArgumentNullException("WD_SEARCH") - Else - Me.Adapter.InsertCommand.Parameters(2).Value = CType(WD_SEARCH,String) - End If - If (HOTKEY1 Is Nothing) Then - Throw New Global.System.ArgumentNullException("HOTKEY1") - Else - Me.Adapter.InsertCommand.Parameters(3).Value = CType(HOTKEY1,String) - End If - If (HOTKEY2 Is Nothing) Then - Throw New Global.System.ArgumentNullException("HOTKEY2") - Else - Me.Adapter.InsertCommand.Parameters(4).Value = CType(HOTKEY2,String) - End If - If (ADDED_WHO Is Nothing) Then - Throw New Global.System.ArgumentNullException("ADDED_WHO") - Else - Me.Adapter.InsertCommand.Parameters(5).Value = CType(ADDED_WHO,String) - End If - If (ADDED_WHEN.HasValue = true) Then - Me.Adapter.InsertCommand.Parameters(6).Value = CType(ADDED_WHEN.Value,Date) - Else - Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value - End If - If (CHANGED_WHO Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value - Else - Me.Adapter.InsertCommand.Parameters(7).Value = CType(CHANGED_WHO,String) - End If - If (CHANGED_WHEN.HasValue = true) Then - Me.Adapter.InsertCommand.Parameters(8).Value = CType(CHANGED_WHEN.Value,Date) - Else - Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value - End If - 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 - Me.Adapter.InsertCommand.Connection.Open - End If - Try - Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery - Return returnValue - Finally - If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - Me.Adapter.InsertCommand.Connection.Close - End If - End Try - End Function - - _ - Public Overloads Overridable Function Update( _ - ByVal HKPROFILE_ID As Integer, _ - ByVal USER_ID As Integer, _ - ByVal WD_SEARCH As String, _ - ByVal HOTKEY1 As String, _ - ByVal HOTKEY2 As String, _ - 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 Original_GUID As Integer, _ - ByVal Original_HKPROFILE_ID As Integer, _ - ByVal Original_USER_ID As Integer, _ - ByVal Original_WD_SEARCH As String, _ - ByVal Original_HOTKEY1 As String, _ - ByVal Original_HOTKEY2 As String, _ - 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 GUID As Integer) As Integer - Me.Adapter.UpdateCommand.Parameters(0).Value = CType(HKPROFILE_ID,Integer) - Me.Adapter.UpdateCommand.Parameters(1).Value = CType(USER_ID,Integer) - If (WD_SEARCH Is Nothing) Then - Throw New Global.System.ArgumentNullException("WD_SEARCH") - Else - Me.Adapter.UpdateCommand.Parameters(2).Value = CType(WD_SEARCH,String) - End If - If (HOTKEY1 Is Nothing) Then - Throw New Global.System.ArgumentNullException("HOTKEY1") - Else - Me.Adapter.UpdateCommand.Parameters(3).Value = CType(HOTKEY1,String) - End If - If (HOTKEY2 Is Nothing) Then - Throw New Global.System.ArgumentNullException("HOTKEY2") - Else - Me.Adapter.UpdateCommand.Parameters(4).Value = CType(HOTKEY2,String) - End If - If (ADDED_WHO Is Nothing) Then - Throw New Global.System.ArgumentNullException("ADDED_WHO") - Else - Me.Adapter.UpdateCommand.Parameters(5).Value = CType(ADDED_WHO,String) - End If - If (ADDED_WHEN.HasValue = true) Then - Me.Adapter.UpdateCommand.Parameters(6).Value = CType(ADDED_WHEN.Value,Date) - Else - Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value - End If - If (CHANGED_WHO Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(7).Value = CType(CHANGED_WHO,String) - End If - If (CHANGED_WHEN.HasValue = true) Then - Me.Adapter.UpdateCommand.Parameters(8).Value = CType(CHANGED_WHEN.Value,Date) - Else - Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value - End If - Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_GUID,Integer) - Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Original_HKPROFILE_ID,Integer) - Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Original_USER_ID,Integer) - If (Original_WD_SEARCH Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_WD_SEARCH") - Else - Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Original_WD_SEARCH,String) - End If - If (Original_HOTKEY1 Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_HOTKEY1") - Else - Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Original_HOTKEY1,String) - End If - If (Original_HOTKEY2 Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_HOTKEY2") - Else - Me.Adapter.UpdateCommand.Parameters(14).Value = CType(Original_HOTKEY2,String) - End If - If (Original_ADDED_WHO Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_ADDED_WHO") - Else - Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Original_ADDED_WHO,String) - End If - If (Original_ADDED_WHEN.HasValue = true) Then - Me.Adapter.UpdateCommand.Parameters(16).Value = CType(0,Object) - Me.Adapter.UpdateCommand.Parameters(17).Value = CType(Original_ADDED_WHEN.Value,Date) - Else - Me.Adapter.UpdateCommand.Parameters(16).Value = CType(1,Object) - Me.Adapter.UpdateCommand.Parameters(17).Value = Global.System.DBNull.Value - End If - If (Original_CHANGED_WHO Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(18).Value = CType(1,Object) - Me.Adapter.UpdateCommand.Parameters(19).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(18).Value = CType(0,Object) - Me.Adapter.UpdateCommand.Parameters(19).Value = CType(Original_CHANGED_WHO,String) - End If - If (Original_CHANGED_WHEN.HasValue = true) Then - Me.Adapter.UpdateCommand.Parameters(20).Value = CType(0,Object) - Me.Adapter.UpdateCommand.Parameters(21).Value = CType(Original_CHANGED_WHEN.Value,Date) - Else - Me.Adapter.UpdateCommand.Parameters(20).Value = CType(1,Object) - Me.Adapter.UpdateCommand.Parameters(21).Value = Global.System.DBNull.Value - End If - Me.Adapter.UpdateCommand.Parameters(22).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 - Me.Adapter.UpdateCommand.Connection.Open - End If - Try - Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery - Return returnValue - Finally - If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - Me.Adapter.UpdateCommand.Connection.Close - End If - End Try - End Function - - _ - Public Overloads Overridable Function Update( _ - ByVal HKPROFILE_ID As Integer, _ - ByVal USER_ID As Integer, _ - ByVal WD_SEARCH As String, _ - ByVal HOTKEY1 As String, _ - ByVal HOTKEY2 As String, _ - 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 Original_GUID As Integer, _ - ByVal Original_HKPROFILE_ID As Integer, _ - ByVal Original_USER_ID As Integer, _ - ByVal Original_WD_SEARCH As String, _ - ByVal Original_HOTKEY1 As String, _ - ByVal Original_HOTKEY2 As String, _ - 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)) As Integer - Return Me.Update(HKPROFILE_ID, USER_ID, WD_SEARCH, HOTKEY1, HOTKEY2, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, Original_GUID, Original_HKPROFILE_ID, Original_USER_ID, Original_WD_SEARCH, Original_HOTKEY1, Original_HOTKEY2, Original_ADDED_WHO, Original_ADDED_WHEN, Original_CHANGED_WHO, Original_CHANGED_WHEN, Original_GUID) - End Function - - _ - Public Overloads Overridable Function cmdInsert(ByVal USER_ID As String, ByVal PROFILE_ID As Integer) As Integer - Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(1) - If (USER_ID Is Nothing) Then - Throw New Global.System.ArgumentNullException("USER_ID") - Else - command.Parameters(0).Value = CType(USER_ID,String) - End If - command.Parameters(1).Value = CType(PROFILE_ID,Integer) - Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State - If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ - <> Global.System.Data.ConnectionState.Open) Then - command.Connection.Open - End If - Dim returnValue As Integer - Try - returnValue = command.ExecuteNonQuery - Finally - If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - command.Connection.Close - End If - End Try - Return returnValue - End Function - End Class - - ''' - '''Represents the connection and commands used to retrieve and save data. - ''' - _ - Partial Public Class TBHOTKEY_PATTERNS_REWORKTableAdapter - Inherits Global.System.ComponentModel.Component - - Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter - - Private _connection As Global.System.Data.SqlClient.SqlConnection - - Private _transaction As Global.System.Data.SqlClient.SqlTransaction - - Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand - - Private _clearBeforeFill As Boolean - - _ - Public Sub New() - MyBase.New - Me.ClearBeforeFill = true - End Sub - - _ - Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter - Get - If (Me._adapter Is Nothing) Then - Me.InitAdapter - End If - Return Me._adapter - End Get - End Property - - _ - Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection - Get - If (Me._connection Is Nothing) Then - Me.InitConnection - End If - Return Me._connection - End Get - Set - Me._connection = value - If (Not (Me.Adapter.InsertCommand) Is Nothing) Then - Me.Adapter.InsertCommand.Connection = value - End If - If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then - Me.Adapter.DeleteCommand.Connection = value - End If - If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then - Me.Adapter.UpdateCommand.Connection = value - End If - Dim i As Integer = 0 - Do While (i < Me.CommandCollection.Length) - If (Not (Me.CommandCollection(i)) Is Nothing) Then - CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value - End If - i = (i + 1) - Loop - End Set - End Property - - _ - Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction - Get - Return Me._transaction - End Get - Set - Me._transaction = value - Dim i As Integer = 0 - Do While (i < Me.CommandCollection.Length) - Me.CommandCollection(i).Transaction = Me._transaction - i = (i + 1) - Loop - If ((Not (Me.Adapter) Is Nothing) _ - AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then - Me.Adapter.DeleteCommand.Transaction = Me._transaction - End If - If ((Not (Me.Adapter) Is Nothing) _ - AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then - Me.Adapter.InsertCommand.Transaction = Me._transaction - End If - If ((Not (Me.Adapter) Is Nothing) _ - AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then - Me.Adapter.UpdateCommand.Transaction = Me._transaction - End If - End Set - End Property - - _ - Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() - Get - If (Me._commandCollection Is Nothing) Then - Me.InitCommandCollection - End If - Return Me._commandCollection - End Get - End Property - - _ - Public Property ClearBeforeFill() As Boolean - Get - Return Me._clearBeforeFill - End Get - Set - Me._clearBeforeFill = value - End Set - End Property - - _ - Private Sub InitAdapter() - Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() - Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() - tableMapping.SourceTable = "Table" - tableMapping.DataSetTable = "TBHOTKEY_PATTERNS_REWORK" - tableMapping.ColumnMappings.Add("GUID", "GUID") - tableMapping.ColumnMappings.Add("HKPATTERN_ID", "HKPATTERN_ID") - tableMapping.ColumnMappings.Add("TYPE", "TYPE") - tableMapping.ColumnMappings.Add("FUNCTION1", "FUNCTION1") - tableMapping.ColumnMappings.Add("FUNCTION2", "FUNCTION2") - tableMapping.ColumnMappings.Add("TEXT1", "TEXT1") - tableMapping.ColumnMappings.Add("TEXT2", "TEXT2") - tableMapping.ColumnMappings.Add("SEQUENCE", "SEQUENCE") - tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") - tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") - tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") - tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") - 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 [TBHOTKEY_PATTERNS_REWORK] WHERE (([GUID] = @Original_GUID) AND ([HKP"& _ - "ATTERN_ID] = @Original_HKPATTERN_ID) AND ([TYPE] = @Original_TYPE) AND ((@IsNull"& _ - "_FUNCTION1 = 1 AND [FUNCTION1] IS NULL) OR ([FUNCTION1] = @Original_FUNCTION1)) "& _ - "AND ((@IsNull_FUNCTION2 = 1 AND [FUNCTION2] IS NULL) OR ([FUNCTION2] = @Original"& _ - "_FUNCTION2)) AND ((@IsNull_TEXT1 = 1 AND [TEXT1] IS NULL) OR ([TEXT1] = @Origina"& _ - "l_TEXT1)) AND ((@IsNull_TEXT2 = 1 AND [TEXT2] IS NULL) OR ([TEXT2] = @Original_T"& _ - "EXT2)) 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) O"& _ - "R ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [C"& _ - "HANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)))" - 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, 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_HKPATTERN_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "HKPATTERN_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TYPE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TYPE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_FUNCTION1", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FUNCTION1", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_FUNCTION1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FUNCTION1", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_FUNCTION2", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FUNCTION2", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_FUNCTION2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FUNCTION2", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_TEXT1", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TEXT1", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TEXT1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TEXT1", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_TEXT2", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TEXT2", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TEXT2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TEXT2", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SEQUENCE", Global.System.Data.SqlDbType.Int, 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.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() - Me._adapter.InsertCommand.Connection = Me.Connection - Me._adapter.InsertCommand.CommandText = "INSERT INTO TBHOTKEY_PATTERNS_REWORK"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (HKPATTERN_ID, TYP"& _ - "E, FUNCTION1, FUNCTION2, TEXT1, TEXT2, SEQUENCE, ADDED_WHO)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@HKP"& _ - "ATTERN_ID,@TYPE,@FUNCTION1,@FUNCTION2,@TEXT1,@TEXT2,@SEQUENCE,@ADDED_WHO); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SEL"& _ - "ECT GUID, HKPATTERN_ID, TYPE, FUNCTION1, FUNCTION2, TEXT1, TEXT2, SEQUENCE, ADDE"& _ - "D_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBHOTKEY_PATTERNS_REWORK WHERE"& _ - " (GUID = SCOPE_IDENTITY())" - Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@HKPATTERN_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "HKPATTERN_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TYPE", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "TYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FUNCTION1", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "FUNCTION1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FUNCTION2", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "FUNCTION2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TEXT1", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "TEXT1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TEXT2", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "TEXT2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE", Global.System.Data.SqlDbType.Int, 4, 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.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() - Me._adapter.UpdateCommand.Connection = Me.Connection - Me._adapter.UpdateCommand.CommandText = "UPDATE TBHOTKEY_PATTERNS_REWORK"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET HKPATTERN_ID = @HKPATTE"& _ - "RN_ID, TYPE = @TYPE, FUNCTION1 = @FUNCTION1, FUNCTION2 = @FUNCTION2, TEXT1 = @TE"& _ - "XT1, TEXT2 = @TEXT2, SEQUENCE = @SEQUENCE, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" CHANGED_WH"& _ - "O = @CHANGED_WHO"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, HKPATTERN"& _ - "_ID, TYPE, FUNCTION1, FUNCTION2, TEXT1, TEXT2, SEQUENCE, ADDED_WHO, ADDED_WHEN, "& _ - "CHANGED_WHO, CHANGED_WHEN FROM TBHOTKEY_PATTERNS_REWORK WHERE (GUID = @GUID)" - Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@HKPATTERN_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "HKPATTERN_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TYPE", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "TYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FUNCTION1", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "FUNCTION1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FUNCTION2", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "FUNCTION2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TEXT1", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "TEXT1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TEXT2", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "TEXT2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE", Global.System.Data.SqlDbType.Int, 4, 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("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 50, 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("@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, "", "", "")) - End Sub - - _ - Private Sub InitConnection() - Me._connection = New Global.System.Data.SqlClient.SqlConnection() - Me._connection.ConnectionString = Global.Global_Indexer.My.MySettings.Default.DD_ECMConnectionString - End Sub - - _ - Private Sub InitCommandCollection() - Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} - Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(0).Connection = Me.Connection - Me._commandCollection(0).CommandText = "SELECT GUID, HKPATTERN_ID, TYPE, FUNCTION1, FUNCTION2, TEXT1, TEXT2, SEQUE"& _ - "NCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBHOTKEY_"& _ - "PATTERNS_REWORK"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (HKPATTERN_ID = @HKPATTERN_ID)" - Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@HKPATTERN_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "HKPATTERN_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - End Sub - - _ - Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBHOTKEY_PATTERNS_REWORKDataTable, ByVal HKPATTERN_ID As Integer) As Integer - Me.Adapter.SelectCommand = Me.CommandCollection(0) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(HKPATTERN_ID,Integer) - If (Me.ClearBeforeFill = true) Then - dataTable.Clear - End If - Dim returnValue As Integer = Me.Adapter.Fill(dataTable) - Return returnValue - End Function - - _ - Public Overloads Overridable Function GetData(ByVal HKPATTERN_ID As Integer) As MyDataset.TBHOTKEY_PATTERNS_REWORKDataTable - Me.Adapter.SelectCommand = Me.CommandCollection(0) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(HKPATTERN_ID,Integer) - Dim dataTable As MyDataset.TBHOTKEY_PATTERNS_REWORKDataTable = New MyDataset.TBHOTKEY_PATTERNS_REWORKDataTable() - Me.Adapter.Fill(dataTable) - Return dataTable - End Function - - _ - Public Overloads Overridable Function Update(ByVal dataTable As MyDataset.TBHOTKEY_PATTERNS_REWORKDataTable) As Integer - Return Me.Adapter.Update(dataTable) - End Function - - _ - Public Overloads Overridable Function Update(ByVal dataSet As MyDataset) As Integer - Return Me.Adapter.Update(dataSet, "TBHOTKEY_PATTERNS_REWORK") - End Function - - _ - Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer - Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) - End Function - - _ - Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer - Return Me.Adapter.Update(dataRows) - End Function - - _ - Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer, ByVal Original_HKPATTERN_ID As Integer, ByVal Original_TYPE As String, ByVal Original_FUNCTION1 As String, ByVal Original_FUNCTION2 As String, ByVal Original_TEXT1 As String, ByVal Original_TEXT2 As String, ByVal Original_SEQUENCE As Integer, 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)) As Integer - Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) - Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_HKPATTERN_ID,Integer) - If (Original_TYPE Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_TYPE") - Else - Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_TYPE,String) - End If - If (Original_FUNCTION1 Is Nothing) Then - Me.Adapter.DeleteCommand.Parameters(3).Value = CType(1,Object) - Me.Adapter.DeleteCommand.Parameters(4).Value = Global.System.DBNull.Value - Else - Me.Adapter.DeleteCommand.Parameters(3).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_FUNCTION1,String) - End If - If (Original_FUNCTION2 Is Nothing) Then - Me.Adapter.DeleteCommand.Parameters(5).Value = CType(1,Object) - Me.Adapter.DeleteCommand.Parameters(6).Value = Global.System.DBNull.Value - Else - Me.Adapter.DeleteCommand.Parameters(5).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_FUNCTION2,String) - End If - If (Original_TEXT1 Is Nothing) Then - Me.Adapter.DeleteCommand.Parameters(7).Value = CType(1,Object) - Me.Adapter.DeleteCommand.Parameters(8).Value = Global.System.DBNull.Value - Else - Me.Adapter.DeleteCommand.Parameters(7).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_TEXT1,String) - End If - If (Original_TEXT2 Is Nothing) Then - Me.Adapter.DeleteCommand.Parameters(9).Value = CType(1,Object) - Me.Adapter.DeleteCommand.Parameters(10).Value = Global.System.DBNull.Value - Else - Me.Adapter.DeleteCommand.Parameters(9).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(10).Value = CType(Original_TEXT2,String) - End If - Me.Adapter.DeleteCommand.Parameters(11).Value = CType(Original_SEQUENCE,Integer) - If (Original_ADDED_WHO Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_ADDED_WHO") - Else - Me.Adapter.DeleteCommand.Parameters(12).Value = CType(Original_ADDED_WHO,String) - End If - If (Original_ADDED_WHEN.HasValue = true) Then - Me.Adapter.DeleteCommand.Parameters(13).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(14).Value = CType(Original_ADDED_WHEN.Value,Date) - Else - Me.Adapter.DeleteCommand.Parameters(13).Value = CType(1,Object) - Me.Adapter.DeleteCommand.Parameters(14).Value = Global.System.DBNull.Value - End If - If (Original_CHANGED_WHO Is Nothing) Then - Me.Adapter.DeleteCommand.Parameters(15).Value = CType(1,Object) - Me.Adapter.DeleteCommand.Parameters(16).Value = Global.System.DBNull.Value - Else - Me.Adapter.DeleteCommand.Parameters(15).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(16).Value = CType(Original_CHANGED_WHO,String) - End If - If (Original_CHANGED_WHEN.HasValue = true) Then - Me.Adapter.DeleteCommand.Parameters(17).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(18).Value = CType(Original_CHANGED_WHEN.Value,Date) - Else - Me.Adapter.DeleteCommand.Parameters(17).Value = CType(1,Object) - Me.Adapter.DeleteCommand.Parameters(18).Value = Global.System.DBNull.Value - End If - 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 - Me.Adapter.DeleteCommand.Connection.Open - End If - Try - Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery - Return returnValue - Finally - If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - Me.Adapter.DeleteCommand.Connection.Close - End If - End Try - End Function - - _ - Public Overloads Overridable Function Insert(ByVal HKPATTERN_ID As Integer, ByVal TYPE As String, ByVal FUNCTION1 As String, ByVal FUNCTION2 As String, ByVal TEXT1 As String, ByVal TEXT2 As String, ByVal SEQUENCE As Integer, ByVal ADDED_WHO As String) As Integer - Me.Adapter.InsertCommand.Parameters(0).Value = CType(HKPATTERN_ID,Integer) - If (TYPE Is Nothing) Then - Throw New Global.System.ArgumentNullException("TYPE") - Else - Me.Adapter.InsertCommand.Parameters(1).Value = CType(TYPE,String) - End If - If (FUNCTION1 Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value - Else - Me.Adapter.InsertCommand.Parameters(2).Value = CType(FUNCTION1,String) - End If - If (FUNCTION2 Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value - Else - Me.Adapter.InsertCommand.Parameters(3).Value = CType(FUNCTION2,String) - End If - If (TEXT1 Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value - Else - Me.Adapter.InsertCommand.Parameters(4).Value = CType(TEXT1,String) - End If - If (TEXT2 Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value - Else - Me.Adapter.InsertCommand.Parameters(5).Value = CType(TEXT2,String) - End If - Me.Adapter.InsertCommand.Parameters(6).Value = CType(SEQUENCE,Integer) - If (ADDED_WHO Is Nothing) Then - Throw New Global.System.ArgumentNullException("ADDED_WHO") - Else - Me.Adapter.InsertCommand.Parameters(7).Value = CType(ADDED_WHO,String) - End If - 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 - Me.Adapter.InsertCommand.Connection.Open - End If - Try - Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery - Return returnValue - Finally - If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - Me.Adapter.InsertCommand.Connection.Close - End If - End Try - End Function - - _ - Public Overloads Overridable Function Update(ByVal HKPATTERN_ID As Integer, ByVal TYPE As String, ByVal FUNCTION1 As String, ByVal FUNCTION2 As String, ByVal TEXT1 As String, ByVal TEXT2 As String, ByVal SEQUENCE As Integer, ByVal CHANGED_WHO As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer - Me.Adapter.UpdateCommand.Parameters(0).Value = CType(HKPATTERN_ID,Integer) - If (TYPE Is Nothing) Then - Throw New Global.System.ArgumentNullException("TYPE") - Else - Me.Adapter.UpdateCommand.Parameters(1).Value = CType(TYPE,String) - End If - If (FUNCTION1 Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(2).Value = CType(FUNCTION1,String) - End If - If (FUNCTION2 Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(3).Value = CType(FUNCTION2,String) - End If - If (TEXT1 Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(4).Value = CType(TEXT1,String) - End If - If (TEXT2 Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(5).Value = CType(TEXT2,String) - End If - Me.Adapter.UpdateCommand.Parameters(6).Value = CType(SEQUENCE,Integer) - If (CHANGED_WHO Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(7).Value = CType(CHANGED_WHO,String) - End If - Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Original_GUID,Integer) - Me.Adapter.UpdateCommand.Parameters(9).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 - Me.Adapter.UpdateCommand.Connection.Open - End If - Try - Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery - Return returnValue - Finally - If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - Me.Adapter.UpdateCommand.Connection.Close - End If - End Try - End Function - End Class - - ''' - '''Represents the connection and commands used to retrieve and save data. - ''' - _ - Partial Public Class TBHOTKEY_WINDOW_HOOKTableAdapter - Inherits Global.System.ComponentModel.Component - - Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter - - Private _connection As Global.System.Data.SqlClient.SqlConnection - - Private _transaction As Global.System.Data.SqlClient.SqlTransaction - - Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand - - Private _clearBeforeFill As Boolean - - _ - Public Sub New() - MyBase.New - Me.ClearBeforeFill = true - End Sub - - _ - Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter - Get - If (Me._adapter Is Nothing) Then - Me.InitAdapter - End If - Return Me._adapter - End Get - End Property - - _ - Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection - Get - If (Me._connection Is Nothing) Then - Me.InitConnection - End If - Return Me._connection - End Get - Set - Me._connection = value - If (Not (Me.Adapter.InsertCommand) Is Nothing) Then - Me.Adapter.InsertCommand.Connection = value - End If - If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then - Me.Adapter.DeleteCommand.Connection = value - End If - If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then - Me.Adapter.UpdateCommand.Connection = value - End If - Dim i As Integer = 0 - Do While (i < Me.CommandCollection.Length) - If (Not (Me.CommandCollection(i)) Is Nothing) Then - CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value - End If - i = (i + 1) - Loop - End Set - End Property - - _ - Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction - Get - Return Me._transaction - End Get - Set - Me._transaction = value - Dim i As Integer = 0 - Do While (i < Me.CommandCollection.Length) - Me.CommandCollection(i).Transaction = Me._transaction - i = (i + 1) - Loop - If ((Not (Me.Adapter) Is Nothing) _ - AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then - Me.Adapter.DeleteCommand.Transaction = Me._transaction - End If - If ((Not (Me.Adapter) Is Nothing) _ - AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then - Me.Adapter.InsertCommand.Transaction = Me._transaction - End If - If ((Not (Me.Adapter) Is Nothing) _ - AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then - Me.Adapter.UpdateCommand.Transaction = Me._transaction - End If - End Set - End Property - - _ - Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() - Get - If (Me._commandCollection Is Nothing) Then - Me.InitCommandCollection - End If - Return Me._commandCollection - End Get - End Property - - _ - Public Property ClearBeforeFill() As Boolean - Get - Return Me._clearBeforeFill - End Get - Set - Me._clearBeforeFill = value - End Set - End Property - - _ - Private Sub InitAdapter() - Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() - Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() - tableMapping.SourceTable = "Table" - tableMapping.DataSetTable = "TBHOTKEY_WINDOW_HOOK" - tableMapping.ColumnMappings.Add("GUID", "GUID") - tableMapping.ColumnMappings.Add("HKPROFILE_ID", "HKPROFILE_ID") - tableMapping.ColumnMappings.Add("SEQUENCE_NUMBER", "SEQUENCE_NUMBER") - tableMapping.ColumnMappings.Add("CONTROL_VALUE", "CONTROL_VALUE") - tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") - tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") - tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") - tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") - 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 TBHOTKEY_WINDOW_HOOK"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" - 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.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() - Me._adapter.InsertCommand.Connection = Me.Connection - Me._adapter.InsertCommand.CommandText = "INSERT INTO TBHOTKEY_WINDOW_HOOK"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (HKPROFILE_ID, SEQUENC"& _ - "E_NUMBER, CONTROL_VALUE, ADDED_WHO)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@HKPROFILE_ID,@SEQUENCE_NUMB"& _ - "ER,@CONTROL_VALUE,@ADDED_WHO); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, HKPROFILE_ID, SEQUENCE_NUMBER, CON"& _ - "TROL_VALUE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBHOTKEY_WINDO"& _ - "W_HOOK WHERE (GUID = SCOPE_IDENTITY())" - Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@HKPROFILE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "HKPROFILE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE_NUMBER", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE_NUMBER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONTROL_VALUE", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "CONTROL_VALUE", 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.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() - Me._adapter.UpdateCommand.Connection = Me.Connection - Me._adapter.UpdateCommand.CommandText = "UPDATE TBHOTKEY_WINDOW_HOOK"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET HKPROFILE_ID = @HKPROFILE_I"& _ - "D, SEQUENCE_NUMBER = @SEQUENCE_NUMBER, CONTROL_VALUE = @CONTROL_VALUE, CHANGED_W"& _ - "HO = @CHANGED_WHO"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, HKPROFIL"& _ - "E_ID, SEQUENCE_NUMBER, CONTROL_VALUE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGE"& _ - "D_WHEN FROM TBHOTKEY_WINDOW_HOOK WHERE (GUID = @GUID)" - Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@HKPROFILE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "HKPROFILE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE_NUMBER", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE_NUMBER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONTROL_VALUE", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "CONTROL_VALUE", 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, 50, 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("@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, "", "", "")) - End Sub - - _ - Private Sub InitConnection() - Me._connection = New Global.System.Data.SqlClient.SqlConnection() - Me._connection.ConnectionString = Global.Global_Indexer.My.MySettings.Default.DD_ECMConnectionString - End Sub - - _ - Private Sub InitCommandCollection() - Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} - Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(0).Connection = Me.Connection - Me._commandCollection(0).CommandText = "SELECT GUID, HKPROFILE_ID, SEQUENCE_NUMBER, CONTROL_VALUE, ADDED_WHO, ADDE"& _ - "D_WHEN, CHANGED_WHO, CHANGED_WHEN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBHOTKEY_WINDOW_HOOK"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE "& _ - " (HKPROFILE_ID = @ID)" - Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "HKPROFILE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - End Sub - - _ - Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBHOTKEY_WINDOW_HOOKDataTable, ByVal ID As Integer) As Integer - Me.Adapter.SelectCommand = Me.CommandCollection(0) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(ID,Integer) - If (Me.ClearBeforeFill = true) Then - dataTable.Clear - End If - Dim returnValue As Integer = Me.Adapter.Fill(dataTable) - Return returnValue - End Function - - _ - Public Overloads Overridable Function GetData(ByVal ID As Integer) As MyDataset.TBHOTKEY_WINDOW_HOOKDataTable - Me.Adapter.SelectCommand = Me.CommandCollection(0) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(ID,Integer) - Dim dataTable As MyDataset.TBHOTKEY_WINDOW_HOOKDataTable = New MyDataset.TBHOTKEY_WINDOW_HOOKDataTable() - Me.Adapter.Fill(dataTable) - Return dataTable - End Function - - _ - Public Overloads Overridable Function Update(ByVal dataTable As MyDataset.TBHOTKEY_WINDOW_HOOKDataTable) As Integer - Return Me.Adapter.Update(dataTable) - End Function - - _ - Public Overloads Overridable Function Update(ByVal dataSet As MyDataset) As Integer - Return Me.Adapter.Update(dataSet, "TBHOTKEY_WINDOW_HOOK") - End Function - - _ - Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer - Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) - End Function - - _ - Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer - Return Me.Adapter.Update(dataRows) - End Function - - _ - Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer) As Integer - Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,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 - Me.Adapter.DeleteCommand.Connection.Open - End If - Try - Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery - Return returnValue - Finally - If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - Me.Adapter.DeleteCommand.Connection.Close - End If - End Try - End Function - - _ - Public Overloads Overridable Function Insert(ByVal HKPROFILE_ID As Integer, ByVal SEQUENCE_NUMBER As Integer, ByVal CONTROL_VALUE As String, ByVal ADDED_WHO As String) As Integer - Me.Adapter.InsertCommand.Parameters(0).Value = CType(HKPROFILE_ID,Integer) - Me.Adapter.InsertCommand.Parameters(1).Value = CType(SEQUENCE_NUMBER,Integer) - If (CONTROL_VALUE Is Nothing) Then - Throw New Global.System.ArgumentNullException("CONTROL_VALUE") - Else - Me.Adapter.InsertCommand.Parameters(2).Value = CType(CONTROL_VALUE,String) - End If - If (ADDED_WHO Is Nothing) Then - Throw New Global.System.ArgumentNullException("ADDED_WHO") - Else - Me.Adapter.InsertCommand.Parameters(3).Value = CType(ADDED_WHO,String) - End If - 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 - Me.Adapter.InsertCommand.Connection.Open - End If - Try - Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery - Return returnValue - Finally - If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - Me.Adapter.InsertCommand.Connection.Close - End If - End Try - End Function - - _ - Public Overloads Overridable Function Update(ByVal HKPROFILE_ID As Integer, ByVal SEQUENCE_NUMBER As Integer, ByVal CONTROL_VALUE As String, ByVal CHANGED_WHO As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer - Me.Adapter.UpdateCommand.Parameters(0).Value = CType(HKPROFILE_ID,Integer) - Me.Adapter.UpdateCommand.Parameters(1).Value = CType(SEQUENCE_NUMBER,Integer) - If (CONTROL_VALUE Is Nothing) Then - Throw New Global.System.ArgumentNullException("CONTROL_VALUE") - Else - Me.Adapter.UpdateCommand.Parameters(2).Value = CType(CONTROL_VALUE,String) - End If - If (CHANGED_WHO Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(3).Value = CType(CHANGED_WHO,String) - End If - Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Original_GUID,Integer) - Me.Adapter.UpdateCommand.Parameters(5).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 - Me.Adapter.UpdateCommand.Connection.Open - End If - Try - Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery - Return returnValue - Finally - If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - Me.Adapter.UpdateCommand.Connection.Close - End If - End Try - End Function - End Class - ''' '''Represents the connection and commands used to retrieve and save data. ''' @@ -27657,16 +21118,6 @@ Namespace MyDatasetTableAdapters Private _tBDD_GROUPS_USERTableAdapter As TBDD_GROUPS_USERTableAdapter - Private _tBHOTKEY_PROFILETableAdapter As TBHOTKEY_PROFILETableAdapter - - Private _tBHOTKEY_PATTERNSTableAdapter As TBHOTKEY_PATTERNSTableAdapter - - Private _tBHOTKEY_USER_PROFILETableAdapter As TBHOTKEY_USER_PROFILETableAdapter - - Private _tBHOTKEY_PATTERNS_REWORKTableAdapter As TBHOTKEY_PATTERNS_REWORKTableAdapter - - Private _tBHOTKEY_WINDOW_HOOKTableAdapter As TBHOTKEY_WINDOW_HOOKTableAdapter - Private _tBGI_REGEX_DOCTYPETableAdapter As TBGI_REGEX_DOCTYPETableAdapter Private _backupDataSetBeforeUpdate As Boolean @@ -27824,76 +21275,6 @@ Namespace MyDatasetTableAdapters End Set End Property - _ - Public Property TBHOTKEY_PROFILETableAdapter() As TBHOTKEY_PROFILETableAdapter - Get - Return Me._tBHOTKEY_PROFILETableAdapter - End Get - Set - Me._tBHOTKEY_PROFILETableAdapter = value - End Set - End Property - - _ - Public Property TBHOTKEY_PATTERNSTableAdapter() As TBHOTKEY_PATTERNSTableAdapter - Get - Return Me._tBHOTKEY_PATTERNSTableAdapter - End Get - Set - Me._tBHOTKEY_PATTERNSTableAdapter = value - End Set - End Property - - _ - Public Property TBHOTKEY_USER_PROFILETableAdapter() As TBHOTKEY_USER_PROFILETableAdapter - Get - Return Me._tBHOTKEY_USER_PROFILETableAdapter - End Get - Set - Me._tBHOTKEY_USER_PROFILETableAdapter = value - End Set - End Property - - _ - Public Property TBHOTKEY_PATTERNS_REWORKTableAdapter() As TBHOTKEY_PATTERNS_REWORKTableAdapter - Get - Return Me._tBHOTKEY_PATTERNS_REWORKTableAdapter - End Get - Set - Me._tBHOTKEY_PATTERNS_REWORKTableAdapter = value - End Set - End Property - - _ - Public Property TBHOTKEY_WINDOW_HOOKTableAdapter() As TBHOTKEY_WINDOW_HOOKTableAdapter - Get - Return Me._tBHOTKEY_WINDOW_HOOKTableAdapter - End Get - Set - Me._tBHOTKEY_WINDOW_HOOKTableAdapter = value - End Set - End Property - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - diff --git a/Global_Indexer/MyDataset.xsd b/Global_Indexer/MyDataset.xsd index 00b8cd1..e0cf5b5 100644 --- a/Global_Indexer/MyDataset.xsd +++ b/Global_Indexer/MyDataset.xsd @@ -1052,510 +1052,6 @@ WHERE (USER_ID = @USER_ID) ORDER BY NAME - - - - - - DELETE FROM [TBHOTKEY_PROFILE] WHERE (([GUID] = @Original_GUID) AND ([NAME] = @Original_NAME) AND ([OBJECTTYPE] = @Original_OBJECTTYPE) AND ([WD_SEARCH] = @Original_WD_SEARCH) AND ([HOTKEY1] = @Original_HOTKEY1) AND ([HOTKEY2] = @Original_HOTKEY2) AND ([WINDOW_NAME] = @Original_WINDOW_NAME) 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))) - - - - - - - - - - - - - - - - - - - - - INSERT INTO TBHOTKEY_PROFILE - (NAME, OBJECTTYPE, WD_SEARCH, HOTKEY1, HOTKEY2, WINDOW_NAME, ADDED_WHO) -VALUES (@NAME,@OBJECTTYPE,@WD_SEARCH,@HOTKEY1,@HOTKEY2,@WINDOW_NAME,@ADDED_WHO); -SELECT GUID, NAME, NAME + ', Hotkey: ' + HOTKEY1 + ' & ' + HOTKEY2 AS String, OBJECTTYPE, WD_SEARCH, HOTKEY1, HOTKEY2, WINDOW_NAME, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBHOTKEY_PROFILE WHERE (GUID = SCOPE_IDENTITY()) - - - - - - - - - - - - - - SELECT GUID, NAME, NAME + ', Hotkey: ' + HOTKEY1 + ' & ' + HOTKEY2 AS String, OBJECTTYPE, WD_SEARCH, HOTKEY1, HOTKEY2, WINDOW_NAME, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, - CHANGED_WHEN -FROM TBHOTKEY_PROFILE - - - - - - UPDATE [TBHOTKEY_PROFILE] SET [NAME] = @NAME, [OBJECTTYPE] = @OBJECTTYPE, [WD_SEARCH] = @WD_SEARCH, [HOTKEY1] = @HOTKEY1, [HOTKEY2] = @HOTKEY2, [WINDOW_NAME] = @WINDOW_NAME, [ADDED_WHO] = @ADDED_WHO, [ADDED_WHEN] = @ADDED_WHEN, [CHANGED_WHO] = @CHANGED_WHO, [CHANGED_WHEN] = @CHANGED_WHEN WHERE (([GUID] = @Original_GUID) AND ([NAME] = @Original_NAME) AND ([OBJECTTYPE] = @Original_OBJECTTYPE) AND ([WD_SEARCH] = @Original_WD_SEARCH) AND ([HOTKEY1] = @Original_HOTKEY1) AND ([HOTKEY2] = @Original_HOTKEY2) AND ([WINDOW_NAME] = @Original_WINDOW_NAME) 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))); -SELECT GUID, NAME, NAME + ', Hotkey: ' + HOTKEY1 + ' & ' + HOTKEY2 AS String, OBJECTTYPE, WD_SEARCH, HOTKEY1, HOTKEY2, WINDOW_NAME, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBHOTKEY_PROFILE WHERE (GUID = @GUID) - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - UPDATE TBHOTKEY_PROFILE -SET NAME = @NAME, OBJECTTYPE = @OBJECTTYPE, WD_SEARCH = @WD_SEARCH, HOTKEY1 = @HOTKEY1, HOTKEY2 = @HOTKEY2, WINDOW_NAME = @WINDOW_NAME, - CHANGED_WHO = @CHANGED_WHO -WHERE (GUID = @Original_GUID) - - - - - - - - - - - - - - - - - SELECT GUID, NAME, NAME + ', Hotkey: ' + HOTKEY1 + ' & ' + HOTKEY2 AS String, OBJECTTYPE, WD_SEARCH, HOTKEY1, HOTKEY2, WINDOW_NAME, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, - CHANGED_WHEN -FROM TBHOTKEY_PROFILE where GUID = @HK_ID - - - - - - - - - - - - - - DELETE FROM TBHOTKEY_PATTERNS -WHERE (GUID = @Original_GUID) - - - - - - - - INSERT INTO TBHOTKEY_PATTERNS - (HKPROFILE_ID, PATTERN_WDSEARCH, WINDOW_CONTROL, ADDED_WHO, SEQUENCE_NUMBER) -VALUES (@HKPROFILE_ID,@PATTERN_WDSEARCH,@WINDOW_CONTROL,@ADDED_WHO,@SEQUENCE_NUMBER); -SELECT GUID, HKPROFILE_ID, PATTERN_WDSEARCH, WINDOW_CONTROL, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBHOTKEY_PATTERNS WHERE (GUID = SCOPE_IDENTITY()) - - - - - - - - - - - - SELECT GUID, HKPROFILE_ID, PATTERN_WDSEARCH, WINDOW_CONTROL, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, SEQUENCE_NUMBER -FROM TBHOTKEY_PATTERNS -WHERE (HKPROFILE_ID = @ID) - - - - - - - - UPDATE TBHOTKEY_PATTERNS -SET HKPROFILE_ID = @HKPROFILE_ID, PATTERN_WDSEARCH = @PATTERN_WDSEARCH, WINDOW_CONTROL = @WINDOW_CONTROL, ADDED_WHO = @ADDED_WHO, ADDED_WHEN = @ADDED_WHEN, - CHANGED_WHO = @CHANGED_WHO, SEQUENCE_NUMBER = @SEQUENCE_NUMBER -WHERE (GUID = @Original_GUID); -SELECT GUID, HKPROFILE_ID, PATTERN_WDSEARCH, WINDOW_CONTROL, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBHOTKEY_PATTERNS WHERE (GUID = @GUID) - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - SELECT T1.GUID, T.NAME + ', Hotkey: ' + T1.HOTKEY1 + ' & ' + T1.HOTKEY2 AS String -FROM TBHOTKEY_PROFILE AS T INNER JOIN - TBHOTKEY_USER_PROFILE AS T1 ON T.GUID = T1.HKPROFILE_ID -WHERE (T.GUID IN - (SELECT HKPROFILE_ID - FROM TBHOTKEY_USER_PROFILE - WHERE (USER_ID = @USERID))) AND (T1.USER_ID = @USERID) - - - - - - - - - - - - - - - - - - - DELETE FROM TBHOTKEY_USER_PROFILE -WHERE (GUID = @Original_GUID) - - - - - - - - INSERT INTO [TBHOTKEY_USER_PROFILE] ([HKPROFILE_ID], [USER_ID], [WD_SEARCH], [HOTKEY1], [HOTKEY2], [ADDED_WHO], [ADDED_WHEN], [CHANGED_WHO], [CHANGED_WHEN]) VALUES (@HKPROFILE_ID, @USER_ID, @WD_SEARCH, @HOTKEY1, @HOTKEY2, @ADDED_WHO, @ADDED_WHEN, @CHANGED_WHO, @CHANGED_WHEN); -SELECT GUID, HKPROFILE_ID, USER_ID, WD_SEARCH, HOTKEY1, HOTKEY2, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBHOTKEY_USER_PROFILE WHERE (GUID = SCOPE_IDENTITY()) - - - - - - - - - - - - - - - - SELECT GUID, HKPROFILE_ID, USER_ID, WD_SEARCH, HOTKEY1, HOTKEY2, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN -FROM TBHOTKEY_USER_PROFILE -WHERE (GUID = @TBHOTKEY_USER_PROFILE_GUID) - - - - - - - - UPDATE [TBHOTKEY_USER_PROFILE] SET [HKPROFILE_ID] = @HKPROFILE_ID, [USER_ID] = @USER_ID, [WD_SEARCH] = @WD_SEARCH, [HOTKEY1] = @HOTKEY1, [HOTKEY2] = @HOTKEY2, [ADDED_WHO] = @ADDED_WHO, [ADDED_WHEN] = @ADDED_WHEN, [CHANGED_WHO] = @CHANGED_WHO, [CHANGED_WHEN] = @CHANGED_WHEN WHERE (([GUID] = @Original_GUID) AND ([HKPROFILE_ID] = @Original_HKPROFILE_ID) AND ([USER_ID] = @Original_USER_ID) AND ([WD_SEARCH] = @Original_WD_SEARCH) AND ([HOTKEY1] = @Original_HOTKEY1) AND ([HOTKEY2] = @Original_HOTKEY2) 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))); -SELECT GUID, HKPROFILE_ID, USER_ID, WD_SEARCH, HOTKEY1, HOTKEY2, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBHOTKEY_USER_PROFILE WHERE (GUID = @GUID) - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - INSERT INTO TBHOTKEY_USER_PROFILE - (HKPROFILE_ID, USER_ID, WD_SEARCH, HOTKEY1, HOTKEY2, ADDED_WHO) -SELECT GUID, @USER_ID AS Expr1, WD_SEARCH, HOTKEY1, HOTKEY2, 'INSERT_FRONTEND' AS Expr2 -FROM TBHOTKEY_PROFILE -WHERE (GUID = @PROFILE_ID) - - - - - - - - - - - SELECT ADDED_WHEN, ADDED_WHO, CHANGED_WHEN, CHANGED_WHO, GUID, HKPROFILE_ID, HOTKEY1, HOTKEY2, USER_ID, WD_SEARCH FROM TBHOTKEY_USER_PROFILE WHERE (USER_ID = @USER_ID) - - - - - - - - - - - - - - DELETE FROM [TBHOTKEY_PATTERNS_REWORK] WHERE (([GUID] = @Original_GUID) AND ([HKPATTERN_ID] = @Original_HKPATTERN_ID) AND ([TYPE] = @Original_TYPE) AND ((@IsNull_FUNCTION1 = 1 AND [FUNCTION1] IS NULL) OR ([FUNCTION1] = @Original_FUNCTION1)) AND ((@IsNull_FUNCTION2 = 1 AND [FUNCTION2] IS NULL) OR ([FUNCTION2] = @Original_FUNCTION2)) AND ((@IsNull_TEXT1 = 1 AND [TEXT1] IS NULL) OR ([TEXT1] = @Original_TEXT1)) AND ((@IsNull_TEXT2 = 1 AND [TEXT2] IS NULL) OR ([TEXT2] = @Original_TEXT2)) 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))) - - - - - - - - - - - - - - - - - - - - - - - - - - INSERT INTO TBHOTKEY_PATTERNS_REWORK - (HKPATTERN_ID, TYPE, FUNCTION1, FUNCTION2, TEXT1, TEXT2, SEQUENCE, ADDED_WHO) -VALUES (@HKPATTERN_ID,@TYPE,@FUNCTION1,@FUNCTION2,@TEXT1,@TEXT2,@SEQUENCE,@ADDED_WHO); -SELECT GUID, HKPATTERN_ID, TYPE, FUNCTION1, FUNCTION2, TEXT1, TEXT2, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBHOTKEY_PATTERNS_REWORK WHERE (GUID = SCOPE_IDENTITY()) - - - - - - - - - - - - - - - SELECT GUID, HKPATTERN_ID, TYPE, FUNCTION1, FUNCTION2, TEXT1, TEXT2, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN -FROM TBHOTKEY_PATTERNS_REWORK -WHERE (HKPATTERN_ID = @HKPATTERN_ID) - - - - - - - - UPDATE TBHOTKEY_PATTERNS_REWORK -SET HKPATTERN_ID = @HKPATTERN_ID, TYPE = @TYPE, FUNCTION1 = @FUNCTION1, FUNCTION2 = @FUNCTION2, TEXT1 = @TEXT1, TEXT2 = @TEXT2, SEQUENCE = @SEQUENCE, - CHANGED_WHO = @CHANGED_WHO -WHERE (GUID = @Original_GUID); -SELECT GUID, HKPATTERN_ID, TYPE, FUNCTION1, FUNCTION2, TEXT1, TEXT2, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBHOTKEY_PATTERNS_REWORK WHERE (GUID = @GUID) - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - DELETE FROM TBHOTKEY_WINDOW_HOOK -WHERE (GUID = @Original_GUID) - - - - - - - - INSERT INTO TBHOTKEY_WINDOW_HOOK - (HKPROFILE_ID, SEQUENCE_NUMBER, CONTROL_VALUE, ADDED_WHO) -VALUES (@HKPROFILE_ID,@SEQUENCE_NUMBER,@CONTROL_VALUE,@ADDED_WHO); -SELECT GUID, HKPROFILE_ID, SEQUENCE_NUMBER, CONTROL_VALUE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBHOTKEY_WINDOW_HOOK WHERE (GUID = SCOPE_IDENTITY()) - - - - - - - - - - - SELECT GUID, HKPROFILE_ID, SEQUENCE_NUMBER, CONTROL_VALUE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN -FROM TBHOTKEY_WINDOW_HOOK -WHERE (HKPROFILE_ID = @ID) - - - - - - - - UPDATE TBHOTKEY_WINDOW_HOOK -SET HKPROFILE_ID = @HKPROFILE_ID, SEQUENCE_NUMBER = @SEQUENCE_NUMBER, CONTROL_VALUE = @CONTROL_VALUE, CHANGED_WHO = @CHANGED_WHO -WHERE (GUID = @Original_GUID); -SELECT GUID, HKPROFILE_ID, SEQUENCE_NUMBER, CONTROL_VALUE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBHOTKEY_WINDOW_HOOK WHERE (GUID = @GUID) - - - - - - - - - - - - - - - - - - - - - - - - @@ -1694,7 +1190,7 @@ SELECT GUID, REGEX, DOCTYPE_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN - + @@ -1759,7 +1255,7 @@ SELECT GUID, REGEX, DOCTYPE_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN - + @@ -1842,7 +1338,7 @@ SELECT GUID, REGEX, DOCTYPE_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN - + @@ -1879,7 +1375,7 @@ SELECT GUID, REGEX, DOCTYPE_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN - + @@ -1893,7 +1389,7 @@ SELECT GUID, REGEX, DOCTYPE_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN - + @@ -1907,7 +1403,7 @@ SELECT GUID, REGEX, DOCTYPE_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN - + @@ -1989,7 +1485,7 @@ SELECT GUID, REGEX, DOCTYPE_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN - + @@ -2062,7 +1558,7 @@ SELECT GUID, REGEX, DOCTYPE_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN - + @@ -2175,7 +1671,7 @@ SELECT GUID, REGEX, DOCTYPE_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN - + @@ -2271,7 +1767,7 @@ SELECT GUID, REGEX, DOCTYPE_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN - + @@ -2326,7 +1822,7 @@ SELECT GUID, REGEX, DOCTYPE_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN - + @@ -2334,7 +1830,7 @@ SELECT GUID, REGEX, DOCTYPE_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN - + @@ -2384,7 +1880,7 @@ SELECT GUID, REGEX, DOCTYPE_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN - + @@ -2456,7 +1952,7 @@ SELECT GUID, REGEX, DOCTYPE_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN - + @@ -2537,7 +2033,7 @@ SELECT GUID, REGEX, DOCTYPE_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN - + @@ -2551,7 +2047,7 @@ SELECT GUID, REGEX, DOCTYPE_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN - + @@ -2560,7 +2056,7 @@ SELECT GUID, REGEX, DOCTYPE_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN - + @@ -2585,7 +2081,7 @@ SELECT GUID, REGEX, DOCTYPE_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN - + @@ -2624,270 +2120,7 @@ SELECT GUID, REGEX, DOCTYPE_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + @@ -2925,7 +2158,7 @@ SELECT GUID, REGEX, DOCTYPE_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN - + @@ -2947,7 +2180,7 @@ SELECT GUID, REGEX, DOCTYPE_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN - + @@ -2959,7 +2192,7 @@ SELECT GUID, REGEX, DOCTYPE_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN - + @@ -3056,30 +2289,6 @@ SELECT GUID, REGEX, DOCTYPE_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN - - - - - - - - - - - - - - - - - - - - - - - - @@ -3099,21 +2308,14 @@ SELECT GUID, REGEX, DOCTYPE_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN - - - - - - - - - - - - - - - + + + + + + + + \ No newline at end of file diff --git a/Global_Indexer/MyDataset.xss b/Global_Indexer/MyDataset.xss index fafc93c..c891b00 100644 --- a/Global_Indexer/MyDataset.xss +++ b/Global_Indexer/MyDataset.xss @@ -4,39 +4,33 @@ Changes to this file may cause incorrect behavior and will be lost if the code is regenerated. --> - + - - - - - - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + - - - - - + + + + + - + 431 @@ -48,7 +42,7 @@ - + 535 @@ -60,7 +54,7 @@ - + 397 @@ -72,7 +66,7 @@ - + 597 @@ -80,43 +74,39 @@ 597 - 148 + 104 - 743 - 148 + 719 + 104 - + - 959 - 682 + 293 + 72 - 959 - 374 + 719 + 72 - + - 951 - 247 + 978 + 273 - 951 - 211 - - - 1014 - 211 + 1040 + 273 - + 397 @@ -128,131 +118,7 @@ - - - - 129 - 311 - - - 129 - 86 - - - 221 - 86 - - - - - - - 183 - 25 - - - 221 - 25 - - - - - - - 88 - 311 - - - 88 - -22 - - - 88 - -30 - - - 88 - 178 - - - - - - - 117 - -1 - - - 117 - -22 - - - 117 - -30 - - - 117 - 178 - - - - - - - 765 - 285 - - - 240 - 285 - - - 240 - 268 - - - - - - - 409 - -36 - - - 409 - -66 - - - 425 - -66 - - - 425 - -3 - - - - - - - 38 - 0 - - - 38 - -30 - - - 38 - -30 - - - 38 - 0 - - - - + 380 diff --git a/Global_Indexer/frmAdministration.Designer.vb b/Global_Indexer/frmAdministration.Designer.vb index dc45f4b..e060d1c 100644 --- a/Global_Indexer/frmAdministration.Designer.vb +++ b/Global_Indexer/frmAdministration.Designer.vb @@ -2342,11 +2342,6 @@ Partial Class frmAdministration Me.TableAdapterManager.TBGI_CONFIGURATIONTableAdapter = Nothing Me.TableAdapterManager.TBGI_OBJECTTYPE_EMAIL_INDEXTableAdapter = Nothing Me.TableAdapterManager.TBGI_REGEX_DOCTYPETableAdapter = Nothing - Me.TableAdapterManager.TBHOTKEY_PATTERNS_REWORKTableAdapter = Nothing - Me.TableAdapterManager.TBHOTKEY_PATTERNSTableAdapter = Nothing - Me.TableAdapterManager.TBHOTKEY_PROFILETableAdapter = Nothing - Me.TableAdapterManager.TBHOTKEY_USER_PROFILETableAdapter = Nothing - Me.TableAdapterManager.TBHOTKEY_WINDOW_HOOKTableAdapter = Nothing Me.TableAdapterManager.UpdateOrder = Global_Indexer.MyDatasetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete ' 'TBDD_EINGANGSARTENTableAdapter diff --git a/Global_Indexer/frmConnections.Designer.vb b/Global_Indexer/frmConnections.Designer.vb index de93d08..7819e5f 100644 --- a/Global_Indexer/frmConnections.Designer.vb +++ b/Global_Indexer/frmConnections.Designer.vb @@ -150,11 +150,6 @@ Partial Class frmConnections Me.TableAdapterManager.TBGI_CONFIGURATIONTableAdapter = Nothing Me.TableAdapterManager.TBGI_OBJECTTYPE_EMAIL_INDEXTableAdapter = Nothing Me.TableAdapterManager.TBGI_REGEX_DOCTYPETableAdapter = Nothing - Me.TableAdapterManager.TBHOTKEY_PATTERNS_REWORKTableAdapter = Nothing - Me.TableAdapterManager.TBHOTKEY_PATTERNSTableAdapter = Nothing - Me.TableAdapterManager.TBHOTKEY_PROFILETableAdapter = Nothing - Me.TableAdapterManager.TBHOTKEY_USER_PROFILETableAdapter = Nothing - Me.TableAdapterManager.TBHOTKEY_WINDOW_HOOKTableAdapter = Nothing Me.TableAdapterManager.UpdateOrder = Global_Indexer.MyDatasetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete ' 'BEZEICHNUNGTextBox diff --git a/Global_Indexer/frmEmailIndexing.Designer.vb b/Global_Indexer/frmEmailIndexing.Designer.vb index 29f514d..ba7f279 100644 --- a/Global_Indexer/frmEmailIndexing.Designer.vb +++ b/Global_Indexer/frmEmailIndexing.Designer.vb @@ -502,11 +502,6 @@ Partial Class frmEmailIndexing Me.TableAdapterManager.TBGI_CONFIGURATIONTableAdapter = Nothing Me.TableAdapterManager.TBGI_OBJECTTYPE_EMAIL_INDEXTableAdapter = Me.TBGI_OBJECTTYPE_EMAIL_INDEXTableAdapter Me.TableAdapterManager.TBGI_REGEX_DOCTYPETableAdapter = Nothing - Me.TableAdapterManager.TBHOTKEY_PATTERNS_REWORKTableAdapter = Nothing - Me.TableAdapterManager.TBHOTKEY_PATTERNSTableAdapter = Nothing - Me.TableAdapterManager.TBHOTKEY_PROFILETableAdapter = Nothing - Me.TableAdapterManager.TBHOTKEY_USER_PROFILETableAdapter = Nothing - Me.TableAdapterManager.TBHOTKEY_WINDOW_HOOKTableAdapter = Nothing Me.TableAdapterManager.UpdateOrder = Global_Indexer.MyDatasetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete ' 'TBDD_DOKUMENTARTTableAdapter diff --git a/Global_Indexer/frmHistory.Designer.vb b/Global_Indexer/frmHistory.Designer.vb index 1697d55..697120a 100644 --- a/Global_Indexer/frmHistory.Designer.vb +++ b/Global_Indexer/frmHistory.Designer.vb @@ -167,11 +167,6 @@ Partial Class frmHistory Me.TableAdapterManager.TBDD_USERTableAdapter = Nothing Me.TableAdapterManager.TBGI_CONFIGURATIONTableAdapter = Nothing Me.TableAdapterManager.TBGI_OBJECTTYPE_EMAIL_INDEXTableAdapter = Nothing - Me.TableAdapterManager.TBHOTKEY_PATTERNS_REWORKTableAdapter = Nothing - Me.TableAdapterManager.TBHOTKEY_PATTERNSTableAdapter = Nothing - Me.TableAdapterManager.TBHOTKEY_PROFILETableAdapter = Nothing - Me.TableAdapterManager.TBHOTKEY_USER_PROFILETableAdapter = Nothing - Me.TableAdapterManager.TBHOTKEY_WINDOW_HOOKTableAdapter = Nothing Me.TableAdapterManager.UpdateOrder = Global_Indexer.MyDatasetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete ' 'GridControl1 diff --git a/Global_Indexer/frmHotKey_Add.Designer.vb b/Global_Indexer/frmHotKey_Add.Designer.vb deleted file mode 100644 index bb0c575..0000000 --- a/Global_Indexer/frmHotKey_Add.Designer.vb +++ /dev/null @@ -1,2023 +0,0 @@ - _ -Partial Class frmHotKey_Add - 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 - components.Dispose() - End If - Finally - MyBase.Dispose(disposing) - End Try - End Sub - - 'Wird vom Windows Form-Designer benötigt. - Private components As System.ComponentModel.IContainer - - '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 GUIDLabel As System.Windows.Forms.Label - Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmHotKey_Add)) - Dim NAMELabel As System.Windows.Forms.Label - Dim WD_SEARCHLabel As System.Windows.Forms.Label - Dim HOTKEY1Label As System.Windows.Forms.Label - Dim HOTKEY2Label As System.Windows.Forms.Label - Dim CHANGED_WHOLabel As System.Windows.Forms.Label - Dim CHANGED_WHENLabel As System.Windows.Forms.Label - Dim GUIDLabel1 As System.Windows.Forms.Label - Dim TYPELabel As System.Windows.Forms.Label - Dim SEQUENCELabel As System.Windows.Forms.Label - Dim ADDED_WHOLabel As System.Windows.Forms.Label - Dim ADDED_WHENLabel As System.Windows.Forms.Label - Dim CHANGED_WHOLabel1 As System.Windows.Forms.Label - Dim CHANGED_WHENLabel1 As System.Windows.Forms.Label - Dim ADDED_WHENLabel1 As System.Windows.Forms.Label - Dim GUIDLabel2 As System.Windows.Forms.Label - Dim WINDOW_NAMELabel As System.Windows.Forms.Label - Dim SEQUENCE_NUMBERLabel As System.Windows.Forms.Label - Dim PATTERN_WDSEARCHLabel As System.Windows.Forms.Label - Dim CHANGED_WHENLabel2 As System.Windows.Forms.Label - Dim CHANGED_WHOLabel2 As System.Windows.Forms.Label - Dim ADDED_WHOLabel1 As System.Windows.Forms.Label - Dim Label15 As System.Windows.Forms.Label - Dim GUIDLabel3 As System.Windows.Forms.Label - Dim SEQUENCE_NUMBERLabel1 As System.Windows.Forms.Label - Dim CONTROL_VALUELabel As System.Windows.Forms.Label - Dim ADDED_WHOLabel2 As System.Windows.Forms.Label - Dim ADDED_WHENLabel2 As System.Windows.Forms.Label - Dim Label17 As System.Windows.Forms.Label - Me.StatusStrip1 = New System.Windows.Forms.StatusStrip() - Me.tslbl_Hotkeywindow = New System.Windows.Forms.ToolStripStatusLabel() - Me.tslbl_HotkeySequence = New System.Windows.Forms.ToolStripStatusLabel() - Me.ListBox_FormTitles = New System.Windows.Forms.ListBox() - Me.GroupBoxMainWindow = New System.Windows.Forms.GroupBox() - Me.chkboxshowfilledControlsOnly = New System.Windows.Forms.CheckBox() - Me.btnpnlStart_weiter = New System.Windows.Forms.Button() - Me.GroupBox2_Controls = New System.Windows.Forms.GroupBox() - Me.lblMatchadd = New System.Windows.Forms.Label() - Me.btnadd_WindowMatch = New System.Windows.Forms.Button() - Me.txtValueMatch = New System.Windows.Forms.TextBox() - Me.Label13 = New System.Windows.Forms.Label() - Me.Label11 = New System.Windows.Forms.Label() - Me.Label12 = New System.Windows.Forms.Label() - Me.txtControl_Match = New System.Windows.Forms.TextBox() - Me.Label10 = New System.Windows.Forms.Label() - Me.ListViewControls = New System.Windows.Forms.ListView() - Me.ColumnHeader3 = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader) - Me.ControlID = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader) - Me.ControlValue = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader) - Me.lblLinkadd = New System.Windows.Forms.Label() - Me.btnadd_Pattern = New System.Windows.Forms.Button() - Me.Label8 = New System.Windows.Forms.Label() - Me.Label7 = New System.Windows.Forms.Label() - Me.txtPattern = New System.Windows.Forms.TextBox() - Me.Label1 = New System.Windows.Forms.Label() - Me.txtControl = New System.Windows.Forms.TextBox() - Me.GroupBox1 = New System.Windows.Forms.GroupBox() - Me.btnnewProfile = New System.Windows.Forms.Button() - Me.Button1 = New System.Windows.Forms.Button() - Me.lblSaveHotkey = New System.Windows.Forms.Label() - Me.Label6 = New System.Windows.Forms.Label() - Me.Label5 = New System.Windows.Forms.Label() - Me.txtKey = New System.Windows.Forms.TextBox() - Me.cmbFunktionstaste = New System.Windows.Forms.ComboBox() - Me.txtWDSearch = New System.Windows.Forms.TextBox() - Me.cmbObjekttyp = New System.Windows.Forms.ComboBox() - Me.txtProfilname = New System.Windows.Forms.TextBox() - Me.Label4 = New System.Windows.Forms.Label() - Me.Label3 = New System.Windows.Forms.Label() - Me.Label2 = New System.Windows.Forms.Label() - Me.btnGB1 = New System.Windows.Forms.Button() - Me.MyDataset = New Global_Indexer.MyDataset() - Me.TBHOTKEY_PROFILEBindingSource = New System.Windows.Forms.BindingSource(Me.components) - Me.TBHOTKEY_PROFILETableAdapter = New Global_Indexer.MyDatasetTableAdapters.TBHOTKEY_PROFILETableAdapter() - Me.TableAdapterManager = New Global_Indexer.MyDatasetTableAdapters.TableAdapterManager() - Me.TBHOTKEY_PATTERNSTableAdapter = New Global_Indexer.MyDatasetTableAdapters.TBHOTKEY_PATTERNSTableAdapter() - Me.TBHOTKEY_PATTERNSBindingSource = New System.Windows.Forms.BindingSource(Me.components) - Me.OFDWindreamsuche = New System.Windows.Forms.OpenFileDialog() - Me.TabControlMain = New System.Windows.Forms.TabControl() - Me.TabPageUebersicht = New System.Windows.Forms.TabPage() - Me.GridControl1 = New DevExpress.XtraGrid.GridControl() - Me.GridView1 = New DevExpress.XtraGrid.Views.Grid.GridView() - Me.colGUID = New DevExpress.XtraGrid.Columns.GridColumn() - Me.colString = New DevExpress.XtraGrid.Columns.GridColumn() - Me.ToolStrip1 = New System.Windows.Forms.ToolStrip() - Me.GroupBoxPatterns = New System.Windows.Forms.GroupBox() - Me.ListBox1 = New System.Windows.Forms.ListBox() - Me.TBHOTKEY_WINDOW_HOOKBindingSource = New System.Windows.Forms.BindingSource(Me.components) - Me.TabControlDetails = New System.Windows.Forms.TabControl() - Me.TabPage6 = New System.Windows.Forms.TabPage() - Me.lblSavePAttern = New System.Windows.Forms.Label() - Me.ADDED_WHOTextBox1 = New System.Windows.Forms.TextBox() - Me.CHANGED_WHOTextBox2 = New System.Windows.Forms.TextBox() - Me.CHANGED_WHENTextBox2 = New System.Windows.Forms.TextBox() - Me.ADDED_WHENTextBox1 = New System.Windows.Forms.TextBox() - Me.PATTERN_WDSEARCHTextBox = New System.Windows.Forms.TextBox() - Me.SEQUENCE_NUMBERTextBox = New System.Windows.Forms.TextBox() - Me.Label14 = New System.Windows.Forms.Label() - Me.BindingNavigator2 = New System.Windows.Forms.BindingNavigator(Me.components) - Me.BindingNavigatorCountItem1 = New System.Windows.Forms.ToolStripLabel() - Me.BindingNavigatorDeleteItem1 = New System.Windows.Forms.ToolStripButton() - Me.BindingNavigatorMoveFirstItem1 = New System.Windows.Forms.ToolStripButton() - Me.BindingNavigatorMovePreviousItem1 = New System.Windows.Forms.ToolStripButton() - Me.BindingNavigatorSeparator3 = New System.Windows.Forms.ToolStripSeparator() - Me.BindingNavigatorPositionItem1 = New System.Windows.Forms.ToolStripTextBox() - Me.BindingNavigatorSeparator4 = New System.Windows.Forms.ToolStripSeparator() - Me.BindingNavigatorMoveNextItem1 = New System.Windows.Forms.ToolStripButton() - Me.BindingNavigatorMoveLastItem1 = New System.Windows.Forms.ToolStripButton() - Me.BindingNavigatorSeparator5 = New System.Windows.Forms.ToolStripSeparator() - Me.tsbtnsave_pattern = New System.Windows.Forms.ToolStripButton() - Me.GUIDTextBox2 = New System.Windows.Forms.TextBox() - Me.TabPage4 = New System.Windows.Forms.TabPage() - Me.lblHinweisRework1 = New System.Windows.Forms.Label() - Me.CHANGED_WHENTextBox1 = New System.Windows.Forms.TextBox() - Me.TBHOTKEY_PATTERNS_REWORKBindingSource = New System.Windows.Forms.BindingSource(Me.components) - Me.Text2Label = New System.Windows.Forms.Label() - Me.Text1Label = New System.Windows.Forms.Label() - Me.Function2Label = New System.Windows.Forms.Label() - Me.Function1Label = New System.Windows.Forms.Label() - Me.lblsavePatternsRework = New System.Windows.Forms.Label() - Me.CHANGED_WHOTextBox1 = New System.Windows.Forms.TextBox() - Me.ADDED_WHENTextBox = New System.Windows.Forms.TextBox() - Me.ADDED_WHOTextBox = New System.Windows.Forms.TextBox() - Me.SEQUENCETextBox = New System.Windows.Forms.TextBox() - Me.TEXT2TextBox = New System.Windows.Forms.TextBox() - Me.TEXT1TextBox = New System.Windows.Forms.TextBox() - Me.FUNCTION2TextBox = New System.Windows.Forms.TextBox() - Me.FUNCTION1TextBox = New System.Windows.Forms.TextBox() - Me.TYPEComboBox = New System.Windows.Forms.ComboBox() - Me.GUIDTextBox1 = New System.Windows.Forms.TextBox() - Me.BindingNavigator1 = New System.Windows.Forms.BindingNavigator(Me.components) - Me.BindingNavigatorAddNewItem = New System.Windows.Forms.ToolStripButton() - Me.BindingNavigatorCountItem = New System.Windows.Forms.ToolStripLabel() - Me.BindingNavigatorDeleteItem = New System.Windows.Forms.ToolStripButton() - Me.BindingNavigatorMoveFirstItem = New System.Windows.Forms.ToolStripButton() - Me.BindingNavigatorMovePreviousItem = New System.Windows.Forms.ToolStripButton() - Me.BindingNavigatorSeparator = New System.Windows.Forms.ToolStripSeparator() - Me.BindingNavigatorPositionItem = New System.Windows.Forms.ToolStripTextBox() - Me.BindingNavigatorSeparator1 = New System.Windows.Forms.ToolStripSeparator() - Me.BindingNavigatorMoveNextItem = New System.Windows.Forms.ToolStripButton() - Me.BindingNavigatorMoveLastItem = New System.Windows.Forms.ToolStripButton() - Me.BindingNavigatorSeparator2 = New System.Windows.Forms.ToolStripSeparator() - Me.ToolStripButton1 = New System.Windows.Forms.ToolStripButton() - Me.btnRegexTest = New System.Windows.Forms.Button() - Me.TabPage5 = New System.Windows.Forms.TabPage() - Me.ADDED_WHENTextBox2 = New System.Windows.Forms.TextBox() - Me.ADDED_WHOTextBox2 = New System.Windows.Forms.TextBox() - Me.CONTROL_VALUETextBox = New System.Windows.Forms.TextBox() - Me.SEQUENCE_NUMBERTextBox1 = New System.Windows.Forms.TextBox() - Me.GUIDTextBox3 = New System.Windows.Forms.TextBox() - Me.Label16 = New System.Windows.Forms.Label() - Me.BindingNavigator3 = New System.Windows.Forms.BindingNavigator(Me.components) - Me.ToolStripLabel1 = New System.Windows.Forms.ToolStripLabel() - Me.ToolStripButton2 = New System.Windows.Forms.ToolStripButton() - Me.ToolStripButton3 = New System.Windows.Forms.ToolStripButton() - Me.ToolStripButton4 = New System.Windows.Forms.ToolStripButton() - Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator() - Me.ToolStripTextBox1 = New System.Windows.Forms.ToolStripTextBox() - Me.ToolStripSeparator2 = New System.Windows.Forms.ToolStripSeparator() - Me.ToolStripButton5 = New System.Windows.Forms.ToolStripButton() - Me.ToolStripButton6 = New System.Windows.Forms.ToolStripButton() - Me.ToolStripSeparator3 = New System.Windows.Forms.ToolStripSeparator() - Me.ListBoxPatterns = New System.Windows.Forms.ListBox() - Me.TabControl1 = New System.Windows.Forms.TabControl() - Me.TabPage3 = New System.Windows.Forms.TabPage() - Me.WINDOW_NAMETextBox = New System.Windows.Forms.TextBox() - Me.Button2 = New System.Windows.Forms.Button() - Me.lblSave = New System.Windows.Forms.Label() - Me.btnsave = New System.Windows.Forms.Button() - Me.CHANGED_WHENTextBox = New System.Windows.Forms.TextBox() - Me.CHANGED_WHOTextBox = New System.Windows.Forms.TextBox() - Me.HOTKEY2TextBox = New System.Windows.Forms.TextBox() - Me.HOTKEY1ComboBox = New System.Windows.Forms.ComboBox() - Me.WD_SEARCHTextBox = New System.Windows.Forms.TextBox() - Me.NAMETextBox = New System.Windows.Forms.TextBox() - Me.GUIDTextBox = New System.Windows.Forms.TextBox() - Me.TabPage1 = New System.Windows.Forms.TabPage() - Me.chklbUser = New System.Windows.Forms.CheckedListBox() - Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components) - Me.AlleAuswählenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() - Me.KeineAuswählenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() - Me.btnUserAdd_Profile = New System.Windows.Forms.Button() - Me.TabPage2 = New System.Windows.Forms.TabPage() - Me.btndeleteUserProfile = New System.Windows.Forms.Button() - Me.chklbUserProfile = New System.Windows.Forms.CheckedListBox() - Me.btndelete = New System.Windows.Forms.Button() - Me.Label9 = New System.Windows.Forms.Label() - Me.TabPage_Designer = New System.Windows.Forms.TabPage() - Me.TabControl2 = New System.Windows.Forms.TabControl() - Me.TabPage7 = New System.Windows.Forms.TabPage() - Me.TabPage8 = New System.Windows.Forms.TabPage() - Me.Label20 = New System.Windows.Forms.Label() - Me.lblLinkCopyPaste = New System.Windows.Forms.Label() - Me.btnAddCopypasteConfig = New System.Windows.Forms.Button() - Me.txtcopypastePatter = New System.Windows.Forms.TextBox() - Me.Label19 = New System.Windows.Forms.Label() - Me.Label18 = New System.Windows.Forms.Label() - Me.cmbCopyPasteFunction = New System.Windows.Forms.ComboBox() - Me.TabPageTest = New System.Windows.Forms.TabPage() - Me.GroupBox3 = New System.Windows.Forms.GroupBox() - Me.chkboxshowfilledControlsOnly_Test = New System.Windows.Forms.CheckBox() - Me.ListViewControls_Test = New System.Windows.Forms.ListView() - Me.ColumnHeader4 = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader) - Me.ColumnHeader1 = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader) - Me.ColumnHeader2 = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader) - Me.GroupBox2 = New System.Windows.Forms.GroupBox() - Me.Button3 = New System.Windows.Forms.Button() - Me.ListBox_MainWindows_Test = New System.Windows.Forms.ListBox() - Me.TBDD_USERBindingSource = New System.Windows.Forms.BindingSource(Me.components) - Me.TBDD_USERTableAdapter = New Global_Indexer.MyDatasetTableAdapters.TBDD_USERTableAdapter() - Me.TBHOTKEY_USER_PROFILEBindingSource = New System.Windows.Forms.BindingSource(Me.components) - Me.TBHOTKEY_USER_PROFILETableAdapter = New Global_Indexer.MyDatasetTableAdapters.TBHOTKEY_USER_PROFILETableAdapter() - Me.TBHOTKEY_PATTERNS_REWORKTableAdapter = New Global_Indexer.MyDatasetTableAdapters.TBHOTKEY_PATTERNS_REWORKTableAdapter() - Me.TBHOTKEY_WINDOW_HOOKTableAdapter = New Global_Indexer.MyDatasetTableAdapters.TBHOTKEY_WINDOW_HOOKTableAdapter() - Me.ToolTipController1 = New DevExpress.Utils.ToolTipController(Me.components) - GUIDLabel = New System.Windows.Forms.Label() - NAMELabel = New System.Windows.Forms.Label() - WD_SEARCHLabel = New System.Windows.Forms.Label() - HOTKEY1Label = New System.Windows.Forms.Label() - HOTKEY2Label = New System.Windows.Forms.Label() - CHANGED_WHOLabel = New System.Windows.Forms.Label() - CHANGED_WHENLabel = New System.Windows.Forms.Label() - GUIDLabel1 = New System.Windows.Forms.Label() - TYPELabel = New System.Windows.Forms.Label() - SEQUENCELabel = New System.Windows.Forms.Label() - ADDED_WHOLabel = New System.Windows.Forms.Label() - ADDED_WHENLabel = New System.Windows.Forms.Label() - CHANGED_WHOLabel1 = New System.Windows.Forms.Label() - CHANGED_WHENLabel1 = New System.Windows.Forms.Label() - ADDED_WHENLabel1 = New System.Windows.Forms.Label() - GUIDLabel2 = New System.Windows.Forms.Label() - WINDOW_NAMELabel = New System.Windows.Forms.Label() - SEQUENCE_NUMBERLabel = New System.Windows.Forms.Label() - PATTERN_WDSEARCHLabel = New System.Windows.Forms.Label() - CHANGED_WHENLabel2 = New System.Windows.Forms.Label() - CHANGED_WHOLabel2 = New System.Windows.Forms.Label() - ADDED_WHOLabel1 = New System.Windows.Forms.Label() - Label15 = New System.Windows.Forms.Label() - GUIDLabel3 = New System.Windows.Forms.Label() - SEQUENCE_NUMBERLabel1 = New System.Windows.Forms.Label() - CONTROL_VALUELabel = New System.Windows.Forms.Label() - ADDED_WHOLabel2 = New System.Windows.Forms.Label() - ADDED_WHENLabel2 = New System.Windows.Forms.Label() - Label17 = New System.Windows.Forms.Label() - Me.StatusStrip1.SuspendLayout() - Me.GroupBoxMainWindow.SuspendLayout() - Me.GroupBox2_Controls.SuspendLayout() - Me.GroupBox1.SuspendLayout() - CType(Me.MyDataset, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.TBHOTKEY_PROFILEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.TBHOTKEY_PATTERNSBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() - Me.TabControlMain.SuspendLayout() - Me.TabPageUebersicht.SuspendLayout() - CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.GridView1, System.ComponentModel.ISupportInitialize).BeginInit() - Me.GroupBoxPatterns.SuspendLayout() - CType(Me.TBHOTKEY_WINDOW_HOOKBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() - Me.TabControlDetails.SuspendLayout() - Me.TabPage6.SuspendLayout() - CType(Me.BindingNavigator2, System.ComponentModel.ISupportInitialize).BeginInit() - Me.BindingNavigator2.SuspendLayout() - Me.TabPage4.SuspendLayout() - CType(Me.TBHOTKEY_PATTERNS_REWORKBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.BindingNavigator1, System.ComponentModel.ISupportInitialize).BeginInit() - Me.BindingNavigator1.SuspendLayout() - Me.TabPage5.SuspendLayout() - CType(Me.BindingNavigator3, System.ComponentModel.ISupportInitialize).BeginInit() - Me.BindingNavigator3.SuspendLayout() - Me.TabControl1.SuspendLayout() - Me.TabPage3.SuspendLayout() - Me.TabPage1.SuspendLayout() - Me.ContextMenuStrip1.SuspendLayout() - Me.TabPage2.SuspendLayout() - Me.TabPage_Designer.SuspendLayout() - Me.TabControl2.SuspendLayout() - Me.TabPage7.SuspendLayout() - Me.TabPage8.SuspendLayout() - Me.TabPageTest.SuspendLayout() - Me.GroupBox3.SuspendLayout() - Me.GroupBox2.SuspendLayout() - CType(Me.TBDD_USERBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.TBHOTKEY_USER_PROFILEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() - Me.SuspendLayout() - ' - 'GUIDLabel - ' - resources.ApplyResources(GUIDLabel, "GUIDLabel") - GUIDLabel.Name = "GUIDLabel" - ' - 'NAMELabel - ' - resources.ApplyResources(NAMELabel, "NAMELabel") - NAMELabel.Name = "NAMELabel" - ' - 'WD_SEARCHLabel - ' - resources.ApplyResources(WD_SEARCHLabel, "WD_SEARCHLabel") - WD_SEARCHLabel.Name = "WD_SEARCHLabel" - ' - 'HOTKEY1Label - ' - resources.ApplyResources(HOTKEY1Label, "HOTKEY1Label") - HOTKEY1Label.Name = "HOTKEY1Label" - ' - 'HOTKEY2Label - ' - resources.ApplyResources(HOTKEY2Label, "HOTKEY2Label") - HOTKEY2Label.Name = "HOTKEY2Label" - ' - 'CHANGED_WHOLabel - ' - resources.ApplyResources(CHANGED_WHOLabel, "CHANGED_WHOLabel") - CHANGED_WHOLabel.Name = "CHANGED_WHOLabel" - ' - 'CHANGED_WHENLabel - ' - resources.ApplyResources(CHANGED_WHENLabel, "CHANGED_WHENLabel") - CHANGED_WHENLabel.Name = "CHANGED_WHENLabel" - ' - 'GUIDLabel1 - ' - resources.ApplyResources(GUIDLabel1, "GUIDLabel1") - GUIDLabel1.Name = "GUIDLabel1" - ' - 'TYPELabel - ' - resources.ApplyResources(TYPELabel, "TYPELabel") - TYPELabel.Name = "TYPELabel" - ' - 'SEQUENCELabel - ' - resources.ApplyResources(SEQUENCELabel, "SEQUENCELabel") - SEQUENCELabel.Name = "SEQUENCELabel" - ' - 'ADDED_WHOLabel - ' - resources.ApplyResources(ADDED_WHOLabel, "ADDED_WHOLabel") - ADDED_WHOLabel.Name = "ADDED_WHOLabel" - ' - 'ADDED_WHENLabel - ' - resources.ApplyResources(ADDED_WHENLabel, "ADDED_WHENLabel") - ADDED_WHENLabel.Name = "ADDED_WHENLabel" - ' - 'CHANGED_WHOLabel1 - ' - resources.ApplyResources(CHANGED_WHOLabel1, "CHANGED_WHOLabel1") - CHANGED_WHOLabel1.Name = "CHANGED_WHOLabel1" - ' - 'CHANGED_WHENLabel1 - ' - resources.ApplyResources(CHANGED_WHENLabel1, "CHANGED_WHENLabel1") - CHANGED_WHENLabel1.Name = "CHANGED_WHENLabel1" - ' - 'ADDED_WHENLabel1 - ' - resources.ApplyResources(ADDED_WHENLabel1, "ADDED_WHENLabel1") - ADDED_WHENLabel1.Name = "ADDED_WHENLabel1" - ' - 'GUIDLabel2 - ' - resources.ApplyResources(GUIDLabel2, "GUIDLabel2") - GUIDLabel2.Name = "GUIDLabel2" - ' - 'WINDOW_NAMELabel - ' - resources.ApplyResources(WINDOW_NAMELabel, "WINDOW_NAMELabel") - WINDOW_NAMELabel.ForeColor = System.Drawing.Color.Firebrick - WINDOW_NAMELabel.Name = "WINDOW_NAMELabel" - ' - 'SEQUENCE_NUMBERLabel - ' - resources.ApplyResources(SEQUENCE_NUMBERLabel, "SEQUENCE_NUMBERLabel") - SEQUENCE_NUMBERLabel.Name = "SEQUENCE_NUMBERLabel" - ' - 'PATTERN_WDSEARCHLabel - ' - resources.ApplyResources(PATTERN_WDSEARCHLabel, "PATTERN_WDSEARCHLabel") - PATTERN_WDSEARCHLabel.Name = "PATTERN_WDSEARCHLabel" - ' - 'CHANGED_WHENLabel2 - ' - resources.ApplyResources(CHANGED_WHENLabel2, "CHANGED_WHENLabel2") - CHANGED_WHENLabel2.Name = "CHANGED_WHENLabel2" - ' - 'CHANGED_WHOLabel2 - ' - resources.ApplyResources(CHANGED_WHOLabel2, "CHANGED_WHOLabel2") - CHANGED_WHOLabel2.Name = "CHANGED_WHOLabel2" - ' - 'ADDED_WHOLabel1 - ' - resources.ApplyResources(ADDED_WHOLabel1, "ADDED_WHOLabel1") - ADDED_WHOLabel1.Name = "ADDED_WHOLabel1" - ' - 'Label15 - ' - resources.ApplyResources(Label15, "Label15") - Label15.Name = "Label15" - ' - 'GUIDLabel3 - ' - resources.ApplyResources(GUIDLabel3, "GUIDLabel3") - GUIDLabel3.Name = "GUIDLabel3" - ' - 'SEQUENCE_NUMBERLabel1 - ' - resources.ApplyResources(SEQUENCE_NUMBERLabel1, "SEQUENCE_NUMBERLabel1") - SEQUENCE_NUMBERLabel1.Name = "SEQUENCE_NUMBERLabel1" - ' - 'CONTROL_VALUELabel - ' - resources.ApplyResources(CONTROL_VALUELabel, "CONTROL_VALUELabel") - CONTROL_VALUELabel.Name = "CONTROL_VALUELabel" - ' - 'ADDED_WHOLabel2 - ' - resources.ApplyResources(ADDED_WHOLabel2, "ADDED_WHOLabel2") - ADDED_WHOLabel2.Name = "ADDED_WHOLabel2" - ' - 'ADDED_WHENLabel2 - ' - resources.ApplyResources(ADDED_WHENLabel2, "ADDED_WHENLabel2") - ADDED_WHENLabel2.Name = "ADDED_WHENLabel2" - ' - 'Label17 - ' - resources.ApplyResources(Label17, "Label17") - Label17.Name = "Label17" - ' - 'StatusStrip1 - ' - Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tslbl_Hotkeywindow, Me.tslbl_HotkeySequence}) - resources.ApplyResources(Me.StatusStrip1, "StatusStrip1") - Me.StatusStrip1.Name = "StatusStrip1" - ' - 'tslbl_Hotkeywindow - ' - Me.tslbl_Hotkeywindow.Image = Global.Global_Indexer.My.Resources.Resources.WindowsForm_817_12x - Me.tslbl_Hotkeywindow.Name = "tslbl_Hotkeywindow" - resources.ApplyResources(Me.tslbl_Hotkeywindow, "tslbl_Hotkeywindow") - ' - 'tslbl_HotkeySequence - ' - Me.tslbl_HotkeySequence.Image = Global.Global_Indexer.My.Resources.Resources.KeyDown_8461_12x - Me.tslbl_HotkeySequence.Name = "tslbl_HotkeySequence" - resources.ApplyResources(Me.tslbl_HotkeySequence, "tslbl_HotkeySequence") - ' - 'ListBox_FormTitles - ' - resources.ApplyResources(Me.ListBox_FormTitles, "ListBox_FormTitles") - Me.ListBox_FormTitles.FormattingEnabled = True - Me.ListBox_FormTitles.Name = "ListBox_FormTitles" - ' - 'GroupBoxMainWindow - ' - Me.GroupBoxMainWindow.BackColor = System.Drawing.SystemColors.GradientActiveCaption - Me.GroupBoxMainWindow.Controls.Add(Me.chkboxshowfilledControlsOnly) - Me.GroupBoxMainWindow.Controls.Add(Me.btnpnlStart_weiter) - Me.GroupBoxMainWindow.Controls.Add(Me.ListBox_FormTitles) - resources.ApplyResources(Me.GroupBoxMainWindow, "GroupBoxMainWindow") - Me.GroupBoxMainWindow.Name = "GroupBoxMainWindow" - Me.GroupBoxMainWindow.TabStop = False - ' - 'chkboxshowfilledControlsOnly - ' - resources.ApplyResources(Me.chkboxshowfilledControlsOnly, "chkboxshowfilledControlsOnly") - Me.chkboxshowfilledControlsOnly.ForeColor = System.Drawing.Color.DarkSlateGray - Me.chkboxshowfilledControlsOnly.Name = "chkboxshowfilledControlsOnly" - Me.chkboxshowfilledControlsOnly.UseVisualStyleBackColor = True - ' - 'btnpnlStart_weiter - ' - resources.ApplyResources(Me.btnpnlStart_weiter, "btnpnlStart_weiter") - Me.btnpnlStart_weiter.Image = Global.Global_Indexer.My.Resources.Resources.arrow_Forward_16xMD - Me.btnpnlStart_weiter.Name = "btnpnlStart_weiter" - Me.btnpnlStart_weiter.UseVisualStyleBackColor = True - ' - 'GroupBox2_Controls - ' - Me.GroupBox2_Controls.BackColor = System.Drawing.SystemColors.ControlLight - Me.GroupBox2_Controls.Controls.Add(Me.lblMatchadd) - Me.GroupBox2_Controls.Controls.Add(Me.btnadd_WindowMatch) - Me.GroupBox2_Controls.Controls.Add(Me.txtValueMatch) - Me.GroupBox2_Controls.Controls.Add(Me.Label13) - Me.GroupBox2_Controls.Controls.Add(Me.Label11) - Me.GroupBox2_Controls.Controls.Add(Me.Label12) - Me.GroupBox2_Controls.Controls.Add(Me.txtControl_Match) - Me.GroupBox2_Controls.Controls.Add(Me.Label10) - Me.GroupBox2_Controls.Controls.Add(Me.ListViewControls) - Me.GroupBox2_Controls.Controls.Add(Me.lblLinkadd) - Me.GroupBox2_Controls.Controls.Add(Me.btnadd_Pattern) - Me.GroupBox2_Controls.Controls.Add(Me.Label8) - Me.GroupBox2_Controls.Controls.Add(Me.Label7) - Me.GroupBox2_Controls.Controls.Add(Me.txtPattern) - Me.GroupBox2_Controls.Controls.Add(Me.Label1) - Me.GroupBox2_Controls.Controls.Add(Me.txtControl) - resources.ApplyResources(Me.GroupBox2_Controls, "GroupBox2_Controls") - Me.GroupBox2_Controls.Name = "GroupBox2_Controls" - Me.GroupBox2_Controls.TabStop = False - ' - 'lblMatchadd - ' - resources.ApplyResources(Me.lblMatchadd, "lblMatchadd") - Me.lblMatchadd.BackColor = System.Drawing.Color.Yellow - Me.lblMatchadd.Name = "lblMatchadd" - ' - 'btnadd_WindowMatch - ' - resources.ApplyResources(Me.btnadd_WindowMatch, "btnadd_WindowMatch") - Me.btnadd_WindowMatch.Image = Global.Global_Indexer.My.Resources.Resources.add - Me.btnadd_WindowMatch.Name = "btnadd_WindowMatch" - Me.btnadd_WindowMatch.UseVisualStyleBackColor = True - ' - 'txtValueMatch - ' - resources.ApplyResources(Me.txtValueMatch, "txtValueMatch") - Me.txtValueMatch.Name = "txtValueMatch" - Me.txtValueMatch.ReadOnly = True - ' - 'Label13 - ' - resources.ApplyResources(Me.Label13, "Label13") - Me.Label13.Name = "Label13" - ' - 'Label11 - ' - resources.ApplyResources(Me.Label11, "Label11") - Me.Label11.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.Label11.Name = "Label11" - ' - 'Label12 - ' - resources.ApplyResources(Me.Label12, "Label12") - Me.Label12.Name = "Label12" - ' - 'txtControl_Match - ' - resources.ApplyResources(Me.txtControl_Match, "txtControl_Match") - Me.txtControl_Match.ForeColor = System.Drawing.Color.Maroon - Me.txtControl_Match.Name = "txtControl_Match" - Me.txtControl_Match.ReadOnly = True - ' - 'Label10 - ' - resources.ApplyResources(Me.Label10, "Label10") - Me.Label10.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.Label10.Name = "Label10" - ' - 'ListViewControls - ' - resources.ApplyResources(Me.ListViewControls, "ListViewControls") - Me.ListViewControls.Columns.AddRange(New System.Windows.Forms.ColumnHeader() {Me.ColumnHeader3, Me.ControlID, Me.ControlValue}) - Me.ListViewControls.FullRowSelect = True - Me.ListViewControls.Name = "ListViewControls" - Me.ListViewControls.UseCompatibleStateImageBehavior = False - Me.ListViewControls.View = System.Windows.Forms.View.Details - ' - 'ColumnHeader3 - ' - resources.ApplyResources(Me.ColumnHeader3, "ColumnHeader3") - ' - 'ControlID - ' - resources.ApplyResources(Me.ControlID, "ControlID") - ' - 'ControlValue - ' - resources.ApplyResources(Me.ControlValue, "ControlValue") - ' - 'lblLinkadd - ' - resources.ApplyResources(Me.lblLinkadd, "lblLinkadd") - Me.lblLinkadd.BackColor = System.Drawing.Color.Yellow - Me.lblLinkadd.Name = "lblLinkadd" - ' - 'btnadd_Pattern - ' - resources.ApplyResources(Me.btnadd_Pattern, "btnadd_Pattern") - Me.btnadd_Pattern.Image = Global.Global_Indexer.My.Resources.Resources.add - Me.btnadd_Pattern.Name = "btnadd_Pattern" - Me.btnadd_Pattern.UseVisualStyleBackColor = True - ' - 'Label8 - ' - resources.ApplyResources(Me.Label8, "Label8") - Me.Label8.Name = "Label8" - ' - 'Label7 - ' - resources.ApplyResources(Me.Label7, "Label7") - Me.Label7.Name = "Label7" - ' - 'txtPattern - ' - resources.ApplyResources(Me.txtPattern, "txtPattern") - Me.txtPattern.Name = "txtPattern" - ' - 'Label1 - ' - resources.ApplyResources(Me.Label1, "Label1") - Me.Label1.Name = "Label1" - ' - 'txtControl - ' - resources.ApplyResources(Me.txtControl, "txtControl") - Me.txtControl.ForeColor = System.Drawing.Color.Maroon - Me.txtControl.Name = "txtControl" - Me.txtControl.ReadOnly = True - ' - 'GroupBox1 - ' - Me.GroupBox1.BackColor = System.Drawing.SystemColors.GradientInactiveCaption - Me.GroupBox1.Controls.Add(Me.btnnewProfile) - Me.GroupBox1.Controls.Add(Me.Button1) - Me.GroupBox1.Controls.Add(Me.lblSaveHotkey) - Me.GroupBox1.Controls.Add(Me.Label6) - Me.GroupBox1.Controls.Add(Me.Label5) - Me.GroupBox1.Controls.Add(Me.txtKey) - Me.GroupBox1.Controls.Add(Me.cmbFunktionstaste) - Me.GroupBox1.Controls.Add(Me.txtWDSearch) - Me.GroupBox1.Controls.Add(Me.cmbObjekttyp) - Me.GroupBox1.Controls.Add(Me.txtProfilname) - Me.GroupBox1.Controls.Add(Me.Label4) - Me.GroupBox1.Controls.Add(Me.Label3) - Me.GroupBox1.Controls.Add(Me.Label2) - Me.GroupBox1.Controls.Add(Me.btnGB1) - resources.ApplyResources(Me.GroupBox1, "GroupBox1") - Me.GroupBox1.Name = "GroupBox1" - Me.GroupBox1.TabStop = False - ' - 'btnnewProfile - ' - resources.ApplyResources(Me.btnnewProfile, "btnnewProfile") - Me.btnnewProfile.Image = Global.Global_Indexer.My.Resources.Resources.action_add_16xLG - Me.btnnewProfile.Name = "btnnewProfile" - Me.btnnewProfile.UseVisualStyleBackColor = True - ' - 'Button1 - ' - resources.ApplyResources(Me.Button1, "Button1") - Me.Button1.Name = "Button1" - Me.Button1.UseVisualStyleBackColor = True - ' - 'lblSaveHotkey - ' - resources.ApplyResources(Me.lblSaveHotkey, "lblSaveHotkey") - Me.lblSaveHotkey.BackColor = System.Drawing.Color.Yellow - Me.lblSaveHotkey.Name = "lblSaveHotkey" - ' - 'Label6 - ' - resources.ApplyResources(Me.Label6, "Label6") - Me.Label6.Name = "Label6" - ' - 'Label5 - ' - resources.ApplyResources(Me.Label5, "Label5") - Me.Label5.Name = "Label5" - ' - 'txtKey - ' - resources.ApplyResources(Me.txtKey, "txtKey") - Me.txtKey.Name = "txtKey" - ' - 'cmbFunktionstaste - ' - resources.ApplyResources(Me.cmbFunktionstaste, "cmbFunktionstaste") - Me.cmbFunktionstaste.FormattingEnabled = True - Me.cmbFunktionstaste.Items.AddRange(New Object() {resources.GetString("cmbFunktionstaste.Items"), resources.GetString("cmbFunktionstaste.Items1"), resources.GetString("cmbFunktionstaste.Items2"), resources.GetString("cmbFunktionstaste.Items3")}) - Me.cmbFunktionstaste.Name = "cmbFunktionstaste" - ' - 'txtWDSearch - ' - resources.ApplyResources(Me.txtWDSearch, "txtWDSearch") - Me.txtWDSearch.Name = "txtWDSearch" - ' - 'cmbObjekttyp - ' - resources.ApplyResources(Me.cmbObjekttyp, "cmbObjekttyp") - Me.cmbObjekttyp.FormattingEnabled = True - Me.cmbObjekttyp.Name = "cmbObjekttyp" - ' - 'txtProfilname - ' - resources.ApplyResources(Me.txtProfilname, "txtProfilname") - Me.txtProfilname.Name = "txtProfilname" - ' - 'Label4 - ' - resources.ApplyResources(Me.Label4, "Label4") - Me.Label4.Name = "Label4" - ' - 'Label3 - ' - resources.ApplyResources(Me.Label3, "Label3") - Me.Label3.Name = "Label3" - ' - 'Label2 - ' - resources.ApplyResources(Me.Label2, "Label2") - Me.Label2.Name = "Label2" - ' - 'btnGB1 - ' - resources.ApplyResources(Me.btnGB1, "btnGB1") - Me.btnGB1.Image = Global.Global_Indexer.My.Resources.Resources.arrow_Forward_16xMD - Me.btnGB1.Name = "btnGB1" - Me.btnGB1.UseVisualStyleBackColor = True - ' - 'MyDataset - ' - Me.MyDataset.DataSetName = "MyDataset" - Me.MyDataset.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema - ' - 'TBHOTKEY_PROFILEBindingSource - ' - Me.TBHOTKEY_PROFILEBindingSource.DataMember = "TBHOTKEY_PROFILE" - Me.TBHOTKEY_PROFILEBindingSource.DataSource = Me.MyDataset - ' - 'TBHOTKEY_PROFILETableAdapter - ' - Me.TBHOTKEY_PROFILETableAdapter.ClearBeforeFill = True - ' - 'TableAdapterManager - ' - Me.TableAdapterManager.BackupDataSetBeforeUpdate = False - Me.TableAdapterManager.TBDD_CONNECTIONTableAdapter = Nothing - Me.TableAdapterManager.TBDD_DOKUMENTARTTableAdapter = Nothing - Me.TableAdapterManager.TBDD_EINGANGSARTENTableAdapter = Nothing - Me.TableAdapterManager.TBDD_GROUPS_USERTableAdapter = Nothing - Me.TableAdapterManager.TBDD_INDEX_AUTOMTableAdapter = Nothing - Me.TableAdapterManager.TBDD_INDEX_MAN_POSTPROCESSINGTableAdapter = Nothing - Me.TableAdapterManager.TBDD_INDEX_MANTableAdapter = Nothing - Me.TableAdapterManager.TBDD_USERTableAdapter = Nothing - Me.TableAdapterManager.TBGI_CONFIGURATIONTableAdapter = Nothing - Me.TableAdapterManager.TBGI_OBJECTTYPE_EMAIL_INDEXTableAdapter = Nothing - Me.TableAdapterManager.TBHOTKEY_PATTERNS_REWORKTableAdapter = Nothing - Me.TableAdapterManager.TBHOTKEY_PATTERNSTableAdapter = Me.TBHOTKEY_PATTERNSTableAdapter - Me.TableAdapterManager.TBHOTKEY_PROFILETableAdapter = Me.TBHOTKEY_PROFILETableAdapter - Me.TableAdapterManager.TBHOTKEY_USER_PROFILETableAdapter = Nothing - Me.TableAdapterManager.TBHOTKEY_WINDOW_HOOKTableAdapter = Nothing - Me.TableAdapterManager.UpdateOrder = Global_Indexer.MyDatasetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete - ' - 'TBHOTKEY_PATTERNSTableAdapter - ' - Me.TBHOTKEY_PATTERNSTableAdapter.ClearBeforeFill = True - ' - 'TBHOTKEY_PATTERNSBindingSource - ' - Me.TBHOTKEY_PATTERNSBindingSource.DataMember = "TBHOTKEY_PATTERNS" - Me.TBHOTKEY_PATTERNSBindingSource.DataSource = Me.MyDataset - ' - 'OFDWindreamsuche - ' - resources.ApplyResources(Me.OFDWindreamsuche, "OFDWindreamsuche") - Me.OFDWindreamsuche.RestoreDirectory = True - ' - 'TabControlMain - ' - Me.TabControlMain.Controls.Add(Me.TabPageUebersicht) - Me.TabControlMain.Controls.Add(Me.TabPage_Designer) - Me.TabControlMain.Controls.Add(Me.TabPageTest) - resources.ApplyResources(Me.TabControlMain, "TabControlMain") - Me.TabControlMain.Name = "TabControlMain" - Me.TabControlMain.SelectedIndex = 0 - ' - 'TabPageUebersicht - ' - resources.ApplyResources(Me.TabPageUebersicht, "TabPageUebersicht") - Me.TabPageUebersicht.Controls.Add(Me.GridControl1) - Me.TabPageUebersicht.Controls.Add(Me.ToolStrip1) - Me.TabPageUebersicht.Controls.Add(Me.GroupBoxPatterns) - Me.TabPageUebersicht.Controls.Add(Me.TabControl1) - Me.TabPageUebersicht.Controls.Add(Me.btndelete) - Me.TabPageUebersicht.Controls.Add(Me.Label9) - Me.TabPageUebersicht.Name = "TabPageUebersicht" - Me.TabPageUebersicht.UseVisualStyleBackColor = True - ' - 'GridControl1 - ' - Me.GridControl1.DataSource = Me.TBHOTKEY_PROFILEBindingSource - resources.ApplyResources(Me.GridControl1, "GridControl1") - Me.GridControl1.MainView = Me.GridView1 - Me.GridControl1.Name = "GridControl1" - Me.GridControl1.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView1}) - ' - 'GridView1 - ' - Me.GridView1.Appearance.EvenRow.BackColor = CType(resources.GetObject("GridView1.Appearance.EvenRow.BackColor"), System.Drawing.Color) - Me.GridView1.Appearance.EvenRow.Options.UseBackColor = True - Me.GridView1.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colGUID, Me.colString}) - Me.GridView1.GridControl = Me.GridControl1 - Me.GridView1.Name = "GridView1" - Me.GridView1.OptionsBehavior.AllowAddRows = DevExpress.Utils.DefaultBoolean.[False] - Me.GridView1.OptionsBehavior.AllowDeleteRows = DevExpress.Utils.DefaultBoolean.[False] - Me.GridView1.OptionsBehavior.Editable = False - Me.GridView1.OptionsBehavior.ReadOnly = True - Me.GridView1.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False] - Me.GridView1.OptionsSelection.EnableAppearanceFocusedCell = False - Me.GridView1.OptionsSelection.EnableAppearanceFocusedRow = False - Me.GridView1.OptionsSelection.EnableAppearanceHideSelection = False - Me.GridView1.OptionsSelection.MultiSelect = True - Me.GridView1.OptionsSelection.MultiSelectMode = DevExpress.XtraGrid.Views.Grid.GridMultiSelectMode.CellSelect - Me.GridView1.OptionsView.ColumnAutoWidth = False - Me.GridView1.OptionsView.EnableAppearanceEvenRow = True - Me.GridView1.OptionsView.ShowAutoFilterRow = True - Me.GridView1.OptionsView.ShowDetailButtons = False - Me.GridView1.OptionsView.ShowGroupPanel = False - Me.GridView1.OptionsView.ShowHorizontalLines = DevExpress.Utils.DefaultBoolean.[True] - ' - 'colGUID - ' - resources.ApplyResources(Me.colGUID, "colGUID") - Me.colGUID.FieldName = "GUID" - Me.colGUID.Name = "colGUID" - ' - 'colString - ' - resources.ApplyResources(Me.colString, "colString") - Me.colString.FieldName = "String" - Me.colString.Name = "colString" - ' - 'ToolStrip1 - ' - resources.ApplyResources(Me.ToolStrip1, "ToolStrip1") - Me.ToolStrip1.Name = "ToolStrip1" - ' - 'GroupBoxPatterns - ' - Me.GroupBoxPatterns.Controls.Add(Label17) - Me.GroupBoxPatterns.Controls.Add(Me.ListBox1) - Me.GroupBoxPatterns.Controls.Add(Label15) - Me.GroupBoxPatterns.Controls.Add(Me.TabControlDetails) - Me.GroupBoxPatterns.Controls.Add(Me.ListBoxPatterns) - resources.ApplyResources(Me.GroupBoxPatterns, "GroupBoxPatterns") - Me.GroupBoxPatterns.Name = "GroupBoxPatterns" - Me.GroupBoxPatterns.TabStop = False - ' - 'ListBox1 - ' - Me.ListBox1.DataSource = Me.TBHOTKEY_WINDOW_HOOKBindingSource - Me.ListBox1.DisplayMember = "CONTROL_VALUE" - Me.ListBox1.FormattingEnabled = True - resources.ApplyResources(Me.ListBox1, "ListBox1") - Me.ListBox1.Name = "ListBox1" - Me.ListBox1.ValueMember = "GUID" - ' - 'TBHOTKEY_WINDOW_HOOKBindingSource - ' - Me.TBHOTKEY_WINDOW_HOOKBindingSource.DataMember = "TBHOTKEY_WINDOW_HOOK" - Me.TBHOTKEY_WINDOW_HOOKBindingSource.DataSource = Me.MyDataset - ' - 'TabControlDetails - ' - resources.ApplyResources(Me.TabControlDetails, "TabControlDetails") - Me.TabControlDetails.Controls.Add(Me.TabPage6) - Me.TabControlDetails.Controls.Add(Me.TabPage4) - Me.TabControlDetails.Controls.Add(Me.TabPage5) - Me.TabControlDetails.Name = "TabControlDetails" - Me.TabControlDetails.SelectedIndex = 0 - ' - 'TabPage6 - ' - Me.TabPage6.Controls.Add(Me.lblSavePAttern) - Me.TabPage6.Controls.Add(ADDED_WHOLabel1) - Me.TabPage6.Controls.Add(Me.ADDED_WHOTextBox1) - Me.TabPage6.Controls.Add(CHANGED_WHOLabel2) - Me.TabPage6.Controls.Add(Me.CHANGED_WHOTextBox2) - Me.TabPage6.Controls.Add(CHANGED_WHENLabel2) - Me.TabPage6.Controls.Add(Me.CHANGED_WHENTextBox2) - Me.TabPage6.Controls.Add(Me.ADDED_WHENTextBox1) - Me.TabPage6.Controls.Add(ADDED_WHENLabel1) - Me.TabPage6.Controls.Add(PATTERN_WDSEARCHLabel) - Me.TabPage6.Controls.Add(Me.PATTERN_WDSEARCHTextBox) - Me.TabPage6.Controls.Add(Me.SEQUENCE_NUMBERTextBox) - Me.TabPage6.Controls.Add(Me.Label14) - Me.TabPage6.Controls.Add(SEQUENCE_NUMBERLabel) - Me.TabPage6.Controls.Add(Me.BindingNavigator2) - Me.TabPage6.Controls.Add(GUIDLabel2) - Me.TabPage6.Controls.Add(Me.GUIDTextBox2) - resources.ApplyResources(Me.TabPage6, "TabPage6") - Me.TabPage6.Name = "TabPage6" - Me.TabPage6.UseVisualStyleBackColor = True - ' - 'lblSavePAttern - ' - resources.ApplyResources(Me.lblSavePAttern, "lblSavePAttern") - Me.lblSavePAttern.BackColor = System.Drawing.Color.Yellow - Me.lblSavePAttern.Name = "lblSavePAttern" - ' - 'ADDED_WHOTextBox1 - ' - Me.ADDED_WHOTextBox1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBHOTKEY_PATTERNSBindingSource, "ADDED_WHO", True)) - resources.ApplyResources(Me.ADDED_WHOTextBox1, "ADDED_WHOTextBox1") - Me.ADDED_WHOTextBox1.Name = "ADDED_WHOTextBox1" - Me.ADDED_WHOTextBox1.ReadOnly = True - Me.ADDED_WHOTextBox1.TabStop = False - ' - 'CHANGED_WHOTextBox2 - ' - Me.CHANGED_WHOTextBox2.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBHOTKEY_PATTERNSBindingSource, "CHANGED_WHO", True)) - resources.ApplyResources(Me.CHANGED_WHOTextBox2, "CHANGED_WHOTextBox2") - Me.CHANGED_WHOTextBox2.Name = "CHANGED_WHOTextBox2" - Me.CHANGED_WHOTextBox2.ReadOnly = True - Me.CHANGED_WHOTextBox2.TabStop = False - ' - 'CHANGED_WHENTextBox2 - ' - Me.CHANGED_WHENTextBox2.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBHOTKEY_PATTERNSBindingSource, "CHANGED_WHEN", True)) - resources.ApplyResources(Me.CHANGED_WHENTextBox2, "CHANGED_WHENTextBox2") - Me.CHANGED_WHENTextBox2.Name = "CHANGED_WHENTextBox2" - Me.CHANGED_WHENTextBox2.ReadOnly = True - Me.CHANGED_WHENTextBox2.TabStop = False - ' - 'ADDED_WHENTextBox1 - ' - Me.ADDED_WHENTextBox1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBHOTKEY_PATTERNSBindingSource, "ADDED_WHEN", True)) - resources.ApplyResources(Me.ADDED_WHENTextBox1, "ADDED_WHENTextBox1") - Me.ADDED_WHENTextBox1.Name = "ADDED_WHENTextBox1" - Me.ADDED_WHENTextBox1.ReadOnly = True - Me.ADDED_WHENTextBox1.TabStop = False - ' - 'PATTERN_WDSEARCHTextBox - ' - Me.PATTERN_WDSEARCHTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBHOTKEY_PATTERNSBindingSource, "PATTERN_WDSEARCH", True)) - resources.ApplyResources(Me.PATTERN_WDSEARCHTextBox, "PATTERN_WDSEARCHTextBox") - Me.PATTERN_WDSEARCHTextBox.Name = "PATTERN_WDSEARCHTextBox" - ' - 'SEQUENCE_NUMBERTextBox - ' - Me.SEQUENCE_NUMBERTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBHOTKEY_PATTERNSBindingSource, "SEQUENCE_NUMBER", True)) - resources.ApplyResources(Me.SEQUENCE_NUMBERTextBox, "SEQUENCE_NUMBERTextBox") - Me.SEQUENCE_NUMBERTextBox.Name = "SEQUENCE_NUMBERTextBox" - ' - 'Label14 - ' - resources.ApplyResources(Me.Label14, "Label14") - Me.Label14.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.Label14.Name = "Label14" - ' - 'BindingNavigator2 - ' - Me.BindingNavigator2.AddNewItem = Nothing - Me.BindingNavigator2.BindingSource = Me.TBHOTKEY_PATTERNSBindingSource - Me.BindingNavigator2.CountItem = Me.BindingNavigatorCountItem1 - Me.BindingNavigator2.DeleteItem = Me.BindingNavigatorDeleteItem1 - Me.BindingNavigator2.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BindingNavigatorMoveFirstItem1, Me.BindingNavigatorMovePreviousItem1, Me.BindingNavigatorSeparator3, Me.BindingNavigatorPositionItem1, Me.BindingNavigatorCountItem1, Me.BindingNavigatorSeparator4, Me.BindingNavigatorMoveNextItem1, Me.BindingNavigatorMoveLastItem1, Me.BindingNavigatorSeparator5, Me.BindingNavigatorDeleteItem1, Me.tsbtnsave_pattern}) - resources.ApplyResources(Me.BindingNavigator2, "BindingNavigator2") - Me.BindingNavigator2.MoveFirstItem = Me.BindingNavigatorMoveFirstItem1 - Me.BindingNavigator2.MoveLastItem = Me.BindingNavigatorMoveLastItem1 - Me.BindingNavigator2.MoveNextItem = Me.BindingNavigatorMoveNextItem1 - Me.BindingNavigator2.MovePreviousItem = Me.BindingNavigatorMovePreviousItem1 - Me.BindingNavigator2.Name = "BindingNavigator2" - Me.BindingNavigator2.PositionItem = Me.BindingNavigatorPositionItem1 - ' - 'BindingNavigatorCountItem1 - ' - Me.BindingNavigatorCountItem1.Name = "BindingNavigatorCountItem1" - resources.ApplyResources(Me.BindingNavigatorCountItem1, "BindingNavigatorCountItem1") - ' - 'BindingNavigatorDeleteItem1 - ' - Me.BindingNavigatorDeleteItem1.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image - resources.ApplyResources(Me.BindingNavigatorDeleteItem1, "BindingNavigatorDeleteItem1") - Me.BindingNavigatorDeleteItem1.Name = "BindingNavigatorDeleteItem1" - ' - 'BindingNavigatorMoveFirstItem1 - ' - Me.BindingNavigatorMoveFirstItem1.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image - resources.ApplyResources(Me.BindingNavigatorMoveFirstItem1, "BindingNavigatorMoveFirstItem1") - Me.BindingNavigatorMoveFirstItem1.Name = "BindingNavigatorMoveFirstItem1" - ' - 'BindingNavigatorMovePreviousItem1 - ' - Me.BindingNavigatorMovePreviousItem1.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image - resources.ApplyResources(Me.BindingNavigatorMovePreviousItem1, "BindingNavigatorMovePreviousItem1") - Me.BindingNavigatorMovePreviousItem1.Name = "BindingNavigatorMovePreviousItem1" - ' - 'BindingNavigatorSeparator3 - ' - Me.BindingNavigatorSeparator3.Name = "BindingNavigatorSeparator3" - resources.ApplyResources(Me.BindingNavigatorSeparator3, "BindingNavigatorSeparator3") - ' - 'BindingNavigatorPositionItem1 - ' - resources.ApplyResources(Me.BindingNavigatorPositionItem1, "BindingNavigatorPositionItem1") - Me.BindingNavigatorPositionItem1.Name = "BindingNavigatorPositionItem1" - ' - 'BindingNavigatorSeparator4 - ' - Me.BindingNavigatorSeparator4.Name = "BindingNavigatorSeparator4" - resources.ApplyResources(Me.BindingNavigatorSeparator4, "BindingNavigatorSeparator4") - ' - 'BindingNavigatorMoveNextItem1 - ' - Me.BindingNavigatorMoveNextItem1.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image - resources.ApplyResources(Me.BindingNavigatorMoveNextItem1, "BindingNavigatorMoveNextItem1") - Me.BindingNavigatorMoveNextItem1.Name = "BindingNavigatorMoveNextItem1" - ' - 'BindingNavigatorMoveLastItem1 - ' - Me.BindingNavigatorMoveLastItem1.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image - resources.ApplyResources(Me.BindingNavigatorMoveLastItem1, "BindingNavigatorMoveLastItem1") - Me.BindingNavigatorMoveLastItem1.Name = "BindingNavigatorMoveLastItem1" - ' - 'BindingNavigatorSeparator5 - ' - Me.BindingNavigatorSeparator5.Name = "BindingNavigatorSeparator5" - resources.ApplyResources(Me.BindingNavigatorSeparator5, "BindingNavigatorSeparator5") - ' - 'tsbtnsave_pattern - ' - Me.tsbtnsave_pattern.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image - Me.tsbtnsave_pattern.Image = Global.Global_Indexer.My.Resources.Resources.save_16xLG - resources.ApplyResources(Me.tsbtnsave_pattern, "tsbtnsave_pattern") - Me.tsbtnsave_pattern.Name = "tsbtnsave_pattern" - ' - 'GUIDTextBox2 - ' - Me.GUIDTextBox2.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBHOTKEY_PATTERNSBindingSource, "GUID", True)) - resources.ApplyResources(Me.GUIDTextBox2, "GUIDTextBox2") - Me.GUIDTextBox2.Name = "GUIDTextBox2" - Me.GUIDTextBox2.ReadOnly = True - Me.GUIDTextBox2.TabStop = False - ' - 'TabPage4 - ' - resources.ApplyResources(Me.TabPage4, "TabPage4") - Me.TabPage4.Controls.Add(Me.lblHinweisRework1) - Me.TabPage4.Controls.Add(Me.CHANGED_WHENTextBox1) - Me.TabPage4.Controls.Add(Me.Text2Label) - Me.TabPage4.Controls.Add(Me.Text1Label) - Me.TabPage4.Controls.Add(Me.Function2Label) - Me.TabPage4.Controls.Add(Me.Function1Label) - Me.TabPage4.Controls.Add(Me.lblsavePatternsRework) - Me.TabPage4.Controls.Add(CHANGED_WHENLabel1) - Me.TabPage4.Controls.Add(CHANGED_WHOLabel1) - Me.TabPage4.Controls.Add(Me.CHANGED_WHOTextBox1) - Me.TabPage4.Controls.Add(ADDED_WHENLabel) - Me.TabPage4.Controls.Add(Me.ADDED_WHENTextBox) - Me.TabPage4.Controls.Add(ADDED_WHOLabel) - Me.TabPage4.Controls.Add(Me.ADDED_WHOTextBox) - Me.TabPage4.Controls.Add(SEQUENCELabel) - Me.TabPage4.Controls.Add(Me.SEQUENCETextBox) - Me.TabPage4.Controls.Add(Me.TEXT2TextBox) - Me.TabPage4.Controls.Add(Me.TEXT1TextBox) - Me.TabPage4.Controls.Add(Me.FUNCTION2TextBox) - Me.TabPage4.Controls.Add(Me.FUNCTION1TextBox) - Me.TabPage4.Controls.Add(TYPELabel) - Me.TabPage4.Controls.Add(Me.TYPEComboBox) - Me.TabPage4.Controls.Add(GUIDLabel1) - Me.TabPage4.Controls.Add(Me.GUIDTextBox1) - Me.TabPage4.Controls.Add(Me.BindingNavigator1) - Me.TabPage4.Controls.Add(Me.btnRegexTest) - Me.TabPage4.Name = "TabPage4" - Me.TabPage4.UseVisualStyleBackColor = True - ' - 'lblHinweisRework1 - ' - resources.ApplyResources(Me.lblHinweisRework1, "lblHinweisRework1") - Me.lblHinweisRework1.Name = "lblHinweisRework1" - ' - 'CHANGED_WHENTextBox1 - ' - Me.CHANGED_WHENTextBox1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBHOTKEY_PATTERNS_REWORKBindingSource, "CHANGED_WHEN", True)) - resources.ApplyResources(Me.CHANGED_WHENTextBox1, "CHANGED_WHENTextBox1") - Me.CHANGED_WHENTextBox1.Name = "CHANGED_WHENTextBox1" - Me.CHANGED_WHENTextBox1.ReadOnly = True - ' - 'TBHOTKEY_PATTERNS_REWORKBindingSource - ' - Me.TBHOTKEY_PATTERNS_REWORKBindingSource.DataMember = "TBHOTKEY_PATTERNS_REWORK" - Me.TBHOTKEY_PATTERNS_REWORKBindingSource.DataSource = Me.MyDataset - ' - 'Text2Label - ' - resources.ApplyResources(Me.Text2Label, "Text2Label") - Me.Text2Label.Name = "Text2Label" - ' - 'Text1Label - ' - resources.ApplyResources(Me.Text1Label, "Text1Label") - Me.Text1Label.Name = "Text1Label" - ' - 'Function2Label - ' - resources.ApplyResources(Me.Function2Label, "Function2Label") - Me.Function2Label.Name = "Function2Label" - ' - 'Function1Label - ' - resources.ApplyResources(Me.Function1Label, "Function1Label") - Me.Function1Label.Name = "Function1Label" - ' - 'lblsavePatternsRework - ' - resources.ApplyResources(Me.lblsavePatternsRework, "lblsavePatternsRework") - Me.lblsavePatternsRework.BackColor = System.Drawing.Color.Yellow - Me.lblsavePatternsRework.Name = "lblsavePatternsRework" - ' - 'CHANGED_WHOTextBox1 - ' - Me.CHANGED_WHOTextBox1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBHOTKEY_PATTERNS_REWORKBindingSource, "CHANGED_WHO", True)) - resources.ApplyResources(Me.CHANGED_WHOTextBox1, "CHANGED_WHOTextBox1") - Me.CHANGED_WHOTextBox1.Name = "CHANGED_WHOTextBox1" - Me.CHANGED_WHOTextBox1.ReadOnly = True - ' - 'ADDED_WHENTextBox - ' - Me.ADDED_WHENTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBHOTKEY_PATTERNS_REWORKBindingSource, "ADDED_WHEN", True)) - resources.ApplyResources(Me.ADDED_WHENTextBox, "ADDED_WHENTextBox") - Me.ADDED_WHENTextBox.Name = "ADDED_WHENTextBox" - Me.ADDED_WHENTextBox.ReadOnly = True - ' - 'ADDED_WHOTextBox - ' - Me.ADDED_WHOTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBHOTKEY_PATTERNS_REWORKBindingSource, "ADDED_WHO", True)) - resources.ApplyResources(Me.ADDED_WHOTextBox, "ADDED_WHOTextBox") - Me.ADDED_WHOTextBox.Name = "ADDED_WHOTextBox" - Me.ADDED_WHOTextBox.ReadOnly = True - ' - 'SEQUENCETextBox - ' - Me.SEQUENCETextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBHOTKEY_PATTERNS_REWORKBindingSource, "SEQUENCE", True)) - resources.ApplyResources(Me.SEQUENCETextBox, "SEQUENCETextBox") - Me.SEQUENCETextBox.Name = "SEQUENCETextBox" - ' - 'TEXT2TextBox - ' - Me.TEXT2TextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBHOTKEY_PATTERNS_REWORKBindingSource, "TEXT2", True)) - resources.ApplyResources(Me.TEXT2TextBox, "TEXT2TextBox") - Me.TEXT2TextBox.Name = "TEXT2TextBox" - ' - 'TEXT1TextBox - ' - Me.TEXT1TextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBHOTKEY_PATTERNS_REWORKBindingSource, "TEXT1", True)) - resources.ApplyResources(Me.TEXT1TextBox, "TEXT1TextBox") - Me.TEXT1TextBox.Name = "TEXT1TextBox" - ' - 'FUNCTION2TextBox - ' - Me.FUNCTION2TextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBHOTKEY_PATTERNS_REWORKBindingSource, "FUNCTION2", True)) - resources.ApplyResources(Me.FUNCTION2TextBox, "FUNCTION2TextBox") - Me.FUNCTION2TextBox.Name = "FUNCTION2TextBox" - ' - 'FUNCTION1TextBox - ' - Me.FUNCTION1TextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBHOTKEY_PATTERNS_REWORKBindingSource, "FUNCTION1", True)) - resources.ApplyResources(Me.FUNCTION1TextBox, "FUNCTION1TextBox") - Me.FUNCTION1TextBox.Name = "FUNCTION1TextBox" - ' - 'TYPEComboBox - ' - Me.TYPEComboBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBHOTKEY_PATTERNS_REWORKBindingSource, "TYPE", True)) - Me.TYPEComboBox.FormattingEnabled = True - Me.TYPEComboBox.Items.AddRange(New Object() {resources.GetString("TYPEComboBox.Items"), resources.GetString("TYPEComboBox.Items1"), resources.GetString("TYPEComboBox.Items2")}) - resources.ApplyResources(Me.TYPEComboBox, "TYPEComboBox") - Me.TYPEComboBox.Name = "TYPEComboBox" - ' - 'GUIDTextBox1 - ' - Me.GUIDTextBox1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBHOTKEY_PATTERNS_REWORKBindingSource, "GUID", True)) - resources.ApplyResources(Me.GUIDTextBox1, "GUIDTextBox1") - Me.GUIDTextBox1.Name = "GUIDTextBox1" - Me.GUIDTextBox1.ReadOnly = True - ' - 'BindingNavigator1 - ' - Me.BindingNavigator1.AddNewItem = Me.BindingNavigatorAddNewItem - Me.BindingNavigator1.BindingSource = Me.TBHOTKEY_PATTERNS_REWORKBindingSource - Me.BindingNavigator1.CountItem = Me.BindingNavigatorCountItem - Me.BindingNavigator1.DeleteItem = Me.BindingNavigatorDeleteItem - Me.BindingNavigator1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BindingNavigatorMoveFirstItem, Me.BindingNavigatorMovePreviousItem, Me.BindingNavigatorSeparator, Me.BindingNavigatorPositionItem, Me.BindingNavigatorCountItem, Me.BindingNavigatorSeparator1, Me.BindingNavigatorMoveNextItem, Me.BindingNavigatorMoveLastItem, Me.BindingNavigatorSeparator2, Me.BindingNavigatorAddNewItem, Me.BindingNavigatorDeleteItem, Me.ToolStripButton1}) - resources.ApplyResources(Me.BindingNavigator1, "BindingNavigator1") - Me.BindingNavigator1.MoveFirstItem = Me.BindingNavigatorMoveFirstItem - Me.BindingNavigator1.MoveLastItem = Me.BindingNavigatorMoveLastItem - Me.BindingNavigator1.MoveNextItem = Me.BindingNavigatorMoveNextItem - Me.BindingNavigator1.MovePreviousItem = Me.BindingNavigatorMovePreviousItem - Me.BindingNavigator1.Name = "BindingNavigator1" - Me.BindingNavigator1.PositionItem = Me.BindingNavigatorPositionItem - ' - 'BindingNavigatorAddNewItem - ' - Me.BindingNavigatorAddNewItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image - resources.ApplyResources(Me.BindingNavigatorAddNewItem, "BindingNavigatorAddNewItem") - Me.BindingNavigatorAddNewItem.Name = "BindingNavigatorAddNewItem" - ' - 'BindingNavigatorCountItem - ' - Me.BindingNavigatorCountItem.Name = "BindingNavigatorCountItem" - resources.ApplyResources(Me.BindingNavigatorCountItem, "BindingNavigatorCountItem") - ' - 'BindingNavigatorDeleteItem - ' - Me.BindingNavigatorDeleteItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image - resources.ApplyResources(Me.BindingNavigatorDeleteItem, "BindingNavigatorDeleteItem") - Me.BindingNavigatorDeleteItem.Name = "BindingNavigatorDeleteItem" - ' - 'BindingNavigatorMoveFirstItem - ' - Me.BindingNavigatorMoveFirstItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image - resources.ApplyResources(Me.BindingNavigatorMoveFirstItem, "BindingNavigatorMoveFirstItem") - Me.BindingNavigatorMoveFirstItem.Name = "BindingNavigatorMoveFirstItem" - ' - 'BindingNavigatorMovePreviousItem - ' - Me.BindingNavigatorMovePreviousItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image - resources.ApplyResources(Me.BindingNavigatorMovePreviousItem, "BindingNavigatorMovePreviousItem") - Me.BindingNavigatorMovePreviousItem.Name = "BindingNavigatorMovePreviousItem" - ' - 'BindingNavigatorSeparator - ' - Me.BindingNavigatorSeparator.Name = "BindingNavigatorSeparator" - resources.ApplyResources(Me.BindingNavigatorSeparator, "BindingNavigatorSeparator") - ' - 'BindingNavigatorPositionItem - ' - resources.ApplyResources(Me.BindingNavigatorPositionItem, "BindingNavigatorPositionItem") - Me.BindingNavigatorPositionItem.Name = "BindingNavigatorPositionItem" - ' - 'BindingNavigatorSeparator1 - ' - Me.BindingNavigatorSeparator1.Name = "BindingNavigatorSeparator1" - resources.ApplyResources(Me.BindingNavigatorSeparator1, "BindingNavigatorSeparator1") - ' - 'BindingNavigatorMoveNextItem - ' - Me.BindingNavigatorMoveNextItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image - resources.ApplyResources(Me.BindingNavigatorMoveNextItem, "BindingNavigatorMoveNextItem") - Me.BindingNavigatorMoveNextItem.Name = "BindingNavigatorMoveNextItem" - ' - 'BindingNavigatorMoveLastItem - ' - Me.BindingNavigatorMoveLastItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image - resources.ApplyResources(Me.BindingNavigatorMoveLastItem, "BindingNavigatorMoveLastItem") - Me.BindingNavigatorMoveLastItem.Name = "BindingNavigatorMoveLastItem" - ' - 'BindingNavigatorSeparator2 - ' - Me.BindingNavigatorSeparator2.Name = "BindingNavigatorSeparator2" - resources.ApplyResources(Me.BindingNavigatorSeparator2, "BindingNavigatorSeparator2") - ' - 'ToolStripButton1 - ' - Me.ToolStripButton1.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image - Me.ToolStripButton1.Image = Global.Global_Indexer.My.Resources.Resources.save_16xLG - resources.ApplyResources(Me.ToolStripButton1, "ToolStripButton1") - Me.ToolStripButton1.Name = "ToolStripButton1" - ' - 'btnRegexTest - ' - Me.btnRegexTest.Image = Global.Global_Indexer.My.Resources.Resources.bell_go - resources.ApplyResources(Me.btnRegexTest, "btnRegexTest") - Me.btnRegexTest.Name = "btnRegexTest" - Me.btnRegexTest.UseVisualStyleBackColor = True - ' - 'TabPage5 - ' - Me.TabPage5.Controls.Add(ADDED_WHENLabel2) - Me.TabPage5.Controls.Add(Me.ADDED_WHENTextBox2) - Me.TabPage5.Controls.Add(ADDED_WHOLabel2) - Me.TabPage5.Controls.Add(Me.ADDED_WHOTextBox2) - Me.TabPage5.Controls.Add(CONTROL_VALUELabel) - Me.TabPage5.Controls.Add(Me.CONTROL_VALUETextBox) - Me.TabPage5.Controls.Add(SEQUENCE_NUMBERLabel1) - Me.TabPage5.Controls.Add(Me.SEQUENCE_NUMBERTextBox1) - Me.TabPage5.Controls.Add(GUIDLabel3) - Me.TabPage5.Controls.Add(Me.GUIDTextBox3) - Me.TabPage5.Controls.Add(Me.Label16) - Me.TabPage5.Controls.Add(Me.BindingNavigator3) - resources.ApplyResources(Me.TabPage5, "TabPage5") - Me.TabPage5.Name = "TabPage5" - Me.TabPage5.UseVisualStyleBackColor = True - ' - 'ADDED_WHENTextBox2 - ' - Me.ADDED_WHENTextBox2.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBHOTKEY_WINDOW_HOOKBindingSource, "ADDED_WHEN", True)) - resources.ApplyResources(Me.ADDED_WHENTextBox2, "ADDED_WHENTextBox2") - Me.ADDED_WHENTextBox2.Name = "ADDED_WHENTextBox2" - Me.ADDED_WHENTextBox2.ReadOnly = True - Me.ADDED_WHENTextBox2.TabStop = False - ' - 'ADDED_WHOTextBox2 - ' - Me.ADDED_WHOTextBox2.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBHOTKEY_WINDOW_HOOKBindingSource, "ADDED_WHO", True)) - resources.ApplyResources(Me.ADDED_WHOTextBox2, "ADDED_WHOTextBox2") - Me.ADDED_WHOTextBox2.Name = "ADDED_WHOTextBox2" - Me.ADDED_WHOTextBox2.ReadOnly = True - Me.ADDED_WHOTextBox2.TabStop = False - ' - 'CONTROL_VALUETextBox - ' - Me.CONTROL_VALUETextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBHOTKEY_WINDOW_HOOKBindingSource, "CONTROL_VALUE", True)) - resources.ApplyResources(Me.CONTROL_VALUETextBox, "CONTROL_VALUETextBox") - Me.CONTROL_VALUETextBox.Name = "CONTROL_VALUETextBox" - ' - 'SEQUENCE_NUMBERTextBox1 - ' - Me.SEQUENCE_NUMBERTextBox1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBHOTKEY_WINDOW_HOOKBindingSource, "SEQUENCE_NUMBER", True)) - resources.ApplyResources(Me.SEQUENCE_NUMBERTextBox1, "SEQUENCE_NUMBERTextBox1") - Me.SEQUENCE_NUMBERTextBox1.Name = "SEQUENCE_NUMBERTextBox1" - ' - 'GUIDTextBox3 - ' - Me.GUIDTextBox3.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBHOTKEY_WINDOW_HOOKBindingSource, "GUID", True)) - resources.ApplyResources(Me.GUIDTextBox3, "GUIDTextBox3") - Me.GUIDTextBox3.Name = "GUIDTextBox3" - Me.GUIDTextBox3.ReadOnly = True - Me.GUIDTextBox3.TabStop = False - ' - 'Label16 - ' - resources.ApplyResources(Me.Label16, "Label16") - Me.Label16.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.Label16.Name = "Label16" - ' - 'BindingNavigator3 - ' - Me.BindingNavigator3.AddNewItem = Nothing - Me.BindingNavigator3.BindingSource = Me.TBHOTKEY_WINDOW_HOOKBindingSource - Me.BindingNavigator3.CountItem = Me.ToolStripLabel1 - Me.BindingNavigator3.CountItemFormat = "von {0} Control-Matches" - Me.BindingNavigator3.DeleteItem = Me.ToolStripButton2 - Me.BindingNavigator3.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripButton3, Me.ToolStripButton4, Me.ToolStripSeparator1, Me.ToolStripTextBox1, Me.ToolStripLabel1, Me.ToolStripSeparator2, Me.ToolStripButton5, Me.ToolStripButton6, Me.ToolStripSeparator3, Me.ToolStripButton2}) - resources.ApplyResources(Me.BindingNavigator3, "BindingNavigator3") - Me.BindingNavigator3.MoveFirstItem = Me.ToolStripButton3 - Me.BindingNavigator3.MoveLastItem = Me.ToolStripButton6 - Me.BindingNavigator3.MoveNextItem = Me.ToolStripButton5 - Me.BindingNavigator3.MovePreviousItem = Me.ToolStripButton4 - Me.BindingNavigator3.Name = "BindingNavigator3" - Me.BindingNavigator3.PositionItem = Me.ToolStripTextBox1 - ' - 'ToolStripLabel1 - ' - Me.ToolStripLabel1.Name = "ToolStripLabel1" - resources.ApplyResources(Me.ToolStripLabel1, "ToolStripLabel1") - ' - 'ToolStripButton2 - ' - Me.ToolStripButton2.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image - resources.ApplyResources(Me.ToolStripButton2, "ToolStripButton2") - Me.ToolStripButton2.Name = "ToolStripButton2" - ' - 'ToolStripButton3 - ' - Me.ToolStripButton3.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image - resources.ApplyResources(Me.ToolStripButton3, "ToolStripButton3") - Me.ToolStripButton3.Name = "ToolStripButton3" - ' - 'ToolStripButton4 - ' - Me.ToolStripButton4.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image - resources.ApplyResources(Me.ToolStripButton4, "ToolStripButton4") - Me.ToolStripButton4.Name = "ToolStripButton4" - ' - 'ToolStripSeparator1 - ' - Me.ToolStripSeparator1.Name = "ToolStripSeparator1" - resources.ApplyResources(Me.ToolStripSeparator1, "ToolStripSeparator1") - ' - 'ToolStripTextBox1 - ' - resources.ApplyResources(Me.ToolStripTextBox1, "ToolStripTextBox1") - Me.ToolStripTextBox1.Name = "ToolStripTextBox1" - ' - 'ToolStripSeparator2 - ' - Me.ToolStripSeparator2.Name = "ToolStripSeparator2" - resources.ApplyResources(Me.ToolStripSeparator2, "ToolStripSeparator2") - ' - 'ToolStripButton5 - ' - Me.ToolStripButton5.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image - resources.ApplyResources(Me.ToolStripButton5, "ToolStripButton5") - Me.ToolStripButton5.Name = "ToolStripButton5" - ' - 'ToolStripButton6 - ' - Me.ToolStripButton6.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image - resources.ApplyResources(Me.ToolStripButton6, "ToolStripButton6") - Me.ToolStripButton6.Name = "ToolStripButton6" - ' - 'ToolStripSeparator3 - ' - Me.ToolStripSeparator3.Name = "ToolStripSeparator3" - resources.ApplyResources(Me.ToolStripSeparator3, "ToolStripSeparator3") - ' - 'ListBoxPatterns - ' - Me.ListBoxPatterns.DataSource = Me.TBHOTKEY_PATTERNSBindingSource - Me.ListBoxPatterns.DisplayMember = "PATTERN_WDSEARCH" - Me.ListBoxPatterns.FormattingEnabled = True - resources.ApplyResources(Me.ListBoxPatterns, "ListBoxPatterns") - Me.ListBoxPatterns.Name = "ListBoxPatterns" - Me.ListBoxPatterns.ValueMember = "GUID" - ' - 'TabControl1 - ' - Me.TabControl1.Controls.Add(Me.TabPage3) - Me.TabControl1.Controls.Add(Me.TabPage1) - Me.TabControl1.Controls.Add(Me.TabPage2) - resources.ApplyResources(Me.TabControl1, "TabControl1") - Me.TabControl1.Name = "TabControl1" - Me.TabControl1.SelectedIndex = 0 - ' - 'TabPage3 - ' - resources.ApplyResources(Me.TabPage3, "TabPage3") - Me.TabPage3.Controls.Add(WINDOW_NAMELabel) - Me.TabPage3.Controls.Add(Me.WINDOW_NAMETextBox) - Me.TabPage3.Controls.Add(Me.Button2) - Me.TabPage3.Controls.Add(Me.lblSave) - Me.TabPage3.Controls.Add(Me.btnsave) - Me.TabPage3.Controls.Add(CHANGED_WHENLabel) - Me.TabPage3.Controls.Add(Me.CHANGED_WHENTextBox) - Me.TabPage3.Controls.Add(CHANGED_WHOLabel) - Me.TabPage3.Controls.Add(Me.CHANGED_WHOTextBox) - Me.TabPage3.Controls.Add(HOTKEY2Label) - Me.TabPage3.Controls.Add(Me.HOTKEY2TextBox) - Me.TabPage3.Controls.Add(HOTKEY1Label) - Me.TabPage3.Controls.Add(Me.HOTKEY1ComboBox) - Me.TabPage3.Controls.Add(WD_SEARCHLabel) - Me.TabPage3.Controls.Add(Me.WD_SEARCHTextBox) - Me.TabPage3.Controls.Add(NAMELabel) - Me.TabPage3.Controls.Add(Me.NAMETextBox) - Me.TabPage3.Controls.Add(GUIDLabel) - Me.TabPage3.Controls.Add(Me.GUIDTextBox) - Me.TabPage3.Name = "TabPage3" - Me.TabPage3.UseVisualStyleBackColor = True - ' - 'WINDOW_NAMETextBox - ' - Me.WINDOW_NAMETextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBHOTKEY_PROFILEBindingSource, "WINDOW_NAME", True)) - resources.ApplyResources(Me.WINDOW_NAMETextBox, "WINDOW_NAMETextBox") - Me.WINDOW_NAMETextBox.ForeColor = System.Drawing.Color.Firebrick - Me.WINDOW_NAMETextBox.Name = "WINDOW_NAMETextBox" - Me.WINDOW_NAMETextBox.TabStop = False - ' - 'Button2 - ' - resources.ApplyResources(Me.Button2, "Button2") - Me.Button2.Name = "Button2" - Me.Button2.UseVisualStyleBackColor = True - ' - 'lblSave - ' - resources.ApplyResources(Me.lblSave, "lblSave") - Me.lblSave.BackColor = System.Drawing.Color.Yellow - Me.lblSave.Name = "lblSave" - ' - 'btnsave - ' - Me.btnsave.Image = Global.Global_Indexer.My.Resources.Resources.save_16xLG - resources.ApplyResources(Me.btnsave, "btnsave") - Me.btnsave.Name = "btnsave" - Me.btnsave.UseVisualStyleBackColor = True - ' - 'CHANGED_WHENTextBox - ' - Me.CHANGED_WHENTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBHOTKEY_PROFILEBindingSource, "CHANGED_WHEN", True)) - resources.ApplyResources(Me.CHANGED_WHENTextBox, "CHANGED_WHENTextBox") - Me.CHANGED_WHENTextBox.Name = "CHANGED_WHENTextBox" - Me.CHANGED_WHENTextBox.ReadOnly = True - ' - 'CHANGED_WHOTextBox - ' - Me.CHANGED_WHOTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBHOTKEY_PROFILEBindingSource, "CHANGED_WHO", True)) - resources.ApplyResources(Me.CHANGED_WHOTextBox, "CHANGED_WHOTextBox") - Me.CHANGED_WHOTextBox.Name = "CHANGED_WHOTextBox" - Me.CHANGED_WHOTextBox.ReadOnly = True - ' - 'HOTKEY2TextBox - ' - Me.HOTKEY2TextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBHOTKEY_PROFILEBindingSource, "HOTKEY2", True)) - resources.ApplyResources(Me.HOTKEY2TextBox, "HOTKEY2TextBox") - Me.HOTKEY2TextBox.Name = "HOTKEY2TextBox" - ' - 'HOTKEY1ComboBox - ' - Me.HOTKEY1ComboBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBHOTKEY_PROFILEBindingSource, "HOTKEY1", True)) - Me.HOTKEY1ComboBox.FormattingEnabled = True - Me.HOTKEY1ComboBox.Items.AddRange(New Object() {resources.GetString("HOTKEY1ComboBox.Items"), resources.GetString("HOTKEY1ComboBox.Items1"), resources.GetString("HOTKEY1ComboBox.Items2"), resources.GetString("HOTKEY1ComboBox.Items3")}) - resources.ApplyResources(Me.HOTKEY1ComboBox, "HOTKEY1ComboBox") - Me.HOTKEY1ComboBox.Name = "HOTKEY1ComboBox" - ' - 'WD_SEARCHTextBox - ' - Me.WD_SEARCHTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBHOTKEY_PROFILEBindingSource, "WD_SEARCH", True)) - resources.ApplyResources(Me.WD_SEARCHTextBox, "WD_SEARCHTextBox") - Me.WD_SEARCHTextBox.Name = "WD_SEARCHTextBox" - ' - 'NAMETextBox - ' - Me.NAMETextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBHOTKEY_PROFILEBindingSource, "NAME", True)) - resources.ApplyResources(Me.NAMETextBox, "NAMETextBox") - Me.NAMETextBox.Name = "NAMETextBox" - ' - 'GUIDTextBox - ' - Me.GUIDTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBHOTKEY_PROFILEBindingSource, "GUID", True)) - resources.ApplyResources(Me.GUIDTextBox, "GUIDTextBox") - Me.GUIDTextBox.Name = "GUIDTextBox" - Me.GUIDTextBox.ReadOnly = True - ' - 'TabPage1 - ' - Me.TabPage1.Controls.Add(Me.chklbUser) - Me.TabPage1.Controls.Add(Me.btnUserAdd_Profile) - resources.ApplyResources(Me.TabPage1, "TabPage1") - Me.TabPage1.Name = "TabPage1" - Me.TabPage1.UseVisualStyleBackColor = True - ' - 'chklbUser - ' - resources.ApplyResources(Me.chklbUser, "chklbUser") - Me.chklbUser.ContextMenuStrip = Me.ContextMenuStrip1 - Me.chklbUser.FormattingEnabled = True - Me.chklbUser.Name = "chklbUser" - ' - 'ContextMenuStrip1 - ' - Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.AlleAuswählenToolStripMenuItem, Me.KeineAuswählenToolStripMenuItem}) - Me.ContextMenuStrip1.Name = "ContextMenuStrip1" - resources.ApplyResources(Me.ContextMenuStrip1, "ContextMenuStrip1") - ' - 'AlleAuswählenToolStripMenuItem - ' - Me.AlleAuswählenToolStripMenuItem.Name = "AlleAuswählenToolStripMenuItem" - resources.ApplyResources(Me.AlleAuswählenToolStripMenuItem, "AlleAuswählenToolStripMenuItem") - ' - 'KeineAuswählenToolStripMenuItem - ' - Me.KeineAuswählenToolStripMenuItem.Name = "KeineAuswählenToolStripMenuItem" - resources.ApplyResources(Me.KeineAuswählenToolStripMenuItem, "KeineAuswählenToolStripMenuItem") - ' - 'btnUserAdd_Profile - ' - resources.ApplyResources(Me.btnUserAdd_Profile, "btnUserAdd_Profile") - Me.btnUserAdd_Profile.Image = Global.Global_Indexer.My.Resources.Resources.add - Me.btnUserAdd_Profile.Name = "btnUserAdd_Profile" - Me.btnUserAdd_Profile.UseVisualStyleBackColor = True - ' - 'TabPage2 - ' - Me.TabPage2.Controls.Add(Me.btndeleteUserProfile) - Me.TabPage2.Controls.Add(Me.chklbUserProfile) - resources.ApplyResources(Me.TabPage2, "TabPage2") - Me.TabPage2.Name = "TabPage2" - Me.TabPage2.UseVisualStyleBackColor = True - ' - 'btndeleteUserProfile - ' - Me.btndeleteUserProfile.Image = Global.Global_Indexer.My.Resources.Resources.delete_12x12 - resources.ApplyResources(Me.btndeleteUserProfile, "btndeleteUserProfile") - Me.btndeleteUserProfile.Name = "btndeleteUserProfile" - Me.btndeleteUserProfile.UseVisualStyleBackColor = True - ' - 'chklbUserProfile - ' - resources.ApplyResources(Me.chklbUserProfile, "chklbUserProfile") - Me.chklbUserProfile.ContextMenuStrip = Me.ContextMenuStrip1 - Me.chklbUserProfile.FormattingEnabled = True - Me.chklbUserProfile.Name = "chklbUserProfile" - ' - 'btndelete - ' - Me.btndelete.Image = Global.Global_Indexer.My.Resources.Resources.delete_12x12 - resources.ApplyResources(Me.btndelete, "btndelete") - Me.btndelete.Name = "btndelete" - Me.btndelete.UseVisualStyleBackColor = True - ' - 'Label9 - ' - resources.ApplyResources(Me.Label9, "Label9") - Me.Label9.Name = "Label9" - ' - 'TabPage_Designer - ' - resources.ApplyResources(Me.TabPage_Designer, "TabPage_Designer") - Me.TabPage_Designer.Controls.Add(Me.TabControl2) - Me.TabPage_Designer.Controls.Add(Me.GroupBox1) - Me.TabPage_Designer.Controls.Add(Me.GroupBoxMainWindow) - Me.TabPage_Designer.Name = "TabPage_Designer" - Me.TabPage_Designer.UseVisualStyleBackColor = True - ' - 'TabControl2 - ' - resources.ApplyResources(Me.TabControl2, "TabControl2") - Me.TabControl2.Controls.Add(Me.TabPage7) - Me.TabControl2.Controls.Add(Me.TabPage8) - Me.TabControl2.Name = "TabControl2" - Me.TabControl2.SelectedIndex = 0 - ' - 'TabPage7 - ' - Me.TabPage7.Controls.Add(Me.GroupBox2_Controls) - resources.ApplyResources(Me.TabPage7, "TabPage7") - Me.TabPage7.Name = "TabPage7" - Me.TabPage7.UseVisualStyleBackColor = True - ' - 'TabPage8 - ' - Me.TabPage8.Controls.Add(Me.Label20) - Me.TabPage8.Controls.Add(Me.lblLinkCopyPaste) - Me.TabPage8.Controls.Add(Me.btnAddCopypasteConfig) - Me.TabPage8.Controls.Add(Me.txtcopypastePatter) - Me.TabPage8.Controls.Add(Me.Label19) - Me.TabPage8.Controls.Add(Me.Label18) - Me.TabPage8.Controls.Add(Me.cmbCopyPasteFunction) - resources.ApplyResources(Me.TabPage8, "TabPage8") - Me.TabPage8.Name = "TabPage8" - Me.TabPage8.UseVisualStyleBackColor = True - ' - 'Label20 - ' - resources.ApplyResources(Me.Label20, "Label20") - Me.Label20.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.Label20.Name = "Label20" - ' - 'lblLinkCopyPaste - ' - resources.ApplyResources(Me.lblLinkCopyPaste, "lblLinkCopyPaste") - Me.lblLinkCopyPaste.BackColor = System.Drawing.Color.Yellow - Me.lblLinkCopyPaste.Name = "lblLinkCopyPaste" - ' - 'btnAddCopypasteConfig - ' - resources.ApplyResources(Me.btnAddCopypasteConfig, "btnAddCopypasteConfig") - Me.btnAddCopypasteConfig.Image = Global.Global_Indexer.My.Resources.Resources.add - Me.btnAddCopypasteConfig.Name = "btnAddCopypasteConfig" - Me.btnAddCopypasteConfig.UseVisualStyleBackColor = True - ' - 'txtcopypastePatter - ' - resources.ApplyResources(Me.txtcopypastePatter, "txtcopypastePatter") - Me.txtcopypastePatter.Name = "txtcopypastePatter" - ' - 'Label19 - ' - resources.ApplyResources(Me.Label19, "Label19") - Me.Label19.Name = "Label19" - ' - 'Label18 - ' - resources.ApplyResources(Me.Label18, "Label18") - Me.Label18.Name = "Label18" - ' - 'cmbCopyPasteFunction - ' - Me.cmbCopyPasteFunction.FormattingEnabled = True - Me.cmbCopyPasteFunction.Items.AddRange(New Object() {resources.GetString("cmbCopyPasteFunction.Items"), resources.GetString("cmbCopyPasteFunction.Items1")}) - resources.ApplyResources(Me.cmbCopyPasteFunction, "cmbCopyPasteFunction") - Me.cmbCopyPasteFunction.Name = "cmbCopyPasteFunction" - ' - 'TabPageTest - ' - Me.TabPageTest.Controls.Add(Me.GroupBox3) - Me.TabPageTest.Controls.Add(Me.GroupBox2) - resources.ApplyResources(Me.TabPageTest, "TabPageTest") - Me.TabPageTest.Name = "TabPageTest" - Me.TabPageTest.UseVisualStyleBackColor = True - ' - 'GroupBox3 - ' - Me.GroupBox3.Controls.Add(Me.chkboxshowfilledControlsOnly_Test) - Me.GroupBox3.Controls.Add(Me.ListViewControls_Test) - resources.ApplyResources(Me.GroupBox3, "GroupBox3") - Me.GroupBox3.Name = "GroupBox3" - Me.GroupBox3.TabStop = False - ' - 'chkboxshowfilledControlsOnly_Test - ' - resources.ApplyResources(Me.chkboxshowfilledControlsOnly_Test, "chkboxshowfilledControlsOnly_Test") - Me.chkboxshowfilledControlsOnly_Test.ForeColor = System.Drawing.Color.DarkSlateGray - Me.chkboxshowfilledControlsOnly_Test.Name = "chkboxshowfilledControlsOnly_Test" - Me.chkboxshowfilledControlsOnly_Test.UseVisualStyleBackColor = True - ' - 'ListViewControls_Test - ' - resources.ApplyResources(Me.ListViewControls_Test, "ListViewControls_Test") - Me.ListViewControls_Test.Columns.AddRange(New System.Windows.Forms.ColumnHeader() {Me.ColumnHeader4, Me.ColumnHeader1, Me.ColumnHeader2}) - Me.ListViewControls_Test.FullRowSelect = True - Me.ListViewControls_Test.Name = "ListViewControls_Test" - Me.ListViewControls_Test.UseCompatibleStateImageBehavior = False - Me.ListViewControls_Test.View = System.Windows.Forms.View.Details - ' - 'ColumnHeader4 - ' - resources.ApplyResources(Me.ColumnHeader4, "ColumnHeader4") - ' - 'ColumnHeader1 - ' - resources.ApplyResources(Me.ColumnHeader1, "ColumnHeader1") - ' - 'ColumnHeader2 - ' - resources.ApplyResources(Me.ColumnHeader2, "ColumnHeader2") - ' - 'GroupBox2 - ' - Me.GroupBox2.Controls.Add(Me.Button3) - Me.GroupBox2.Controls.Add(Me.ListBox_MainWindows_Test) - resources.ApplyResources(Me.GroupBox2, "GroupBox2") - Me.GroupBox2.Name = "GroupBox2" - Me.GroupBox2.TabStop = False - ' - 'Button3 - ' - resources.ApplyResources(Me.Button3, "Button3") - Me.Button3.Image = Global.Global_Indexer.My.Resources.Resources.refresh_16xMD - Me.Button3.Name = "Button3" - Me.Button3.UseVisualStyleBackColor = True - ' - 'ListBox_MainWindows_Test - ' - resources.ApplyResources(Me.ListBox_MainWindows_Test, "ListBox_MainWindows_Test") - Me.ListBox_MainWindows_Test.FormattingEnabled = True - Me.ListBox_MainWindows_Test.Name = "ListBox_MainWindows_Test" - ' - 'TBDD_USERBindingSource - ' - Me.TBDD_USERBindingSource.DataMember = "TBDD_USER" - Me.TBDD_USERBindingSource.DataSource = Me.MyDataset - ' - 'TBDD_USERTableAdapter - ' - Me.TBDD_USERTableAdapter.ClearBeforeFill = True - ' - 'TBHOTKEY_USER_PROFILEBindingSource - ' - Me.TBHOTKEY_USER_PROFILEBindingSource.DataMember = "TBHOTKEY_USER_PROFILE" - Me.TBHOTKEY_USER_PROFILEBindingSource.DataSource = Me.MyDataset - ' - 'TBHOTKEY_USER_PROFILETableAdapter - ' - Me.TBHOTKEY_USER_PROFILETableAdapter.ClearBeforeFill = True - ' - 'TBHOTKEY_PATTERNS_REWORKTableAdapter - ' - Me.TBHOTKEY_PATTERNS_REWORKTableAdapter.ClearBeforeFill = True - ' - 'TBHOTKEY_WINDOW_HOOKTableAdapter - ' - Me.TBHOTKEY_WINDOW_HOOKTableAdapter.ClearBeforeFill = True - ' - 'frmHotKey_Add - ' - resources.ApplyResources(Me, "$this") - Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font - Me.Controls.Add(Me.TabControlMain) - Me.Controls.Add(Me.StatusStrip1) - Me.Name = "frmHotKey_Add" - Me.StatusStrip1.ResumeLayout(False) - Me.StatusStrip1.PerformLayout() - Me.GroupBoxMainWindow.ResumeLayout(False) - Me.GroupBoxMainWindow.PerformLayout() - Me.GroupBox2_Controls.ResumeLayout(False) - Me.GroupBox2_Controls.PerformLayout() - Me.GroupBox1.ResumeLayout(False) - Me.GroupBox1.PerformLayout() - CType(Me.MyDataset, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.TBHOTKEY_PROFILEBindingSource, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.TBHOTKEY_PATTERNSBindingSource, System.ComponentModel.ISupportInitialize).EndInit() - Me.TabControlMain.ResumeLayout(False) - Me.TabPageUebersicht.ResumeLayout(False) - Me.TabPageUebersicht.PerformLayout() - CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.GridView1, System.ComponentModel.ISupportInitialize).EndInit() - Me.GroupBoxPatterns.ResumeLayout(False) - Me.GroupBoxPatterns.PerformLayout() - CType(Me.TBHOTKEY_WINDOW_HOOKBindingSource, System.ComponentModel.ISupportInitialize).EndInit() - Me.TabControlDetails.ResumeLayout(False) - Me.TabPage6.ResumeLayout(False) - Me.TabPage6.PerformLayout() - CType(Me.BindingNavigator2, System.ComponentModel.ISupportInitialize).EndInit() - Me.BindingNavigator2.ResumeLayout(False) - Me.BindingNavigator2.PerformLayout() - Me.TabPage4.ResumeLayout(False) - Me.TabPage4.PerformLayout() - CType(Me.TBHOTKEY_PATTERNS_REWORKBindingSource, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.BindingNavigator1, System.ComponentModel.ISupportInitialize).EndInit() - Me.BindingNavigator1.ResumeLayout(False) - Me.BindingNavigator1.PerformLayout() - Me.TabPage5.ResumeLayout(False) - Me.TabPage5.PerformLayout() - CType(Me.BindingNavigator3, System.ComponentModel.ISupportInitialize).EndInit() - Me.BindingNavigator3.ResumeLayout(False) - Me.BindingNavigator3.PerformLayout() - Me.TabControl1.ResumeLayout(False) - Me.TabPage3.ResumeLayout(False) - Me.TabPage3.PerformLayout() - Me.TabPage1.ResumeLayout(False) - Me.ContextMenuStrip1.ResumeLayout(False) - Me.TabPage2.ResumeLayout(False) - Me.TabPage_Designer.ResumeLayout(False) - Me.TabControl2.ResumeLayout(False) - Me.TabPage7.ResumeLayout(False) - Me.TabPage8.ResumeLayout(False) - Me.TabPage8.PerformLayout() - Me.TabPageTest.ResumeLayout(False) - Me.GroupBox3.ResumeLayout(False) - Me.GroupBox3.PerformLayout() - Me.GroupBox2.ResumeLayout(False) - CType(Me.TBDD_USERBindingSource, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.TBHOTKEY_USER_PROFILEBindingSource, System.ComponentModel.ISupportInitialize).EndInit() - Me.ResumeLayout(False) - Me.PerformLayout() - - End Sub - Friend WithEvents StatusStrip1 As System.Windows.Forms.StatusStrip - Friend WithEvents btnpnlStart_weiter As System.Windows.Forms.Button - Friend WithEvents ListBox_FormTitles As System.Windows.Forms.ListBox - Friend WithEvents GroupBoxMainWindow As System.Windows.Forms.GroupBox - Friend WithEvents GroupBox2_Controls As System.Windows.Forms.GroupBox - Friend WithEvents Label1 As System.Windows.Forms.Label - Friend WithEvents txtControl As System.Windows.Forms.TextBox - Friend WithEvents txtPattern As System.Windows.Forms.TextBox - Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox - Friend WithEvents btnGB1 As System.Windows.Forms.Button - Friend WithEvents txtKey As System.Windows.Forms.TextBox - Friend WithEvents cmbFunktionstaste As System.Windows.Forms.ComboBox - Friend WithEvents txtWDSearch As System.Windows.Forms.TextBox - Friend WithEvents cmbObjekttyp As System.Windows.Forms.ComboBox - Friend WithEvents txtProfilname As System.Windows.Forms.TextBox - Friend WithEvents Label4 As System.Windows.Forms.Label - Friend WithEvents Label3 As System.Windows.Forms.Label - Friend WithEvents Label2 As System.Windows.Forms.Label - Friend WithEvents Label5 As System.Windows.Forms.Label - Friend WithEvents Label6 As System.Windows.Forms.Label - Friend WithEvents btnadd_Pattern As System.Windows.Forms.Button - Friend WithEvents Label8 As System.Windows.Forms.Label - Friend WithEvents Label7 As System.Windows.Forms.Label - Friend WithEvents MyDataset As Global_Indexer.MyDataset - Friend WithEvents TBHOTKEY_PROFILEBindingSource As System.Windows.Forms.BindingSource - Friend WithEvents TBHOTKEY_PROFILETableAdapter As Global_Indexer.MyDatasetTableAdapters.TBHOTKEY_PROFILETableAdapter - Friend WithEvents TableAdapterManager As Global_Indexer.MyDatasetTableAdapters.TableAdapterManager - Friend WithEvents TBHOTKEY_PATTERNSTableAdapter As Global_Indexer.MyDatasetTableAdapters.TBHOTKEY_PATTERNSTableAdapter - Friend WithEvents TBHOTKEY_PATTERNSBindingSource As System.Windows.Forms.BindingSource - Friend WithEvents lblSaveHotkey As System.Windows.Forms.Label - Friend WithEvents lblLinkadd As System.Windows.Forms.Label - Friend WithEvents Button1 As System.Windows.Forms.Button - Friend WithEvents OFDWindreamsuche As System.Windows.Forms.OpenFileDialog - Friend WithEvents TabControlMain As System.Windows.Forms.TabControl - Friend WithEvents TabPage_Designer As System.Windows.Forms.TabPage - Friend WithEvents TabPageTest As System.Windows.Forms.TabPage - Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox - Friend WithEvents Button3 As System.Windows.Forms.Button - Friend WithEvents ListBox_MainWindows_Test As System.Windows.Forms.ListBox - Friend WithEvents TabPageUebersicht As System.Windows.Forms.TabPage - Friend WithEvents GroupBox3 As System.Windows.Forms.GroupBox - Friend WithEvents Label9 As System.Windows.Forms.Label - Friend WithEvents btndelete As System.Windows.Forms.Button - Friend WithEvents btnUserAdd_Profile As System.Windows.Forms.Button - Friend WithEvents TBDD_USERBindingSource As System.Windows.Forms.BindingSource - Friend WithEvents TBDD_USERTableAdapter As Global_Indexer.MyDatasetTableAdapters.TBDD_USERTableAdapter - Friend WithEvents TBHOTKEY_USER_PROFILEBindingSource As System.Windows.Forms.BindingSource - Friend WithEvents TBHOTKEY_USER_PROFILETableAdapter As Global_Indexer.MyDatasetTableAdapters.TBHOTKEY_USER_PROFILETableAdapter - Friend WithEvents chklbUser As System.Windows.Forms.CheckedListBox - Friend WithEvents ContextMenuStrip1 As System.Windows.Forms.ContextMenuStrip - Friend WithEvents AlleAuswählenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem - Friend WithEvents KeineAuswählenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem - Friend WithEvents TabControl1 As System.Windows.Forms.TabControl - Friend WithEvents TabPage1 As System.Windows.Forms.TabPage - Friend WithEvents TabPage2 As System.Windows.Forms.TabPage - Friend WithEvents chklbUserProfile As System.Windows.Forms.CheckedListBox - Friend WithEvents btndeleteUserProfile As System.Windows.Forms.Button - Friend WithEvents TabPage3 As System.Windows.Forms.TabPage - Friend WithEvents CHANGED_WHENTextBox As System.Windows.Forms.TextBox - Friend WithEvents CHANGED_WHOTextBox As System.Windows.Forms.TextBox - Friend WithEvents HOTKEY2TextBox As System.Windows.Forms.TextBox - Friend WithEvents HOTKEY1ComboBox As System.Windows.Forms.ComboBox - Friend WithEvents WD_SEARCHTextBox As System.Windows.Forms.TextBox - Friend WithEvents NAMETextBox As System.Windows.Forms.TextBox - Friend WithEvents GUIDTextBox As System.Windows.Forms.TextBox - Friend WithEvents btnsave As System.Windows.Forms.Button - Friend WithEvents lblSave As System.Windows.Forms.Label - Friend WithEvents Button2 As System.Windows.Forms.Button - Friend WithEvents GroupBoxPatterns As System.Windows.Forms.GroupBox - Friend WithEvents ListBoxPatterns As System.Windows.Forms.ListBox - Friend WithEvents TabControlDetails As System.Windows.Forms.TabControl - Friend WithEvents TabPage4 As System.Windows.Forms.TabPage - Friend WithEvents TabPage5 As System.Windows.Forms.TabPage - Friend WithEvents TBHOTKEY_PATTERNS_REWORKBindingSource As System.Windows.Forms.BindingSource - Friend WithEvents TBHOTKEY_PATTERNS_REWORKTableAdapter As Global_Indexer.MyDatasetTableAdapters.TBHOTKEY_PATTERNS_REWORKTableAdapter - Friend WithEvents BindingNavigator1 As System.Windows.Forms.BindingNavigator - Friend WithEvents BindingNavigatorAddNewItem As System.Windows.Forms.ToolStripButton - Friend WithEvents BindingNavigatorCountItem As System.Windows.Forms.ToolStripLabel - Friend WithEvents BindingNavigatorDeleteItem As System.Windows.Forms.ToolStripButton - Friend WithEvents BindingNavigatorMoveFirstItem As System.Windows.Forms.ToolStripButton - Friend WithEvents BindingNavigatorMovePreviousItem As System.Windows.Forms.ToolStripButton - Friend WithEvents BindingNavigatorSeparator As System.Windows.Forms.ToolStripSeparator - Friend WithEvents BindingNavigatorPositionItem As System.Windows.Forms.ToolStripTextBox - Friend WithEvents BindingNavigatorSeparator1 As System.Windows.Forms.ToolStripSeparator - Friend WithEvents BindingNavigatorMoveNextItem As System.Windows.Forms.ToolStripButton - Friend WithEvents BindingNavigatorMoveLastItem As System.Windows.Forms.ToolStripButton - Friend WithEvents BindingNavigatorSeparator2 As System.Windows.Forms.ToolStripSeparator - Friend WithEvents GUIDTextBox1 As System.Windows.Forms.TextBox - Friend WithEvents TYPEComboBox As System.Windows.Forms.ComboBox - Friend WithEvents FUNCTION1TextBox As System.Windows.Forms.TextBox - Friend WithEvents FUNCTION2TextBox As System.Windows.Forms.TextBox - Friend WithEvents TEXT1TextBox As System.Windows.Forms.TextBox - Friend WithEvents TEXT2TextBox As System.Windows.Forms.TextBox - Friend WithEvents SEQUENCETextBox As System.Windows.Forms.TextBox - Friend WithEvents ADDED_WHOTextBox As System.Windows.Forms.TextBox - Friend WithEvents ADDED_WHENTextBox As System.Windows.Forms.TextBox - Friend WithEvents CHANGED_WHOTextBox1 As System.Windows.Forms.TextBox - Friend WithEvents ToolStripButton1 As System.Windows.Forms.ToolStripButton - Friend WithEvents lblsavePatternsRework As System.Windows.Forms.Label - Friend WithEvents Function2Label As System.Windows.Forms.Label - Friend WithEvents Function1Label As System.Windows.Forms.Label - Friend WithEvents Text2Label As System.Windows.Forms.Label - Friend WithEvents Text1Label As System.Windows.Forms.Label - Friend WithEvents ADDED_WHENTextBox1 As System.Windows.Forms.TextBox - Friend WithEvents GUIDTextBox2 As System.Windows.Forms.TextBox - Friend WithEvents CHANGED_WHENTextBox1 As System.Windows.Forms.TextBox - Friend WithEvents lblHinweisRework1 As System.Windows.Forms.Label - Friend WithEvents btnRegexTest As System.Windows.Forms.Button - Friend WithEvents ListViewControls As System.Windows.Forms.ListView - Friend WithEvents ControlID As System.Windows.Forms.ColumnHeader - Friend WithEvents ControlValue As System.Windows.Forms.ColumnHeader - Friend WithEvents ListViewControls_Test As System.Windows.Forms.ListView - Friend WithEvents ColumnHeader1 As System.Windows.Forms.ColumnHeader - Friend WithEvents ColumnHeader2 As System.Windows.Forms.ColumnHeader - Friend WithEvents chkboxshowfilledControlsOnly_Test As System.Windows.Forms.CheckBox - Friend WithEvents chkboxshowfilledControlsOnly As System.Windows.Forms.CheckBox - Friend WithEvents WINDOW_NAMETextBox As System.Windows.Forms.TextBox - Friend WithEvents ColumnHeader3 As System.Windows.Forms.ColumnHeader - Friend WithEvents ColumnHeader4 As System.Windows.Forms.ColumnHeader - Friend WithEvents SEQUENCE_NUMBERTextBox As System.Windows.Forms.TextBox - Friend WithEvents tslbl_Hotkeywindow As System.Windows.Forms.ToolStripStatusLabel - Friend WithEvents tslbl_HotkeySequence As System.Windows.Forms.ToolStripStatusLabel - Friend WithEvents Label10 As System.Windows.Forms.Label - Friend WithEvents txtValueMatch As System.Windows.Forms.TextBox - Friend WithEvents Label13 As System.Windows.Forms.Label - Friend WithEvents Label11 As System.Windows.Forms.Label - Friend WithEvents Label12 As System.Windows.Forms.Label - Friend WithEvents txtControl_Match As System.Windows.Forms.TextBox - Friend WithEvents btnadd_WindowMatch As System.Windows.Forms.Button - Friend WithEvents TBHOTKEY_WINDOW_HOOKBindingSource As System.Windows.Forms.BindingSource - Friend WithEvents TBHOTKEY_WINDOW_HOOKTableAdapter As Global_Indexer.MyDatasetTableAdapters.TBHOTKEY_WINDOW_HOOKTableAdapter - Friend WithEvents lblMatchadd As System.Windows.Forms.Label - Friend WithEvents TabPage6 As System.Windows.Forms.TabPage - Friend WithEvents ADDED_WHOTextBox1 As System.Windows.Forms.TextBox - Friend WithEvents CHANGED_WHOTextBox2 As System.Windows.Forms.TextBox - Friend WithEvents CHANGED_WHENTextBox2 As System.Windows.Forms.TextBox - Friend WithEvents PATTERN_WDSEARCHTextBox As System.Windows.Forms.TextBox - Friend WithEvents Label14 As System.Windows.Forms.Label - Friend WithEvents BindingNavigator2 As System.Windows.Forms.BindingNavigator - Friend WithEvents BindingNavigatorCountItem1 As System.Windows.Forms.ToolStripLabel - Friend WithEvents BindingNavigatorDeleteItem1 As System.Windows.Forms.ToolStripButton - Friend WithEvents BindingNavigatorMoveFirstItem1 As System.Windows.Forms.ToolStripButton - Friend WithEvents BindingNavigatorMovePreviousItem1 As System.Windows.Forms.ToolStripButton - Friend WithEvents BindingNavigatorSeparator3 As System.Windows.Forms.ToolStripSeparator - Friend WithEvents BindingNavigatorPositionItem1 As System.Windows.Forms.ToolStripTextBox - Friend WithEvents BindingNavigatorSeparator4 As System.Windows.Forms.ToolStripSeparator - Friend WithEvents BindingNavigatorMoveNextItem1 As System.Windows.Forms.ToolStripButton - Friend WithEvents BindingNavigatorMoveLastItem1 As System.Windows.Forms.ToolStripButton - Friend WithEvents BindingNavigatorSeparator5 As System.Windows.Forms.ToolStripSeparator - Friend WithEvents tsbtnsave_pattern As System.Windows.Forms.ToolStripButton - Friend WithEvents lblSavePAttern As System.Windows.Forms.Label - Friend WithEvents ADDED_WHENTextBox2 As System.Windows.Forms.TextBox - Friend WithEvents ADDED_WHOTextBox2 As System.Windows.Forms.TextBox - Friend WithEvents CONTROL_VALUETextBox As System.Windows.Forms.TextBox - Friend WithEvents SEQUENCE_NUMBERTextBox1 As System.Windows.Forms.TextBox - Friend WithEvents GUIDTextBox3 As System.Windows.Forms.TextBox - Friend WithEvents Label16 As System.Windows.Forms.Label - Friend WithEvents BindingNavigator3 As System.Windows.Forms.BindingNavigator - Friend WithEvents ToolStripLabel1 As System.Windows.Forms.ToolStripLabel - Friend WithEvents ToolStripButton2 As System.Windows.Forms.ToolStripButton - Friend WithEvents ToolStripButton3 As System.Windows.Forms.ToolStripButton - Friend WithEvents ToolStripButton4 As System.Windows.Forms.ToolStripButton - Friend WithEvents ToolStripSeparator1 As System.Windows.Forms.ToolStripSeparator - Friend WithEvents ToolStripTextBox1 As System.Windows.Forms.ToolStripTextBox - Friend WithEvents ToolStripSeparator2 As System.Windows.Forms.ToolStripSeparator - Friend WithEvents ToolStripButton5 As System.Windows.Forms.ToolStripButton - Friend WithEvents ToolStripButton6 As System.Windows.Forms.ToolStripButton - Friend WithEvents ToolStripSeparator3 As System.Windows.Forms.ToolStripSeparator - Friend WithEvents ListBox1 As System.Windows.Forms.ListBox - Friend WithEvents btnnewProfile As System.Windows.Forms.Button - Friend WithEvents ToolStrip1 As System.Windows.Forms.ToolStrip - Friend WithEvents ToolTipController1 As DevExpress.Utils.ToolTipController - Friend WithEvents TabControl2 As System.Windows.Forms.TabControl - Friend WithEvents TabPage7 As System.Windows.Forms.TabPage - Friend WithEvents TabPage8 As System.Windows.Forms.TabPage - Friend WithEvents btnAddCopypasteConfig As System.Windows.Forms.Button - Friend WithEvents txtcopypastePatter As System.Windows.Forms.TextBox - Friend WithEvents Label19 As System.Windows.Forms.Label - Friend WithEvents Label18 As System.Windows.Forms.Label - Friend WithEvents cmbCopyPasteFunction As System.Windows.Forms.ComboBox - Friend WithEvents lblLinkCopyPaste As System.Windows.Forms.Label - Friend WithEvents Label20 As System.Windows.Forms.Label - Friend WithEvents GridControl1 As DevExpress.XtraGrid.GridControl - Friend WithEvents GridView1 As DevExpress.XtraGrid.Views.Grid.GridView - Friend WithEvents colGUID As DevExpress.XtraGrid.Columns.GridColumn - Friend WithEvents colString As DevExpress.XtraGrid.Columns.GridColumn -End Class diff --git a/Global_Indexer/frmHotKey_Add.resx b/Global_Indexer/frmHotKey_Add.resx deleted file mode 100644 index e51e4b2..0000000 --- a/Global_Indexer/frmHotKey_Add.resx +++ /dev/null @@ -1,6768 +0,0 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - text/microsoft-resx - - - 2.0 - - - System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - False - - - - True - - - - 6, 12 - - - 21, 13 - - - 0 - - - ID: - - - GUIDLabel - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage3 - - - 17 - - - False - - - True - - - 64, 12 - - - 65, 13 - - - 2 - - - Profilname: - - - NAMELabel - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage3 - - - 15 - - - False - - - True - - - 6, 53 - - - 96, 13 - - - 4 - - - windream-Suche: - - - WD_SEARCHLabel - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage3 - - - 13 - - - False - - - True - - - 6, 140 - - - 87, 13 - - - 6 - - - Funktionstaste: - - - HOTKEY1Label - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage3 - - - 11 - - - False - - - True - - - 99, 140 - - - 55, 13 - - - 8 - - - Hotkey 2: - - - HOTKEY2Label - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage3 - - - 9 - - - False - - - True - - - 171, 140 - - - 80, 13 - - - 10 - - - Geändert wer: - - - CHANGED_WHOLabel - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage3 - - - 7 - - - False - - - True - - - 310, 140 - - - 90, 13 - - - 12 - - - Geändert wann: - - - CHANGED_WHENLabel - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage3 - - - 5 - - - False - - - True - - - 6, 28 - - - 21, 13 - - - 1 - - - ID: - - - GUIDLabel1 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage4 - - - 22 - - - False - - - True - - - 49, 28 - - - 27, 13 - - - 3 - - - Typ: - - - TYPELabel - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage4 - - - 20 - - - False - - - True - - - 437, 28 - - - 73, 13 - - - 13 - - - Reihenfolge: - - - SEQUENCELabel - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage4 - - - 14 - - - False - - - True - - - 6, 120 - - - 67, 13 - - - 15 - - - Erstellt wer: - - - ADDED_WHOLabel - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage4 - - - 12 - - - False - - - True - - - 115, 120 - - - 77, 13 - - - 17 - - - Erstellt wann: - - - ADDED_WHENLabel - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage4 - - - 10 - - - False - - - True - - - 225, 120 - - - 80, 13 - - - 19 - - - Geändert wer: - - - CHANGED_WHOLabel1 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage4 - - - 8 - - - False - - - True - - - 336, 120 - - - 90, 13 - - - 21 - - - Geändert wann: - - - CHANGED_WHENLabel1 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage4 - - - 7 - - - False - - - True - - - Segoe UI, 8.25pt, style=Italic - - - 64, 108 - - - 70, 13 - - - 4 - - - Erstellt wann: - - - ADDED_WHENLabel1 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage6 - - - 8 - - - False - - - True - - - Segoe UI, 8.25pt, style=Bold, Italic - - - 6, 67 - - - 21, 13 - - - 6 - - - ID: - - - GUIDLabel2 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage6 - - - 15 - - - False - - - True - - - Segoe UI Semibold, 9pt, style=Bold, Italic - - - 6, 94 - - - 93, 15 - - - 81 - - - Window-Name: - - - WINDOW_NAMELabel - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage3 - - - 0 - - - False - - - True - - - Segoe UI, 8.25pt, style=Italic - - - 64, 67 - - - 154, 13 - - - 8 - - - Control-Sequence/-Reihenfolge: - - - SEQUENCE_NUMBERLabel - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage6 - - - 13 - - - False - - - True - - - Segoe UI, 8.25pt, style=Italic - - - 224, 67 - - - 198, 13 - - - 83 - - - Zu ersetzendes Pattern Windream-Suche: - - - PATTERN_WDSEARCHLabel - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage6 - - - 9 - - - False - - - True - - - Segoe UI, 8.25pt, style=Italic - - - 224, 108 - - - 82, 13 - - - 85 - - - Geändert wann: - - - CHANGED_WHENLabel2 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage6 - - - 5 - - - False - - - True - - - Segoe UI, 8.25pt, style=Italic - - - 224, 149 - - - 73, 13 - - - 86 - - - Geändert wer: - - - CHANGED_WHOLabel2 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage6 - - - 3 - - - False - - - True - - - Segoe UI, 8.25pt, style=Italic - - - 64, 149 - - - 61, 13 - - - 87 - - - Erstellt wer: - - - ADDED_WHOLabel1 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage6 - - - 1 - - - False - - - True - - - Segoe UI, 8.25pt, style=Bold, Italic - - - 6, 21 - - - 74, 13 - - - 7 - - - Suchpattern: - - - Label15 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBoxPatterns - - - 2 - - - False - - - True - - - Segoe UI, 8.25pt, style=Italic - - - 6, 74 - - - 20, 13 - - - 86 - - - ID: - - - GUIDLabel3 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage5 - - - 8 - - - False - - - True - - - 64, 74 - - - 73, 13 - - - 87 - - - Reihenfolge: - - - SEQUENCE_NUMBERLabel1 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage5 - - - 6 - - - False - - - True - - - 209, 74 - - - 83, 13 - - - 88 - - - Control-Inhalt: - - - CONTROL_VALUELabel - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage5 - - - 4 - - - False - - - True - - - Segoe UI, 8.25pt, style=Italic - - - 64, 115 - - - 61, 13 - - - 89 - - - Erstellt wer: - - - ADDED_WHOLabel2 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage5 - - - 2 - - - False - - - True - - - Segoe UI, 8.25pt, style=Italic - - - 209, 115 - - - 70, 13 - - - 90 - - - Erstellt wann: - - - ADDED_WHENLabel2 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage5 - - - 0 - - - False - - - True - - - Segoe UI, 8.25pt, style=Bold, Italic - - - 6, 158 - - - 95, 13 - - - 9 - - - Control-Matches: - - - Label17 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBoxPatterns - - - 0 - - - 17, 17 - - - 0, 613 - - - 972, 22 - - - 0 - - - StatusStrip1 - - - StatusStrip1 - - - System.Windows.Forms.StatusStrip, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - $this - - - 2 - - - 97, 17 - - - Windowname - - - 74, 17 - - - Sequence - - - Segoe UI, 9pt, style=Italic - - - 15 - - - 6, 21 - - - 542, 214 - - - 8 - - - ListBox_FormTitles - - - System.Windows.Forms.ListBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBoxMainWindow - - - 2 - - - chkboxshowfilledControlsOnly - - - System.Windows.Forms.CheckBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBoxMainWindow - - - 0 - - - btnpnlStart_weiter - - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBoxMainWindow - - - 1 - - - Segoe UI, 8.25pt, style=Bold - - - 403, 6 - - - 558, 274 - - - 15 - - - Schritt 2 - Wählen Sie das 'MainWindow' zur Auswahl der Inhalte - - - False - - - GroupBoxMainWindow - - - System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage_Designer - - - 2 - - - - Bottom, Left - - - True - - - Segoe UI, 9pt, style=Bold, Italic - - - 6, 247 - - - 185, 19 - - - 11 - - - Nur gefüllte Felder anzeigen - - - chkboxshowfilledControlsOnly - - - System.Windows.Forms.CheckBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBoxMainWindow - - - 0 - - - Segoe UI, 9pt - - - MiddleRight - - - 473, 243 - - - 75, 25 - - - 0 - - - weiter - - - MiddleLeft - - - btnpnlStart_weiter - - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBoxMainWindow - - - 1 - - - lblMatchadd - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox2_Controls - - - 0 - - - btnadd_WindowMatch - - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox2_Controls - - - 1 - - - txtValueMatch - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox2_Controls - - - 2 - - - Label13 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox2_Controls - - - 3 - - - Label11 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox2_Controls - - - 4 - - - Label12 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox2_Controls - - - 5 - - - txtControl_Match - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox2_Controls - - - 6 - - - Label10 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox2_Controls - - - 7 - - - ListViewControls - - - System.Windows.Forms.ListView, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox2_Controls - - - 8 - - - lblLinkadd - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox2_Controls - - - 9 - - - btnadd_Pattern - - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox2_Controls - - - 10 - - - Label8 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox2_Controls - - - 11 - - - Label7 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox2_Controls - - - 12 - - - txtPattern - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox2_Controls - - - 13 - - - Label1 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox2_Controls - - - 14 - - - txtControl - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox2_Controls - - - 15 - - - Fill - - - Segoe UI, 8.25pt, style=Bold - - - 3, 3 - - - 936, 262 - - - 9 - - - Schritt 2 -Wählen Sie das Control mit dem zu übergebenden Wert - - - GroupBox2_Controls - - - System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage7 - - - 0 - - - True - - - Segoe UI, 8.25pt, style=Bold - - - 488, 265 - - - 238, 13 - - - 89 - - - Match Control-Window erfolgreich angelegt - - - False - - - lblMatchadd - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox2_Controls - - - 0 - - - Segoe UI, 8.25pt - - - MiddleRight - - - 833, 237 - - - 96, 24 - - - 88 - - - Hinzufügen - - - MiddleLeft - - - btnadd_WindowMatch - - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox2_Controls - - - 1 - - - Segoe UI, 8.25pt - - - 694, 240 - - - 133, 22 - - - 87 - - - txtValueMatch - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox2_Controls - - - 2 - - - True - - - Segoe UI, 8.25pt - - - 615, 243 - - - 79, 13 - - - 86 - - - enthält Value: - - - Label13 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox2_Controls - - - 3 - - - True - - - Segoe UI, 8.25pt, style=Bold, Italic - - - 491, 161 - - - 418, 54 - - - 85 - - - Bei Nicht-Eindeutigkeit des MainWindow --Namens und der Control # muss -zusätzlich eine Abhängigkeit zwischen Control-Inhalt und dem Windownamen -geschaffen werden. - - - Label11 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox2_Controls - - - 4 - - - True - - - Segoe UI, 8.25pt - - - 488, 224 - - - 125, 13 - - - 84 - - - Reihenfolge # Control: - - - Label12 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox2_Controls - - - 5 - - - Segoe UI, 8.25pt - - - 491, 240 - - - 118, 22 - - - 83 - - - txtControl_Match - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox2_Controls - - - 6 - - - True - - - Segoe UI, 8.25pt, style=Bold, Italic - - - 491, 19 - - - 436, 54 - - - 82 - - - Hier wird die Reihenfolge-Nummer in Abhängigkeit zum Titel des 'MainWindows' -gespeichert. -Während der Laufzeit wird der Suchpattern der windream-Suche dann mit -dem gelesenen Wert ersetzt. - - - Label10 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox2_Controls - - - 7 - - - Top, Bottom, Left, Right - - - Segoe UI Semibold, 8.25pt, style=Bold, Italic - - - 6, 19 - - - 476, 237 - - - 81 - - - ListViewControls - - - System.Windows.Forms.ListView, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox2_Controls - - - 8 - - - # - - - Control-ID: - - - 100 - - - Gelesener Wert - - - 305 - - - True - - - Segoe UI, 8.25pt, style=Bold - - - 491, 121 - - - 179, 13 - - - 80 - - - Pattern-Link erfolgreich angelegt - - - False - - - lblLinkadd - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox2_Controls - - - 9 - - - Segoe UI, 8.25pt - - - MiddleRight - - - 835, 93 - - - 96, 24 - - - 14 - - - Hinzufügen - - - MiddleLeft - - - btnadd_Pattern - - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox2_Controls - - - 10 - - - True - - - Segoe UI, 8.25pt - - - 693, 80 - - - 138, 13 - - - 13 - - - Windream-Suche Pattern: - - - Label8 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox2_Controls - - - 11 - - - True - - - Segoe UI, 8.25pt - - - 491, 80 - - - 125, 13 - - - 12 - - - Reihenfolge # Control: - - - Label7 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox2_Controls - - - 12 - - - Segoe UI, 8.25pt - - - 694, 96 - - - 135, 22 - - - 11 - - - txtPattern - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox2_Controls - - - 13 - - - True - - - Segoe UI, 8.25pt - - - 615, 99 - - - 73, 13 - - - 10 - - - verlinken mit - - - Label1 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox2_Controls - - - 14 - - - Segoe UI, 8.25pt - - - 491, 96 - - - 118, 22 - - - 9 - - - txtControl - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox2_Controls - - - 15 - - - btnnewProfile - - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox1 - - - 0 - - - Button1 - - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox1 - - - 1 - - - lblSaveHotkey - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox1 - - - 2 - - - Label6 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox1 - - - 3 - - - Label5 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox1 - - - 4 - - - txtKey - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox1 - - - 5 - - - cmbFunktionstaste - - - System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox1 - - - 6 - - - txtWDSearch - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox1 - - - 7 - - - cmbObjekttyp - - - System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox1 - - - 8 - - - txtProfilname - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox1 - - - 9 - - - Label4 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox1 - - - 10 - - - Label3 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox1 - - - 11 - - - Label2 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox1 - - - 12 - - - btnGB1 - - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox1 - - - 13 - - - Segoe UI, 8.25pt, style=Bold - - - 6, 6 - - - 391, 275 - - - 16 - - - Schritt 1 - Grundangaben - - - GroupBox1 - - - System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage_Designer - - - 1 - - - Segoe UI, 9.75pt, style=Bold, Italic - - - MiddleLeft - - - 215, 12 - - - 170, 34 - - - 81 - - - Neues Profil erzeugen - - - MiddleRight - - - btnnewProfile - - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox1 - - - 0 - - - Segoe UI, 8.25pt - - - 360, 113 - - - 25, 23 - - - 80 - - - ... - - - Button1 - - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox1 - - - 1 - - - Top, Right - - - True - - - Segoe UI, 8.25pt, style=Bold - - - 15, 192 - - - 198, 13 - - - 79 - - - Hotkey-Profil erfolgreich gespeichert - - - - False - - - lblSaveHotkey - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox1 - - - 2 - - - True - - - Segoe UI, 9pt - - - 124, 139 - - - 109, 15 - - - 11 - - - Kombinationstaste: - - - Label6 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox1 - - - 3 - - - True - - - Segoe UI, 9pt - - - 15, 139 - - - 87, 15 - - - 10 - - - Funktionstaste: - - - Label5 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox1 - - - 4 - - - Segoe UI, 9pt - - - 127, 157 - - - 53, 23 - - - 9 - - - txtKey - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox1 - - - 5 - - - Segoe UI, 8.25pt - - - Strg - - - Shift - - - Alt - - - Win - - - 18, 157 - - - 64, 21 - - - 8 - - - cmbFunktionstaste - - - System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox1 - - - 6 - - - Segoe UI, 9pt - - - 18, 113 - - - 336, 23 - - - 7 - - - txtWDSearch - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox1 - - - 7 - - - Segoe UI, 8.25pt - - - 18, 248 - - - 113, 21 - - - 6 - - - False - - - cmbObjekttyp - - - System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox1 - - - 8 - - - Segoe UI, 9pt - - - 18, 69 - - - 367, 23 - - - 5 - - - txtProfilname - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox1 - - - 9 - - - True - - - Segoe UI, 9pt - - - 15, 95 - - - 102, 15 - - - 3 - - - Windream-Suche: - - - Label4 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox1 - - - 10 - - - True - - - Segoe UI, 8.25pt - - - 137, 251 - - - 61, 13 - - - 2 - - - Objekttyp: - - - False - - - Label3 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox1 - - - 11 - - - True - - - Segoe UI, 9pt - - - 15, 51 - - - 68, 15 - - - 1 - - - Profilname: - - - Label2 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox1 - - - 12 - - - Segoe UI, 9pt - - - MiddleRight - - - 316, 244 - - - 69, 25 - - - 0 - - - weiter - - - MiddleLeft - - - btnGB1 - - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox1 - - - 13 - - - 134, 17 - - - 244, 17 - - - 483, 17 - - - 716, 17 - - - 1140, 17 - - - 889, 17 - - - 1386, 17 - - - windream-Suche|*.wdf|Alle Dateien|*.* - - - windream-Suche wählen - - - True - - - 17, 31 - - - Aqua - - - ID - - - True - - - 0 - - - 33 - - - Profilname - - - True - - - 1 - - - 195 - - - 246, 246 - - - 39 - - - GridControl1 - - - DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - TabPageUebersicht - - - 0 - - - 1348, 95 - - - 3, 3 - - - 958, 25 - - - 38 - - - ToolStrip1 - - - ToolStrip1 - - - System.Windows.Forms.ToolStrip, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPageUebersicht - - - 1 - - - ListBox1 - - - System.Windows.Forms.ListBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBoxPatterns - - - 1 - - - TabControlDetails - - - System.Windows.Forms.TabControl, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBoxPatterns - - - 3 - - - ListBoxPatterns - - - System.Windows.Forms.ListBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBoxPatterns - - - 4 - - - 8, 283 - - - 920, 298 - - - 37 - - - Suchpatterns und Control-Matches: - - - GroupBoxPatterns - - - System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPageUebersicht - - - 2 - - - True - - - WINDOW_NAMETextBox - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage3 - - - 1 - - - Button2 - - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage3 - - - 2 - - - lblSave - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage3 - - - 3 - - - btnsave - - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage3 - - - 4 - - - CHANGED_WHENTextBox - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage3 - - - 6 - - - CHANGED_WHOTextBox - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage3 - - - 8 - - - HOTKEY2TextBox - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage3 - - - 10 - - - HOTKEY1ComboBox - - - System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage3 - - - 12 - - - WD_SEARCHTextBox - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage3 - - - 14 - - - NAMETextBox - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage3 - - - 16 - - - GUIDTextBox - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage3 - - - 18 - - - 4, 22 - - - 3, 3, 3, 3 - - - 631, 189 - - - 2 - - - Eigenschaften Hotkey-Profil: - - - TabPage3 - - - System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabControl1 - - - 0 - - - chklbUser - - - System.Windows.Forms.CheckedListBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage1 - - - 0 - - - btnUserAdd_Profile - - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage1 - - - 1 - - - 4, 22 - - - 3, 3, 3, 3 - - - 631, 189 - - - 0 - - - User zu Profil zuordnen - - - TabPage1 - - - System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabControl1 - - - 1 - - - MiddleLeft - - - 303, 6 - - - 197, 36 - - - 37 - - - Userprofile löschen - - - MiddleRight - - - btndeleteUserProfile - - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage2 - - - 0 - - - Top, Bottom, Left - - - 941, 56 - - - 163, 48 - - - ContextMenuStrip1 - - - System.Windows.Forms.ContextMenuStrip, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - 6, 6 - - - 291, 174 - - - 36 - - - chklbUserProfile - - - System.Windows.Forms.CheckedListBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage2 - - - 1 - - - 4, 22 - - - 3, 3, 3, 3 - - - 631, 189 - - - 1 - - - Usern Profile entziehen - - - TabPage2 - - - System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabControl1 - - - 2 - - - 269, 62 - - - 639, 215 - - - 36 - - - TabControl1 - - - System.Windows.Forms.TabControl, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPageUebersicht - - - 3 - - - MiddleLeft - - - 269, 30 - - - 197, 26 - - - 20 - - - Profil löschen (Global und User) - - - MiddleRight - - - btndelete - - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPageUebersicht - - - 4 - - - True - - - Segoe UI Semibold, 9pt, style=Bold, Italic - - - 5, 12 - - - 142, 15 - - - 3 - - - Aktuelle globale Hotkeys: - - - Label9 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPageUebersicht - - - 5 - - - 4, 22 - - - 3, 3, 3, 3 - - - 964, 587 - - - 2 - - - Übersicht Hot Key-Profile - - - TabPageUebersicht - - - System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabControlMain - - - 0 - - - True - - - TabControl2 - - - System.Windows.Forms.TabControl, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage_Designer - - - 0 - - - 4, 22 - - - 3, 3, 3, 3 - - - 964, 587 - - - 0 - - - Hotkey-Profil definieren - - - TabPage_Designer - - - System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabControlMain - - - 1 - - - GroupBox3 - - - System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPageTest - - - 0 - - - GroupBox2 - - - System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPageTest - - - 1 - - - 4, 22 - - - 3, 3, 3, 3 - - - 964, 587 - - - 1 - - - Test - Auswerten Window-Handle - - - TabPageTest - - - System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabControlMain - - - 2 - - - Fill - - - 0, 0 - - - 972, 613 - - - 17 - - - TabControlMain - - - System.Windows.Forms.TabControl, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - $this - - - 1 - - - 471, 95 - - - 9, 174 - - - 246, 108 - - - 8 - - - ListBox1 - - - System.Windows.Forms.ListBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBoxPatterns - - - 1 - - - 471, 95 - - - Top, Bottom, Left - - - TabPage6 - - - System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabControlDetails - - - 0 - - - TabPage4 - - - System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabControlDetails - - - 1 - - - TabPage5 - - - System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabControlDetails - - - 2 - - - 261, 21 - - - 639, 271 - - - 1 - - - TabControlDetails - - - System.Windows.Forms.TabControl, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBoxPatterns - - - 3 - - - 1040, 95 - - - lblSavePAttern - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage6 - - - 0 - - - ADDED_WHOTextBox1 - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage6 - - - 2 - - - CHANGED_WHOTextBox2 - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage6 - - - 4 - - - CHANGED_WHENTextBox2 - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage6 - - - 6 - - - ADDED_WHENTextBox1 - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage6 - - - 7 - - - PATTERN_WDSEARCHTextBox - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage6 - - - 10 - - - SEQUENCE_NUMBERTextBox - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage6 - - - 11 - - - Label14 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage6 - - - 12 - - - BindingNavigator2 - - - System.Windows.Forms.BindingNavigator, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage6 - - - 14 - - - GUIDTextBox2 - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage6 - - - 16 - - - 4, 22 - - - 3, 3, 3, 3 - - - 631, 245 - - - 2 - - - Suchpatterns - - - TabPage6 - - - System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabControlDetails - - - 0 - - - Top, Right - - - True - - - Segoe UI, 8.25pt, style=Bold - - - 446, 127 - - - 164, 13 - - - 89 - - - Daten erfolgreich gespeichert! - - - False - - - lblSavePAttern - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage6 - - - 0 - - - Segoe UI, 8.25pt, style=Italic - - - 67, 164 - - - 126, 22 - - - 88 - - - ADDED_WHOTextBox1 - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage6 - - - 2 - - - Segoe UI, 8.25pt, style=Italic - - - 227, 164 - - - 141, 22 - - - 87 - - - CHANGED_WHOTextBox2 - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage6 - - - 4 - - - Segoe UI, 8.25pt, style=Italic - - - 227, 124 - - - 141, 22 - - - 86 - - - CHANGED_WHENTextBox2 - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage6 - - - 6 - - - Segoe UI, 8.25pt, style=Italic - - - 67, 124 - - - 126, 22 - - - 5 - - - ADDED_WHENTextBox1 - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage6 - - - 7 - - - Segoe UI, 8.25pt, style=Italic - - - 227, 83 - - - 195, 22 - - - 84 - - - PATTERN_WDSEARCHTextBox - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage6 - - - 10 - - - Segoe UI, 8.25pt, style=Italic - - - 67, 83 - - - 67, 22 - - - 9 - - - SEQUENCE_NUMBERTextBox - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage6 - - - 11 - - - True - - - Segoe UI, 8.25pt, style=Bold, Italic - - - 6, 30 - - - 548, 28 - - - 83 - - - Hier wird die Reihenfolge-Nummer in Abhängigkeit zum Titel des 'MainWindows' gespeichert. -Während der Laufzeit wird der Suchpattern der windream-Suche dann mit dem gelesenen Wert ersetzt. - - - Label14 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage6 - - - 12 - - - 1040, 95 - - - 44, 22 - - - von {0} - - - Die Gesamtanzahl der Elemente. - - - - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO - wwAADsMBx2+oZAAAAW9JREFUOE+1kE0ow2Ecx3dV3krt4oJaOSCTvIRkMqSxyITIzCQHDouEdnFwIOVC - DrhIDiQl5UTiNG/z2ppafy1S2gX/uDwfY6i1v7Hie3nqeb7fz+/7/FR/Ilwn0G0Exw4fV5GJlXlEZxXC - rIet9bAQvB5Ymgn2sLYAvSZEux7RUQFzE4qQt4bCXAYjPaHvnDoCkLpsRGMB2JqCTGLIijDlwqQ9bEMV - i9OIytR3EMNWcJ/BWH8A6j8/bOGFxwXNxYEvGbMQ9XnQ1/K78KfY3/VXzkMY0qFGG2H4RoLGQshJQNbG - 86CNhdrsX9a/uQZTPhQl4rMY4OLofbl3aX7I8uwPC7y/g1YdjyVJuEvT8e1tfwUYteHUxCCfHChDeHmG - QQvokjlOU+PbWA0x3pZnILVVI3uvQyHsbiLnqnGmRCF1NYD8pDhpRxOH7HQoAKZGkFKjceszQbpSrumX - bO+G80MFwKUTxgfgcO/b8D9IpXoFiiMDHIQm0skAAAAASUVORK5CYII= - - - - True - - - 23, 22 - - - Löschen - - - - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO - wwAADsMBx2+oZAAAASpJREFUOE9jGDygcNbz/00Lnv/PnPj4P1QIA4S3P8Apx5A789n/VUfe/8elKL77 - wf/ghmu4DciY8vT/wn0fsCqK73n4f+n+///9qy/gNiCh58n/aVveYyiKaL8P1pw56/9/r9ITuA2I7Hr0 - v3f1BxRFoa33wJpb1wFt7/z73yX/AG4DApsf/q+b/w6uKLjl7v9Fe///7wBqzpjz879d3c//9hnbcRvg - UXX/f/60NyiK7Ipv/0+f8/u/f9e3/zqF7/5bJKzHbYB96d3/2ZNfYyjSTzn/36ToxX+VrE//jSOX4TbA - Iu/O/9T+11gVGSSd+C+b9vW/bvA83AYYZt3+H9byEqci/dTL/zV8p+E2QCftxn+/6od4Fal4TMBtgFPu - lf8gBXgVDULAwAAA8HbAq6XlmnAAAAAASUVORK5CYII= - - - - True - - - 23, 22 - - - Erste verschieben - - - - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO - wwAADsMBx2+oZAAAALZJREFUOE9jGDogvP3BfyiTdBDf/eB/cMM18gyI73n4f+n+///9qy+QbkBE+32w - 5sxZ//97lZ4gzYDQ1ntgza3rgLZ3/v3vkn+AeAOCW+7+X7T3//8OoOaMOT//29X9/G+fsZ00F9gV3/6f - Puf3f/+ub/91Ct/9t0hYT3oY6Kec/29S9OK/Stan/8aRy0g3AAQMkk78l037+l83eB55BoCAfurl/xq+ - 08g3AARUPCZQZsBgBQwMANAUYJgEulBVAAAAAElFTkSuQmCC - - - - True - - - 23, 22 - - - Vorherige verschieben - - - 6, 25 - - - Position - - - False - - - 50, 23 - - - 0 - - - Aktuelle Position - - - 6, 25 - - - - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO - wwAADsMBx2+oZAAAAKNJREFUOE9jGHygcNbz/1AmeSB35rP/Cd33yDckY8rT//P2//6f0HWHPEMSep78 - n73v1//OrX//u5VeJt2QyK5H/6ds+/W/ZOnf/wnT//63yT1LmiGBzQ//t659D9ZsXPLlv3T0tf/GkcuI - N8Sj6v7/krnv4JoVXXpIc4F96d3/gS3PyNMMAhZ5d/7bFFwhTzMIGGbdJl8zCOik3SBf81AEDAwAoH5f - oAc0QjgAAAAASUVORK5CYII= - - - - True - - - 23, 22 - - - Nächste verschieben - - - - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO - wwAADsMBx2+oZAAAASxJREFUOE9jGFygcNbz/1AmBgDJNS14/j9z4mOcahhyZz77n9B9D6sCkNyqI+// - h7c/wG1AxpSn/+ft//0/oesOhiKQ3MJ9H/4HN1zDbUBCz5P/s/f9+t+59e9/t9LLKApBctO2vP/vX30B - twGRXY/+T9n263/J0r//E6b//W+TexauGCTXu/rDf6/SE7gNCGx++L917XuwZuOSL/+lo6/9N45cBtYA - kqub/+6/S/4B3AZ4VN3/XzL3HVyzoksPXDFILn/am//2GdtxG2Bfevd/YMszDM0gAJLLnvz6v0XCetwG - WOTd+W9TcAVDMwiA5FL7X8O9hBUYZt3GqhkEQHJhLS//6wbPw22ATtoNnJIgOb/qh/81fKfhNgAfcMq9 - 8l/FYwIYQ4UGBWBgAAC+0b+zuQxOnAAAAABJRU5ErkJggg== - - - - True - - - 23, 22 - - - Letzte verschieben - - - 6, 25 - - - Magenta - - - 23, 22 - - - ToolStripButton2 - - - 3, 3 - - - 625, 25 - - - 0 - - - BindingNavigator2 - - - BindingNavigator2 - - - System.Windows.Forms.BindingNavigator, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage6 - - - 14 - - - Segoe UI, 8.25pt, style=Bold, Italic - - - 9, 83 - - - 43, 22 - - - 7 - - - GUIDTextBox2 - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage6 - - - 16 - - - 317, 95 - - - True - - - lblHinweisRework1 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage4 - - - 0 - - - CHANGED_WHENTextBox1 - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage4 - - - 1 - - - Text2Label - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage4 - - - 2 - - - Text1Label - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage4 - - - 3 - - - Function2Label - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage4 - - - 4 - - - Function1Label - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage4 - - - 5 - - - lblsavePatternsRework - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage4 - - - 6 - - - CHANGED_WHOTextBox1 - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage4 - - - 9 - - - ADDED_WHENTextBox - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage4 - - - 11 - - - ADDED_WHOTextBox - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage4 - - - 13 - - - SEQUENCETextBox - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage4 - - - 15 - - - TEXT2TextBox - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage4 - - - 16 - - - TEXT1TextBox - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage4 - - - 17 - - - FUNCTION2TextBox - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage4 - - - 18 - - - FUNCTION1TextBox - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage4 - - - 19 - - - TYPEComboBox - - - System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage4 - - - 21 - - - GUIDTextBox1 - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage4 - - - 23 - - - BindingNavigator1 - - - System.Windows.Forms.BindingNavigator, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage4 - - - 24 - - - btnRegexTest - - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage4 - - - 25 - - - 4, 22 - - - 3, 3, 3, 3 - - - 631, 245 - - - 0 - - - Nachbearbeitungs-Schritte für Suchpattern - - - TabPage4 - - - System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabControlDetails - - - 1 - - - True - - - Segoe UI, 8.25pt, style=Italic - - - 189, 89 - - - 44, 13 - - - 87 - - - Label10 - - - False - - - lblHinweisRework1 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage4 - - - 0 - - - 1098, 56 - - - 339, 136 - - - 129, 22 - - - 86 - - - CHANGED_WHENTextBox1 - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage4 - - - 1 - - - 1098, 56 - - - True - - - 142, 70 - - - 40, 13 - - - 85 - - - Label4 - - - Text2Label - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage4 - - - 2 - - - True - - - 6, 70 - - - 40, 13 - - - 84 - - - Label4 - - - Text1Label - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage4 - - - 3 - - - True - - - 306, 28 - - - 12, 13 - - - 83 - - - v - - - Function2Label - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage4 - - - 4 - - - True - - - 189, 28 - - - 12, 13 - - - 82 - - - v - - - Function1Label - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage4 - - - 5 - - - Top, Right - - - True - - - Segoe UI, 8.25pt, style=Bold - - - 225, 161 - - - 164, 13 - - - 81 - - - Daten erfolgreich gespeichert! - - - False - - - lblsavePatternsRework - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage4 - - - 6 - - - 228, 136 - - - 100, 22 - - - 20 - - - CHANGED_WHOTextBox1 - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage4 - - - 9 - - - 118, 136 - - - 100, 22 - - - 18 - - - ADDED_WHENTextBox - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage4 - - - 11 - - - 9, 136 - - - 100, 22 - - - 16 - - - ADDED_WHOTextBox - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage4 - - - 13 - - - 440, 44 - - - 46, 22 - - - 14 - - - SEQUENCETextBox - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage4 - - - 15 - - - 145, 86 - - - 37, 22 - - - 12 - - - TEXT2TextBox - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage4 - - - 16 - - - 9, 86 - - - 55, 22 - - - 10 - - - TEXT1TextBox - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage4 - - - 17 - - - 309, 44 - - - 67, 22 - - - 8 - - - FUNCTION2TextBox - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage4 - - - 18 - - - 192, 44 - - - 111, 22 - - - 6 - - - FUNCTION1TextBox - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage4 - - - 19 - - - VBREPLACE - - - VBSPLIT - - - Regular Expression - - - 52, 44 - - - 130, 21 - - - 4 - - - TYPEComboBox - - - System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage4 - - - 21 - - - 9, 44 - - - 34, 22 - - - 2 - - - GUIDTextBox1 - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage4 - - - 23 - - - 317, 95 - - - - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO - wwAADsMBx2+oZAAAAUpJREFUOE9jGLzg7gL2/7fmcf6/Oofr/8UZvP+hwsSD60CNfx41/v/zsOH/yckC - pBtwfjov3ICDPSKkG3B8kiBQc93/Pw+q/u9oFydswKWZPP/PTuX7fxKo8Ui/0P993SJAzeX//94r+r++ - Qeb/qhq5/0srFf/PL1X+P6tIFdPAU0B//nlYD9RUC8SV///cKwHivP9/72b+/3sn+f/f23H//92MAOKQ - /5NyNDENONQrDHbu3/ulQI0FQI3ZQI2pQI0J///digZqDPv/70bQ/3/X/f53peliGrCzXeL/lmap/+vA - zpX/v6RC8f/fWzFAjeH/p+Zp/J+QpfW/O0P3f3uq/v/mREPCYTIb6E+Qc//dCPjfk6FDWAM6APnz3w1/ - IPb735qsT7oB3em6YP+CcH2cEekGtCQZ/G+IN/xfE2v8vzLahHQD6AQYGAAkI9iedfyIaQAAAABJRU5E - rkJggg== - - - - True - - - 23, 22 - - - Neu hinzufügen - - - 44, 22 - - - von {0} - - - Die Gesamtanzahl der Elemente. - - - - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO - wwAADsMBx2+oZAAAAW9JREFUOE+1kE0ow2Ecx3dV3krt4oJaOSCTvIRkMqSxyITIzCQHDouEdnFwIOVC - DrhIDiQl5UTiNG/z2ppafy1S2gX/uDwfY6i1v7Hie3nqeb7fz+/7/FR/Ilwn0G0Exw4fV5GJlXlEZxXC - rIet9bAQvB5Ymgn2sLYAvSZEux7RUQFzE4qQt4bCXAYjPaHvnDoCkLpsRGMB2JqCTGLIijDlwqQ9bEMV - i9OIytR3EMNWcJ/BWH8A6j8/bOGFxwXNxYEvGbMQ9XnQ1/K78KfY3/VXzkMY0qFGG2H4RoLGQshJQNbG - 86CNhdrsX9a/uQZTPhQl4rMY4OLofbl3aX7I8uwPC7y/g1YdjyVJuEvT8e1tfwUYteHUxCCfHChDeHmG - QQvokjlOU+PbWA0x3pZnILVVI3uvQyHsbiLnqnGmRCF1NYD8pDhpRxOH7HQoAKZGkFKjceszQbpSrumX - bO+G80MFwKUTxgfgcO/b8D9IpXoFiiMDHIQm0skAAAAASUVORK5CYII= - - - - True - - - 23, 22 - - - Löschen - - - - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO - wwAADsMBx2+oZAAAASpJREFUOE9jGDygcNbz/00Lnv/PnPj4P1QIA4S3P8Apx5A789n/VUfe/8elKL77 - wf/ghmu4DciY8vT/wn0fsCqK73n4f+n+///9qy/gNiCh58n/aVveYyiKaL8P1pw56/9/r9ITuA2I7Hr0 - v3f1BxRFoa33wJpb1wFt7/z73yX/AG4DApsf/q+b/w6uKLjl7v9Fe///7wBqzpjz879d3c//9hnbcRvg - UXX/f/60NyiK7Ipv/0+f8/u/f9e3/zqF7/5bJKzHbYB96d3/2ZNfYyjSTzn/36ToxX+VrE//jSOX4TbA - Iu/O/9T+11gVGSSd+C+b9vW/bvA83AYYZt3+H9byEqci/dTL/zV8p+E2QCftxn+/6od4Fal4TMBtgFPu - lf8gBXgVDULAwAAA8HbAq6XlmnAAAAAASUVORK5CYII= - - - - True - - - 23, 22 - - - Erste verschieben - - - - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO - wwAADsMBx2+oZAAAALZJREFUOE9jGDogvP3BfyiTdBDf/eB/cMM18gyI73n4f+n+///9qy+QbkBE+32w - 5sxZ//97lZ4gzYDQ1ntgza3rgLZ3/v3vkn+AeAOCW+7+X7T3//8OoOaMOT//29X9/G+fsZ00F9gV3/6f - Puf3f/+ub/91Ct/9t0hYT3oY6Kec/29S9OK/Stan/8aRy0g3AAQMkk78l037+l83eB55BoCAfurl/xq+ - 08g3AARUPCZQZsBgBQwMANAUYJgEulBVAAAAAElFTkSuQmCC - - - - True - - - 23, 22 - - - Vorherige verschieben - - - 6, 25 - - - Position - - - False - - - 50, 23 - - - 0 - - - Aktuelle Position - - - 6, 25 - - - - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO - wwAADsMBx2+oZAAAAKNJREFUOE9jGHygcNbz/1AmeSB35rP/Cd33yDckY8rT//P2//6f0HWHPEMSep78 - n73v1//OrX//u5VeJt2QyK5H/6ds+/W/ZOnf/wnT//63yT1LmiGBzQ//t659D9ZsXPLlv3T0tf/GkcuI - N8Sj6v7/krnv4JoVXXpIc4F96d3/gS3PyNMMAhZ5d/7bFFwhTzMIGGbdJl8zCOik3SBf81AEDAwAoH5f - oAc0QjgAAAAASUVORK5CYII= - - - - True - - - 23, 22 - - - Nächste verschieben - - - - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO - wwAADsMBx2+oZAAAASxJREFUOE9jGFygcNbz/1AmBgDJNS14/j9z4mOcahhyZz77n9B9D6sCkNyqI+// - h7c/wG1AxpSn/+ft//0/oesOhiKQ3MJ9H/4HN1zDbUBCz5P/s/f9+t+59e9/t9LLKApBctO2vP/vX30B - twGRXY/+T9n263/J0r//E6b//W+TexauGCTXu/rDf6/SE7gNCGx++L917XuwZuOSL/+lo6/9N45cBtYA - kqub/+6/S/4B3AZ4VN3/XzL3HVyzoksPXDFILn/am//2GdtxG2Bfevd/YMszDM0gAJLLnvz6v0XCetwG - WOTd+W9TcAVDMwiA5FL7X8O9hBUYZt3GqhkEQHJhLS//6wbPw22ATtoNnJIgOb/qh/81fKfhNgAfcMq9 - 8l/FYwIYQ4UGBWBgAAC+0b+zuQxOnAAAAABJRU5ErkJggg== - - - - True - - - 23, 22 - - - Letzte verschieben - - - 6, 25 - - - Magenta - - - 23, 22 - - - Speichern - - - 3, 3 - - - 625, 25 - - - 0 - - - BindingNavigator1 - - - BindingNavigator1 - - - System.Windows.Forms.BindingNavigator, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage4 - - - 24 - - - MiddleLeft - - - 338, 42 - - - 96, 23 - - - 88 - - - Teste RegEx - - - MiddleRight - - - False - - - btnRegexTest - - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage4 - - - 25 - - - 1194, 95 - - - ADDED_WHENTextBox2 - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage5 - - - 1 - - - ADDED_WHOTextBox2 - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage5 - - - 3 - - - CONTROL_VALUETextBox - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage5 - - - 5 - - - SEQUENCE_NUMBERTextBox1 - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage5 - - - 7 - - - GUIDTextBox3 - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage5 - - - 9 - - - Label16 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage5 - - - 10 - - - BindingNavigator3 - - - System.Windows.Forms.BindingNavigator, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage5 - - - 11 - - - 4, 22 - - - 3, 3, 3, 3 - - - 631, 245 - - - 1 - - - Control-Match für Window - - - TabPage5 - - - System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabControlDetails - - - 2 - - - Segoe UI, 8.25pt, style=Italic - - - 212, 131 - - - 152, 22 - - - 91 - - - ADDED_WHENTextBox2 - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage5 - - - 1 - - - Segoe UI, 8.25pt, style=Italic - - - 67, 131 - - - 136, 22 - - - 90 - - - ADDED_WHOTextBox2 - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage5 - - - 3 - - - 212, 90 - - - 346, 22 - - - 89 - - - CONTROL_VALUETextBox - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage5 - - - 5 - - - 67, 90 - - - 46, 22 - - - 88 - - - SEQUENCE_NUMBERTextBox1 - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage5 - - - 7 - - - Segoe UI, 8.25pt, style=Italic - - - 9, 90 - - - 49, 22 - - - 87 - - - GUIDTextBox3 - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage5 - - - 9 - - - True - - - Segoe UI, 8.25pt, style=Bold, Italic - - - 9, 37 - - - 550, 28 - - - 86 - - - Bei Nicht-Eindeutigkeit des MainWindow-Namens und der Control-Sequence/-Reihenfolge muss -zusätzlich eine Abhängigkeit zwischen dem Control-Inhalt und dem Windownamen geschaffen werden. - - - Label16 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage5 - - - 10 - - - 1194, 95 - - - 137, 22 - - - von {0} Control-Matches - - - Die Gesamtanzahl der Elemente. - - - - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO - wwAADsMBx2+oZAAAAW9JREFUOE+1kE0ow2Ecx3dV3krt4oJaOSCTvIRkMqSxyITIzCQHDouEdnFwIOVC - DrhIDiQl5UTiNG/z2ppafy1S2gX/uDwfY6i1v7Hie3nqeb7fz+/7/FR/Ilwn0G0Exw4fV5GJlXlEZxXC - rIet9bAQvB5Ymgn2sLYAvSZEux7RUQFzE4qQt4bCXAYjPaHvnDoCkLpsRGMB2JqCTGLIijDlwqQ9bEMV - i9OIytR3EMNWcJ/BWH8A6j8/bOGFxwXNxYEvGbMQ9XnQ1/K78KfY3/VXzkMY0qFGG2H4RoLGQshJQNbG - 86CNhdrsX9a/uQZTPhQl4rMY4OLofbl3aX7I8uwPC7y/g1YdjyVJuEvT8e1tfwUYteHUxCCfHChDeHmG - QQvokjlOU+PbWA0x3pZnILVVI3uvQyHsbiLnqnGmRCF1NYD8pDhpRxOH7HQoAKZGkFKjceszQbpSrumX - bO+G80MFwKUTxgfgcO/b8D9IpXoFiiMDHIQm0skAAAAASUVORK5CYII= - - - - True - - - 23, 22 - - - Löschen - - - - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO - wwAADsMBx2+oZAAAASpJREFUOE9jGDygcNbz/00Lnv/PnPj4P1QIA4S3P8Apx5A789n/VUfe/8elKL77 - wf/ghmu4DciY8vT/wn0fsCqK73n4f+n+///9qy/gNiCh58n/aVveYyiKaL8P1pw56/9/r9ITuA2I7Hr0 - v3f1BxRFoa33wJpb1wFt7/z73yX/AG4DApsf/q+b/w6uKLjl7v9Fe///7wBqzpjz879d3c//9hnbcRvg - UXX/f/60NyiK7Ipv/0+f8/u/f9e3/zqF7/5bJKzHbYB96d3/2ZNfYyjSTzn/36ToxX+VrE//jSOX4TbA - Iu/O/9T+11gVGSSd+C+b9vW/bvA83AYYZt3+H9byEqci/dTL/zV8p+E2QCftxn+/6od4Fal4TMBtgFPu - lf8gBXgVDULAwAAA8HbAq6XlmnAAAAAASUVORK5CYII= - - - - True - - - 23, 22 - - - Erste verschieben - - - - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO - wwAADsMBx2+oZAAAALZJREFUOE9jGDogvP3BfyiTdBDf/eB/cMM18gyI73n4f+n+///9qy+QbkBE+32w - 5sxZ//97lZ4gzYDQ1ntgza3rgLZ3/v3vkn+AeAOCW+7+X7T3//8OoOaMOT//29X9/G+fsZ00F9gV3/6f - Puf3f/+ub/91Ct/9t0hYT3oY6Kec/29S9OK/Stan/8aRy0g3AAQMkk78l037+l83eB55BoCAfurl/xq+ - 08g3AARUPCZQZsBgBQwMANAUYJgEulBVAAAAAElFTkSuQmCC - - - - True - - - 23, 22 - - - Vorherige verschieben - - - 6, 25 - - - Position - - - False - - - 50, 23 - - - 0 - - - Aktuelle Position - - - 6, 25 - - - - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO - wwAADsMBx2+oZAAAAKNJREFUOE9jGHygcNbz/1AmeSB35rP/Cd33yDckY8rT//P2//6f0HWHPEMSep78 - n73v1//OrX//u5VeJt2QyK5H/6ds+/W/ZOnf/wnT//63yT1LmiGBzQ//t659D9ZsXPLlv3T0tf/GkcuI - N8Sj6v7/krnv4JoVXXpIc4F96d3/gS3PyNMMAhZ5d/7bFFwhTzMIGGbdJl8zCOik3SBf81AEDAwAoH5f - oAc0QjgAAAAASUVORK5CYII= - - - - True - - - 23, 22 - - - Nächste verschieben - - - - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO - wwAADsMBx2+oZAAAASxJREFUOE9jGFygcNbz/1AmBgDJNS14/j9z4mOcahhyZz77n9B9D6sCkNyqI+// - h7c/wG1AxpSn/+ft//0/oesOhiKQ3MJ9H/4HN1zDbUBCz5P/s/f9+t+59e9/t9LLKApBctO2vP/vX30B - twGRXY/+T9n263/J0r//E6b//W+TexauGCTXu/rDf6/SE7gNCGx++L917XuwZuOSL/+lo6/9N45cBtYA - kqub/+6/S/4B3AZ4VN3/XzL3HVyzoksPXDFILn/am//2GdtxG2Bfevd/YMszDM0gAJLLnvz6v0XCetwG - WOTd+W9TcAVDMwiA5FL7X8O9hBUYZt3GqhkEQHJhLS//6wbPw22ATtoNnJIgOb/qh/81fKfhNgAfcMq9 - 8l/FYwIYQ4UGBWBgAAC+0b+zuQxOnAAAAABJRU5ErkJggg== - - - - True - - - 23, 22 - - - Letzte verschieben - - - 6, 25 - - - 3, 3 - - - 625, 25 - - - 1 - - - BindingNavigator3 - - - BindingNavigator3 - - - System.Windows.Forms.BindingNavigator, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage5 - - - 11 - - - 9, 37 - - - 246, 108 - - - 0 - - - ListBoxPatterns - - - System.Windows.Forms.ListBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBoxPatterns - - - 4 - - - Segoe UI Semibold, 9pt, style=Bold, Italic - - - 9, 110 - - - 431, 24 - - - 82 - - - WINDOW_NAMETextBox - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage3 - - - 1 - - - 479, 67 - - - 31, 23 - - - 81 - - - ... - - - Button2 - - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage3 - - - 2 - - - Top, Right - - - True - - - Segoe UI, 8.25pt, style=Bold - - - 446, 114 - - - 164, 13 - - - 80 - - - Daten erfolgreich gespeichert! - - - False - - - lblSave - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage3 - - - 3 - - - BottomCenter - - - 525, 12 - - - 85, 38 - - - 21 - - - Speichern - - - TopCenter - - - btnsave - - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage3 - - - 4 - - - 313, 156 - - - 158, 22 - - - 13 - - - CHANGED_WHENTextBox - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage3 - - - 6 - - - 174, 156 - - - 130, 22 - - - 11 - - - CHANGED_WHOTextBox - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage3 - - - 8 - - - 102, 156 - - - 52, 22 - - - 9 - - - HOTKEY2TextBox - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage3 - - - 10 - - - Strg - - - Shift - - - Alt - - - Win - - - 9, 156 - - - 77, 21 - - - 7 - - - HOTKEY1ComboBox - - - System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage3 - - - 12 - - - 9, 69 - - - 462, 22 - - - 5 - - - WD_SEARCHTextBox - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage3 - - - 14 - - - 67, 28 - - - 404, 22 - - - 3 - - - NAMETextBox - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage3 - - - 16 - - - 9, 28 - - - 49, 22 - - - 1 - - - GUIDTextBox - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage3 - - - 18 - - - Top, Bottom, Left - - - 3, 6 - - - 290, 174 - - - 35 - - - chklbUser - - - System.Windows.Forms.CheckedListBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage1 - - - 0 - - - 162, 22 - - - Alle auswählen - - - 162, 22 - - - Keine auswählen - - - Segoe UI, 8.25pt - - - MiddleRight - - - 299, 6 - - - 200, 36 - - - 34 - - - Gewählten Usern Profil zuweisen - - - MiddleLeft - - - btnUserAdd_Profile - - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage1 - - - 1 - - - Bottom, Left, Right - - - TabPage7 - - - System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabControl2 - - - 0 - - - TabPage8 - - - System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabControl2 - - - 1 - - - 6, 287 - - - 950, 294 - - - 17 - - - TabControl2 - - - System.Windows.Forms.TabControl, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage_Designer - - - 0 - - - 4, 22 - - - 3, 3, 3, 3 - - - 942, 268 - - - 0 - - - Control-abhängige Konfiguration - - - TabPage7 - - - System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabControl2 - - - 0 - - - Label20 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage8 - - - 0 - - - lblLinkCopyPaste - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage8 - - - 1 - - - btnAddCopypasteConfig - - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage8 - - - 2 - - - txtcopypastePatter - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage8 - - - 3 - - - Label19 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage8 - - - 4 - - - Label18 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage8 - - - 5 - - - cmbCopyPasteFunction - - - System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage8 - - - 6 - - - 4, 22 - - - 3, 3, 3, 3 - - - 942, 268 - - - 1 - - - ODER 'Copy and Paste' - - - TabPage8 - - - System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabControl2 - - - 1 - - - True - - - Segoe UI, 8.25pt, style=Bold, Italic - - - NoControl - - - 126, 18 - - - 491, 28 - - - 83 - - - strgC Ein bereits markierter Text wird kopiert und an das Pattern übegeben -strA and strgC Zuerst wird der gesamte Text markiert und dann an das pattern übergeben. - - - Label20 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage8 - - - 0 - - - True - - - Segoe UI, 8.25pt, style=Bold - - - NoControl - - - 266, 73 - - - 179, 13 - - - 81 - - - Pattern-Link erfolgreich angelegt - - - False - - - lblLinkCopyPaste - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage8 - - - 1 - - - Segoe UI, 8.25pt - - - MiddleRight - - - NoControl - - - 150, 67 - - - 96, 24 - - - 15 - - - Hinzufügen - - - MiddleLeft - - - btnAddCopypasteConfig - - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage8 - - - 2 - - - 9, 70 - - - 135, 22 - - - 3 - - - txtcopypastePatter - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage8 - - - 3 - - - True - - - 6, 54 - - - 138, 13 - - - 2 - - - Windream-Suche Pattern: - - - Label19 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage8 - - - 4 - - - True - - - 6, 9 - - - 114, 13 - - - 1 - - - Grundfunktionalität: - - - Label18 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage8 - - - 5 - - - strgC - - - strA and strgC - - - 9, 25 - - - 111, 21 - - - 0 - - - cmbCopyPasteFunction - - - System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage8 - - - 6 - - - chkboxshowfilledControlsOnly_Test - - - System.Windows.Forms.CheckBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox3 - - - 0 - - - ListViewControls_Test - - - System.Windows.Forms.ListView, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox3 - - - 1 - - - Fill - - - Segoe UI, 8.25pt, style=Bold - - - 538, 3 - - - 423, 581 - - - 17 - - - Auslesbare Controls für gewähltes 'MainWindow' - - - GroupBox3 - - - System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPageTest - - - 0 - - - Bottom, Left - - - True - - - Segoe UI, 9pt, style=Bold, Italic - - - 6, 555 - - - 185, 19 - - - 10 - - - Nur gefüllte Felder anzeigen - - - chkboxshowfilledControlsOnly_Test - - - System.Windows.Forms.CheckBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox3 - - - 0 - - - Top, Bottom, Left, Right - - - Segoe UI, 8.25pt, style=Italic - - - 6, 27 - - - 414, 514 - - - 82 - - - ListViewControls_Test - - - System.Windows.Forms.ListView, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox3 - - - 1 - - - # - - - Control-ID: - - - 80 - - - Gelesener Wert - - - 350 - - - Button3 - - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox2 - - - 0 - - - ListBox_MainWindows_Test - - - System.Windows.Forms.ListBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox2 - - - 1 - - - Left - - - Segoe UI, 8.25pt, style=Bold - - - 3, 3 - - - 535, 581 - - - 16 - - - Schritt 1 - Wählen Sie das 'MainWindow' zur Auswahl der Inhalte - - - GroupBox2 - - - System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPageTest - - - 1 - - - Bottom, Left - - - Segoe UI, 8.25pt - - - MiddleLeft - - - 6, 552 - - - 75, 23 - - - 9 - - - Refresh - - - MiddleRight - - - Button3 - - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox2 - - - 0 - - - Top, Bottom, Left, Right - - - Segoe UI, 9pt, style=Italic - - - 15 - - - 6, 27 - - - 514, 514 - - - 8 - - - ListBox_MainWindows_Test - - - System.Windows.Forms.ListBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox2 - - - 1 - - - 17, 56 - - - 212, 56 - - - 401, 56 - - - 674, 56 - - - 17, 95 - - - 758, 95 - - - 17, 134 - - - True - - - 173 - - - 6, 13 - - - 972, 635 - - - Segoe UI, 8.25pt - - - - AAABAAYAICAQAAEABADoAgAAZgAAABAQEAABAAQAKAEAAE4DAAAgIAAAAQAIAKgIAAB2BAAAEBAAAAEA - CABoBQAAHg0AACAgAAABABgAqAwAAIYSAAAQEAAAAQAYAGgDAAAuHwAAKAAAACAAAABAAAAAAQAEAAAA - AAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIAAAIAAAACAgACAAAAAgACAAICAAACAgIAAwMDAAAAA - /wAA/wAAAP//AP8AAAD/AP8A//8AAP///wD///////////////////////////////////////////93 - d3d3d3d3d3d3d3d3d///d3d3d3d3d3d3d3d3d3f//3d3d3d3d3d3d3d3d3d3//93d3d3d3d3d3d3d3d3 - d///d3f/////////////d3f//3d3/////////////3d3//93d/////////////93d///d3f///////// - ////d3f//3d3///4j////////3d3//93d///h3j///j///93d///d3f//4d3j//3j///d3f//3d3///4 - d3j/93j//3d3//93d////4d3j/d3//93d///d3f////4d3j3d///d3f//3d3/////4d3h3f//3d3//93 - d//////4d3d3//93d///d3f//////4d3d///d3f//3d3///4d3d3d3f//3d3//93d////4d3d3d3//93 - d///d3f////4d3d3d///d3f//3d3/////////////3d3//93d/////////////93d///d3f///////// - ////d3f//3d3/////////////3d3//93d3d3d3d3d3d3d3d3d///d3d3d3d3d3d3d3d3d3f//3d3d3d3 - d3d3d3d3d3d3//93d3d3d3d3d3d3d3d3d////////////////////////////////////////////wAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAKAAAABAAAAAgAAAAAQAEAAAAAACAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIAAAIAAAACA - gACAAAAAgACAAICAAACAgIAAwMDAAAAA/wAA/wAAAP//AP8AAAD/AP8A//8AAP///wD///////////d3 - d3d3d3d/93d3d3d3d3/3f//////3f/d///////d/93/4j/j/93/3f/h494/3f/d//4eHf/d/93//+Hd/ - 93/3f/h3d3/3f/d//4d3f/d/93//////93/3f//////3f/d3d3d3d3d/93d3d3d3d3///////////wAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAoAAAAIAAAAEAAAAABAAgAAAAAAAAEAAAAAAAAAAAAAAABAAAAAQAAAAAAAEJCQgCvrq8A8e/wAPb2 - 9gAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA////AAQEBAQEBAQEBAQEBAQE - BAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAEBAQEBAQEB - AQEBAQEBAQEBAQEBAQEBAQEBAQEEBAQEAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQQEBAQBAQEB - AQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBBAQEBAEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEEBAQE - AQEBAQMDAwMDAwMDAwMDAwMDAwMDAwMDAQEBAQQEBAQBAQEBAwMDAwMDAwMDAwMDAwMDAwMDAwMBAQEB - BAQEBAEBAQEDAwMDAwMDAwMDAwMDAwMDAwMDAwEBAQEEBAQEAQEBAQMDAwMDAwMDAwMDAwMDAwMDAwMD - AQEBAQQEBAQBAQEBAwMDAwMCAgMDAwMDAwMDAwMDAwMBAQEBBAQEBAEBAQEDAwMDAgEBAgMDAwMDAgMD - AwMDAwEBAQEEBAQEAQEBAQMDAwMCAQEBAgMDAwMBAgMDAwMDAQEBAQQEBAQBAQEBAwMDAwMCAQEBAgMD - AwEBAgMDAwMBAQEBBAQEBAEBAQEDAwMDAwMCAQEBAgMDAQEBAwMDAwEBAQEEBAQEAQEBAQMDAwMDAwMC - AQEBAgMBAQEDAwMDAQEBAQQEBAQBAQEBAwMDAwMDAwMCAQEBAgEBAQMDAwMBAQEBBAQEBAEBAQEDAwMD - AwMDAwMCAQEBAQEBAwMDAwEBAQEEBAQEAQEBAQMDAwMDAwMDAwMCAQEBAQEDAwMDAQEBAQQEBAQBAQEB - AwMDAwMCAQEBAQEBAQEBAQMDAwMBAQEBBAQEBAEBAQEDAwMDAwMCAQEBAQEBAQEBAwMDAwEBAQEEBAQE - AQEBAQMDAwMDAwMCAQEBAQEBAQEDAwMDAQEBAQQEBAQBAQEBAwMDAwMDAwMDAwMDAwMDAwMDAwMBAQEB - BAQEBAEBAQEDAwMDAwMDAwMDAwMDAwMDAwMDAwEBAQEEBAQEAQEBAQMDAwMDAwMDAwMDAwMDAwMDAwMD - AQEBAQQEBAQBAQEBAwMDAwMDAwMDAwMDAwMDAwMDAwMBAQEBBAQEBAEBAQEBAQEBAQEBAQEBAQEBAQEB - AQEBAQEBAQEEBAQEAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQQEBAQBAQEBAQEBAQEBAQEBAQEB - AQEBAQEBAQEBAQEBBAQEBAEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEEBAQEBAQEBAQEBAQEBAQE - BAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACgA - AAAQAAAAIAAAAAEACAAAAAAAAAEAAAAAAAAAAAAAAAEAAAABAAAAAAAAQkJCAK+urwDx7/AA9vb2AAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD///8ABAQEBAQEBAQEBAQEBAQEBAQB - AQEBAQEBAQEBAQEBAQQEAQEBAQEBAQEBAQEBAQEEBAEBAwMDAwMDAwMDAwEBBAQBAQMDAwMDAwMDAwMB - AQQEAQEDAwICAwMCAwMDAQEEBAEBAwMCAQIDAQIDAwEBBAQBAQMDAwIBAgEBAwMBAQQEAQEDAwMDAgEB - AQMDAQEEBAEBAwMCAQEBAQEDAwEBBAQBAQMDAwIBAQEBAwMBAQQEAQEDAwMDAwMDAwMDAQEEBAEBAwMD - AwMDAwMDAwEBBAQBAQEBAQEBAQEBAQEBAQQEAQEBAQEBAQEBAQEBAQEEBAQEBAQEBAQEBAQEBAQEBAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAoAAAAIAAAAEAAAAABABgAAAAAAAAMAAAAAAAAAAAAAAAAAAAAAAAA9vb29vb29vb29vb29vb29vb2 - 9vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb2 - 9vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb2 - 9vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb2 - QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC - QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC9vb29vb29vb29vb2QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC - QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC - 9vb29vb29vb29vb2QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC - QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC9vb29vb29vb29vb2QkJCQkJCQkJCQkJC - QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC - QkJCQkJCQkJCQkJC9vb29vb29vb29vb2QkJCQkJCQkJCQkJC8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w - 8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/wQkJCQkJCQkJCQkJC9vb29vb29vb29vb2 - QkJCQkJCQkJCQkJC8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w - 8e/w8e/w8e/w8e/wQkJCQkJCQkJCQkJC9vb29vb29vb29vb2QkJCQkJCQkJCQkJC8e/w8e/w8e/w8e/w - 8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/wQkJCQkJCQkJCQkJC - 9vb29vb29vb29vb2QkJCQkJCQkJCQkJC8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w - 8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/wQkJCQkJCQkJCQkJC9vb29vb29vb29vb2QkJCQkJCQkJCQkJC - 8e/w8e/w8e/w8e/w8e/wr66vr66v8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w - QkJCQkJCQkJCQkJC9vb29vb29vb29vb2QkJCQkJCQkJCQkJC8e/w8e/w8e/w8e/wr66vQkJCQkJCr66v - 8e/w8e/w8e/w8e/w8e/wr66v8e/w8e/w8e/w8e/w8e/w8e/wQkJCQkJCQkJCQkJC9vb29vb29vb29vb2 - QkJCQkJCQkJCQkJC8e/w8e/w8e/w8e/wr66vQkJCQkJCQkJCr66v8e/w8e/w8e/w8e/wQkJCr66v8e/w - 8e/w8e/w8e/w8e/wQkJCQkJCQkJCQkJC9vb29vb29vb29vb2QkJCQkJCQkJCQkJC8e/w8e/w8e/w8e/w - 8e/wr66vQkJCQkJCQkJCr66v8e/w8e/w8e/wQkJCQkJCr66v8e/w8e/w8e/w8e/wQkJCQkJCQkJCQkJC - 9vb29vb29vb29vb2QkJCQkJCQkJCQkJC8e/w8e/w8e/w8e/w8e/w8e/wr66vQkJCQkJCQkJCr66v8e/w - 8e/wQkJCQkJCQkJC8e/w8e/w8e/w8e/wQkJCQkJCQkJCQkJC9vb29vb29vb29vb2QkJCQkJCQkJCQkJC - 8e/w8e/w8e/w8e/w8e/w8e/w8e/wr66vQkJCQkJCQkJCr66v8e/wQkJCQkJCQkJC8e/w8e/w8e/w8e/w - QkJCQkJCQkJCQkJC9vb29vb29vb29vb2QkJCQkJCQkJCQkJC8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w - r66vQkJCQkJCQkJCr66vQkJCQkJCQkJC8e/w8e/w8e/w8e/wQkJCQkJCQkJCQkJC9vb29vb29vb29vb2 - QkJCQkJCQkJCQkJC8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/wr66vQkJCQkJCQkJCQkJCQkJCQkJC - 8e/w8e/w8e/w8e/wQkJCQkJCQkJCQkJC9vb29vb29vb29vb2QkJCQkJCQkJCQkJC8e/w8e/w8e/w8e/w - 8e/w8e/w8e/w8e/w8e/w8e/wr66vQkJCQkJCQkJCQkJCQkJC8e/w8e/w8e/w8e/wQkJCQkJCQkJCQkJC - 9vb29vb29vb29vb2QkJCQkJCQkJCQkJC8e/w8e/w8e/w8e/w8e/wr66vQkJCQkJCQkJCQkJCQkJCQkJC - QkJCQkJCQkJCQkJC8e/w8e/w8e/w8e/wQkJCQkJCQkJCQkJC9vb29vb29vb29vb2QkJCQkJCQkJCQkJC - 8e/w8e/w8e/w8e/w8e/w8e/wr66vQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC8e/w8e/w8e/w8e/w - QkJCQkJCQkJCQkJC9vb29vb29vb29vb2QkJCQkJCQkJCQkJC8e/w8e/w8e/w8e/w8e/w8e/w8e/wr66v - QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC8e/w8e/w8e/w8e/wQkJCQkJCQkJCQkJC9vb29vb29vb29vb2 - QkJCQkJCQkJCQkJC8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w - 8e/w8e/w8e/w8e/wQkJCQkJCQkJCQkJC9vb29vb29vb29vb2QkJCQkJCQkJCQkJC8e/w8e/w8e/w8e/w - 8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/wQkJCQkJCQkJCQkJC - 9vb29vb29vb29vb2QkJCQkJCQkJCQkJC8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w - 8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/wQkJCQkJCQkJCQkJC9vb29vb29vb29vb2QkJCQkJCQkJCQkJC - 8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w - QkJCQkJCQkJCQkJC9vb29vb29vb29vb2QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC - QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC9vb29vb29vb29vb2 - QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC - QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC9vb29vb29vb29vb2QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC - QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC - 9vb29vb29vb29vb2QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC - QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC9vb29vb29vb29vb29vb29vb29vb29vb2 - 9vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb2 - 9vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb2 - 9vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb2AAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAoAAAAEAAAACAAAAABABgAAAAAAAADAAAAAAAAAAAAAAAAAAAAAAAA9vb29vb29vb29vb29vb29vb2 - 9vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb2QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC - QkJCQkJCQkJCQkJCQkJC9vb29vb2QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC - QkJC9vb29vb2QkJCQkJC8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/wQkJCQkJC9vb29vb2QkJC - QkJC8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/wQkJCQkJC9vb29vb2QkJCQkJC8e/w8e/wr66v - r66v8e/w8e/wr66v8e/w8e/w8e/wQkJCQkJC9vb29vb2QkJCQkJC8e/w8e/wr66vQkJCr66v8e/wQkJC - r66v8e/w8e/wQkJCQkJC9vb29vb2QkJCQkJC8e/w8e/w8e/wr66vQkJCr66vQkJCQkJC8e/w8e/wQkJC - QkJC9vb29vb2QkJCQkJC8e/w8e/w8e/w8e/wr66vQkJCQkJCQkJC8e/w8e/wQkJCQkJC9vb29vb2QkJC - QkJC8e/w8e/wr66vQkJCQkJCQkJCQkJCQkJC8e/w8e/wQkJCQkJC9vb29vb2QkJCQkJC8e/w8e/w8e/w - r66vQkJCQkJCQkJCQkJC8e/w8e/wQkJCQkJC9vb29vb2QkJCQkJC8e/w8e/w8e/w8e/w8e/w8e/w8e/w - 8e/w8e/w8e/wQkJCQkJC9vb29vb2QkJCQkJC8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/wQkJC - QkJC9vb29vb2QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC9vb29vb2QkJC - QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC9vb29vb29vb29vb29vb29vb29vb2 - 9vb29vb29vb29vb29vb29vb29vb29vb29vb29vb2AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA== - - - - HotKey - Administration - - - tslbl_Hotkeywindow - - - System.Windows.Forms.ToolStripStatusLabel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - tslbl_HotkeySequence - - - System.Windows.Forms.ToolStripStatusLabel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - ColumnHeader3 - - - System.Windows.Forms.ColumnHeader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - ControlID - - - System.Windows.Forms.ColumnHeader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - ControlValue - - - System.Windows.Forms.ColumnHeader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - MyDataset - - - Global_Indexer.MyDataset, MyDataset.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - - - TBHOTKEY_PROFILEBindingSource - - - System.Windows.Forms.BindingSource, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TBHOTKEY_PROFILETableAdapter - - - Global_Indexer.MyDatasetTableAdapters.TBHOTKEY_PROFILETableAdapter, MyDataset.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - - - TableAdapterManager - - - Global_Indexer.MyDatasetTableAdapters.TableAdapterManager, MyDataset.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - - - TBHOTKEY_PATTERNSTableAdapter - - - Global_Indexer.MyDatasetTableAdapters.TBHOTKEY_PATTERNSTableAdapter, MyDataset.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - - - TBHOTKEY_PATTERNSBindingSource - - - System.Windows.Forms.BindingSource, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - OFDWindreamsuche - - - System.Windows.Forms.OpenFileDialog, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GridView1 - - - DevExpress.XtraGrid.Views.Grid.GridView, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - colGUID - - - DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - colString - - - DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - TBHOTKEY_WINDOW_HOOKBindingSource - - - System.Windows.Forms.BindingSource, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - BindingNavigatorCountItem1 - - - System.Windows.Forms.ToolStripLabel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - BindingNavigatorDeleteItem1 - - - System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - BindingNavigatorMoveFirstItem1 - - - System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - BindingNavigatorMovePreviousItem1 - - - System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - BindingNavigatorSeparator3 - - - System.Windows.Forms.ToolStripSeparator, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - BindingNavigatorPositionItem1 - - - System.Windows.Forms.ToolStripTextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - BindingNavigatorSeparator4 - - - System.Windows.Forms.ToolStripSeparator, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - BindingNavigatorMoveNextItem1 - - - System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - BindingNavigatorMoveLastItem1 - - - System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - BindingNavigatorSeparator5 - - - System.Windows.Forms.ToolStripSeparator, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - tsbtnsave_pattern - - - System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TBHOTKEY_PATTERNS_REWORKBindingSource - - - System.Windows.Forms.BindingSource, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - BindingNavigatorAddNewItem - - - System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - BindingNavigatorCountItem - - - System.Windows.Forms.ToolStripLabel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - BindingNavigatorDeleteItem - - - System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - BindingNavigatorMoveFirstItem - - - System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - BindingNavigatorMovePreviousItem - - - System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - BindingNavigatorSeparator - - - System.Windows.Forms.ToolStripSeparator, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - BindingNavigatorPositionItem - - - System.Windows.Forms.ToolStripTextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - BindingNavigatorSeparator1 - - - System.Windows.Forms.ToolStripSeparator, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - BindingNavigatorMoveNextItem - - - System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - BindingNavigatorMoveLastItem - - - System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - BindingNavigatorSeparator2 - - - System.Windows.Forms.ToolStripSeparator, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - ToolStripButton1 - - - System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - ToolStripLabel1 - - - System.Windows.Forms.ToolStripLabel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - ToolStripButton2 - - - System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - ToolStripButton3 - - - System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - ToolStripButton4 - - - System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - ToolStripSeparator1 - - - System.Windows.Forms.ToolStripSeparator, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - ToolStripTextBox1 - - - System.Windows.Forms.ToolStripTextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - ToolStripSeparator2 - - - System.Windows.Forms.ToolStripSeparator, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - ToolStripButton5 - - - System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - ToolStripButton6 - - - System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - ToolStripSeparator3 - - - System.Windows.Forms.ToolStripSeparator, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - AlleAuswählenToolStripMenuItem - - - System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - KeineAuswählenToolStripMenuItem - - - System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - ColumnHeader4 - - - System.Windows.Forms.ColumnHeader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - ColumnHeader1 - - - System.Windows.Forms.ColumnHeader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - ColumnHeader2 - - - System.Windows.Forms.ColumnHeader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TBDD_USERBindingSource - - - System.Windows.Forms.BindingSource, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TBDD_USERTableAdapter - - - Global_Indexer.MyDatasetTableAdapters.TBDD_USERTableAdapter, MyDataset.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - - - TBHOTKEY_USER_PROFILEBindingSource - - - System.Windows.Forms.BindingSource, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TBHOTKEY_USER_PROFILETableAdapter - - - Global_Indexer.MyDatasetTableAdapters.TBHOTKEY_USER_PROFILETableAdapter, MyDataset.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - - - TBHOTKEY_PATTERNS_REWORKTableAdapter - - - Global_Indexer.MyDatasetTableAdapters.TBHOTKEY_PATTERNS_REWORKTableAdapter, MyDataset.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - - - TBHOTKEY_WINDOW_HOOKTableAdapter - - - Global_Indexer.MyDatasetTableAdapters.TBHOTKEY_WINDOW_HOOKTableAdapter, MyDataset.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - - - ToolTipController1 - - - DevExpress.Utils.ToolTipController, DevExpress.Utils.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - frmHotKey_Add - - - System.Windows.Forms.Form, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - \ No newline at end of file diff --git a/Global_Indexer/frmHotKey_Add.vb b/Global_Indexer/frmHotKey_Add.vb deleted file mode 100644 index b840d4f..0000000 --- a/Global_Indexer/frmHotKey_Add.vb +++ /dev/null @@ -1,825 +0,0 @@ -Public Class frmHotKey_Add - Dim Form_loaded As Boolean = False - Private Control_Sequence As Integer - Private Sub ObjektTypenEintragen() - Try - ' Combobox leeren - Me.cmbObjekttyp.Items.Clear() - ' alle Objekttypen durchlaufen - For Each otype As String In WINDREAM.ObjectTypes - ' und in die Combobox eintragen - Me.cmbObjekttyp.Items.Add(otype) - Next - - Catch ex As Exception - MsgBox("Fehlernachricht:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Unexpected error inm Eintragen der Objekttypen") - End Try - - End Sub - Private Sub btnpnlStart_weiter_Click(sender As Object, e As EventArgs) Handles btnpnlStart_weiter.Click - If ListBox_FormTitles.SelectedIndex <> -1 Then - GroupBox2_Controls.Visible = True - List_Controls(ListBox_FormTitles.SelectedItem, 1) - Else - GroupBox2_Controls.Visible = False - End If - End Sub - - Private Sub frmHotKey_Add_Load(sender As Object, e As EventArgs) Handles Me.Load - - Me.TBDD_USERTableAdapter.Connection.ConnectionString = MyConnectionString - Me.TBHOTKEY_PATTERNSTableAdapter.Connection.ConnectionString = MyConnectionString - Me.TBHOTKEY_PROFILETableAdapter.Connection.ConnectionString = MyConnectionString - Me.TBHOTKEY_USER_PROFILETableAdapter.Connection.ConnectionString = MyConnectionString - Me.TBHOTKEY_PATTERNS_REWORKTableAdapter.Connection.ConnectionString = MyConnectionString - Me.TBHOTKEY_WINDOW_HOOKTableAdapter.Connection.ConnectionString = MyConnectionString - TabControlDetails.SelectedIndex = 0 - TabControl1.SelectedIndex = 0 - Load_Profiles() - load_users() - GroupBox1.Visible = True - GroupBox2_Controls.Visible = False - GroupBoxMainWindow.Visible = False - If IDB_ACTIVE = False Then - ObjektTypenEintragen() - End If - - - End Sub - Sub load_users() - Try - Me.TBDD_USERTableAdapter.Fill(Me.MyDataset.TBDD_USER) - chklbUser.Items.Clear() - For Each row As DataRow In MyDataset.TBDD_USER.Rows - chklbUser.Items.Add(row.Item("USERNAME")) - Next - Catch ex As Exception - MsgBox("Fehlernachricht:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Unexpected error in Load_Users:") - End Try - End Sub - Sub Load_Profiles() - Try - Me.TBHOTKEY_PROFILETableAdapter.Fill(MyDataset.TBHOTKEY_PROFILE) - Catch ex As Exception - MsgBox("Fehlernachricht:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Unexpected error in Load_Profiles:") - End Try - End Sub - Sub List_FormTitles(Tabindex As Integer) - - Try - Select Case Tabindex - Case 1 - ListBox_FormTitles.Items.Clear() - Case 2 - ListBox_MainWindows_Test.Items.Clear() - ListViewControls_Test.Items.Clear() - End Select - Dim enumerator As New ClassWindowAPI - For Each top As ClassWindowAPI.ApiWindow In enumerator.GetTopLevelWindows() - If top.MainWindowTitle <> "" And top.MainWindowTitle <> "Global Indexer" And top.MainWindowTitle <> "Hot Key - Administration" Then - Select Case Tabindex - Case 1 - ListBox_FormTitles.Items.Add(top.MainWindowTitle) - Case 2 - ListBox_MainWindows_Test.Items.Add(top.MainWindowTitle) - End Select - End If - Next top - - Catch ex As Exception - MsgBox("Error in List_FormTitles: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) - End Try - End Sub - Private Function CheckFormTitle_isOpen(windowname As String) - Dim isopen As Boolean = False - Try - Dim enumerator As New ClassWindowAPI - For Each top As ClassWindowAPI.ApiWindow In enumerator.GetTopLevelWindows() - If top.MainWindowTitle <> "" And top.MainWindowTitle <> "Global Indexer" And top.MainWindowTitle <> "Hot Key - Administration" Then - If top.MainWindowTitle = windowname Then - Return True - End If - End If - Next top - Return False - Catch ex As Exception - MsgBox("Error in CheckFormTitle_isOpen: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) - Return False - End Try - End Function - - Sub List_Controls(Title As String, Tabindex As Integer) - ' Try - Select Case Tabindex - Case 1 - If GroupBox2_Controls.Visible = False Then - GroupBox2_Controls.Visible = True - End If - ListViewControls.Items.Clear() - txtControl.Text = "" - Case 2 - ListViewControls_Test.Items.Clear() - End Select - - Dim enumerator As New ClassWindowAPI - 'Jedes Fenster durchlaufen - For Each top As ClassWindowAPI.ApiWindow In enumerator.GetTopLevelWindows() - If top.MainWindowTitle.Contains(Title) Or top.MainWindowTitle.ToLower = Title.ToLower Then - Dim anz As Integer = 0 - Control_Sequence = 0 - 'Jedes Control durchlaufen - For Each child As ClassWindowAPI.ApiWindow In enumerator.GetChildWindows(top.hWnd) - Select Case Tabindex - Case 1 - If chkboxshowfilledControlsOnly.Checked Then - If child.MainWindowTitle <> "" Then - ListViewControls.Items.Add(Control_Sequence) - ListViewControls.Items(anz).SubItems.Add(child.hWnd.ToString) - ListViewControls.Items(anz).SubItems.Add(child.MainWindowTitle) - anz += 1 - End If - Else - ListViewControls.Items.Add(Control_Sequence) - ListViewControls.Items(anz).SubItems.Add(child.hWnd.ToString) - ListViewControls.Items(anz).SubItems.Add(child.MainWindowTitle) - anz += 1 - End If - Case 2 - If chkboxshowfilledControlsOnly_Test.Checked Then - If child.MainWindowTitle <> "" Then - ListViewControls_Test.Items.Add(Control_Sequence) - ListViewControls_Test.Items(anz).SubItems.Add(child.hWnd.ToString) - ListViewControls_Test.Items(anz).SubItems.Add(child.MainWindowTitle) - anz += 1 - End If - Else - ListViewControls_Test.Items.Add(Control_Sequence) - ListViewControls_Test.Items(anz).SubItems.Add(child.hWnd.ToString) - ListViewControls_Test.Items(anz).SubItems.Add(child.MainWindowTitle) - anz += 1 - End If - 'ListBox_Controls_Test.Items.Add("ID: " & child.hWnd.ToString & " || Aktueller Wert: " & child.MainWindowTitle) - End Select - Control_Sequence += 1 - Next child - End If - Next top - 'Catch ex As Exception - ' MsgBox("Error in List_Controls: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) - 'End Try - End Sub - - Private Sub ListBox_FormTitles_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox_FormTitles.SelectedIndexChanged - If ListBox_FormTitles.SelectedIndex <> -1 And GroupBox2_Controls.Visible = True Then - List_Controls(ListBox_FormTitles.SelectedItem, 1) - End If - End Sub - - Private Sub txtKey_KeyDown(sender As Object, e As KeyEventArgs) Handles txtKey.KeyDown - txtKey.Text = "" - End Sub - - Private Sub btnGB1_Click(sender As Object, e As EventArgs) Handles btnGB1.Click - If txtProfilname.Text <> "" And txtWDSearch.Text <> "" And txtKey.Text <> "" And cmbFunktionstaste.Text <> "" Then - Me.GroupBoxMainWindow.Visible = True - List_FormTitles(1) - Else - MsgBox("Eingabe fehlt!", MsgBoxStyle.Exclamation) - End If - End Sub - - Private Sub TBHOTKEY_PROFILEBindingNavigatorSaveItem_Click(sender As Object, e As EventArgs) - Me.Validate() - Me.TBHOTKEY_PROFILEBindingSource.EndEdit() - Me.TableAdapterManager.UpdateAll(Me.MyDataset) - - End Sub - - Private Sub Button1_Click(sender As Object, e As EventArgs) Handles btnadd_Pattern.Click - Try - lblLinkadd.Visible = False - If txtPattern.Text = "" Then - Exit Sub - End If - Dim sql As String = "select max(guid) from tbhotkey_Profile where upper(name) = Upper('" & txtProfilname.Text & "')" - Dim kopf = ClassDatabase.Execute_Scalar(sql, MyConnectionString, True) - If IsDBNull(kopf) Then - TBHOTKEY_PROFILETableAdapter.Insert(txtProfilname.Text, "NONE", txtWDSearch.Text, cmbFunktionstaste.Text, txtKey.Text.ToUpper, ListBox_FormTitles.SelectedItem, Environment.UserName) - Else - TBHOTKEY_PROFILETableAdapter.cmdUpdate(txtProfilname.Text, "NONE", txtWDSearch.Text, cmbFunktionstaste.Text, txtKey.Text.ToUpper, ListBox_FormTitles.SelectedItem, Environment.UserName, kopf) - End If - lblSaveHotkey.Visible = True - sql = "select max(guid) from tbhotkey_Profile where upper(name) = Upper('" & txtProfilname.Text & "')" - Dim id = ClassDatabase.Execute_Scalar(sql, MyConnectionString, True) - If id > 0 Then - TBHOTKEY_PATTERNSTableAdapter.Insert(id, txtPattern.Text, Control_ID, Environment.UserName, txtControl.Text) - lblLinkadd.Text = "Pattern-Link " & txtControl.Text & " || " & txtPattern.Text & " erfolgreich angelegt" - lblLinkadd.Visible = True - End If - Catch ex As Exception - MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error in Add Pattern or Profile:") - End Try - - End Sub - - Private Sub txtPattern_TextChanged(sender As Object, e As EventArgs) Handles txtPattern.TextChanged - - End Sub - - - Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click - If Not Me.txtWDSearch.Text = "" Then - Me.OFDWindreamsuche.FileName = Me.txtWDSearch.Text - End If - - If Me.OFDWindreamsuche.ShowDialog = Windows.Forms.DialogResult.OK Then - Me.txtWDSearch.Text = Me.OFDWindreamsuche.FileName - End If - End Sub - Private Sub TabControl1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles TabControlMain.SelectedIndexChanged - Select Case TabControlMain.SelectedIndex - - Case 0 - TabControl1.SelectedIndex = 0 - TabControlDetails.SelectedIndex = 0 - Load_Profiles() - Case 1 - If NAMETextBox.Text <> "" And CheckFormTitle_isOpen(WINDOW_NAMETextBox.Text) = True Then - btnnewProfile.Visible = True - txtProfilname.Text = NAMETextBox.Text - txtWDSearch.Text = WD_SEARCHTextBox.Text - cmbFunktionstaste.SelectedIndex = cmbFunktionstaste.FindStringExact(HOTKEY1ComboBox.Text) - txtKey.Text = HOTKEY2TextBox.Text - Me.GroupBoxMainWindow.Visible = True - List_FormTitles(1) - ListBox_FormTitles.SelectedIndex = ListBox_FormTitles.FindStringExact(WINDOW_NAMETextBox.Text) - ListBox_FormTitles.SetSelected(ListBox_FormTitles.SelectedIndex, True) - GroupBox2_Controls.Visible = True - If Not IsNothing(ListBox_FormTitles.SelectedItem) Then - List_Controls(ListBox_FormTitles.SelectedItem, 1) - End If - Else - btnnewProfile.Visible = False - Me.GroupBoxMainWindow.Visible = False - GroupBox2_Controls.Visible = False - txtProfilname.Text = "" - txtWDSearch.Text = "" - cmbFunktionstaste.SelectedIndex = -1 - txtKey.Text = "" - End If - Case 2 - List_FormTitles(2) - End Select - End Sub - - Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click - List_FormTitles(2) - End Sub - - Private Sub ListBox_MainWindows_Test_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox_MainWindows_Test.SelectedIndexChanged - If ListBox_MainWindows_Test.SelectedIndex <> -1 Then - List_Controls(ListBox_MainWindows_Test.SelectedItem, 2) - End If - End Sub - - Private Sub btndelete_Click(sender As Object, e As EventArgs) Handles btndelete.Click - Dim ID - Try - ID = GridView1.GetFocusedRowCellValue(GridView1.Columns("GUID")) - Catch ex As Exception - ID = 0 - End Try - If ID > 1 Then - Dim result As MsgBoxResult - result = MessageBox.Show("Sind Sie sicher dass Sie dieses Hotkeyprofil löschen wollen?", "Bestätigung erforderlich:", MessageBoxButtons.YesNo, MessageBoxIcon.Question) - If result = MsgBoxResult.Yes Then - Try - - Dim del As String = "DELETE FROM TBHOTKEY_USER_PROFILE WHERE HKPROFILE_ID = " & ID - If ClassDatabase.Execute_non_Query(del, True) = True Then - del = "DELETE FROM TBHOTKEY_PATTERNS_REWORK WHERE HKPATTERN_ID IN (SELECT GUID FROM TBHOTKEY_PATTERNS WHERE HKPROFILE_ID = " & ID & ")" - If ClassDatabase.Execute_non_Query(del, True) = True Then - del = "DELETE FROM TBHOTKEY_PATTERNS WHERE HKPROFILE_ID = " & ID - If ClassDatabase.Execute_non_Query(del, True) = True Then - del = "DELETE FROM TBHOTKEY_WINDOW_HOOK WHERE HKPROFILE_ID = " & ID - If ClassDatabase.Execute_non_Query(del, True) = True Then - del = "DELETE FROM TBHOTKEY_PROFILE WHERE GUID = " & ID - If ClassDatabase.Execute_non_Query(del, True) = True Then - LOGGER.Info(">> Hotkey-Profil: " & ID & " wurde gelöscht!") - Load_Profiles() - Load_UserForProfiles() - MsgBox("Profil wurde erfolgreich gelöscht!", MsgBoxStyle.Information, "Erfolgsmeldung") - End If - End If - End If - End If - End If - Catch ex As Exception - MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error in Delete Profiles: ") - End Try - End If - End If - End Sub - - Private Sub btnUserAdd_Profile_Click(sender As Object, e As EventArgs) Handles btnUserAdd_Profile.Click - Try - Dim added As Integer = 0 - Dim items As CheckedListBox.CheckedItemCollection = chklbUser.CheckedItems - Dim ID - Try - ID = GridView1.GetFocusedRowCellValue(GridView1.Columns("GUID")) - Catch ex As Exception - ID = 0 - End Try - If ID > 1 And items.Count > 0 Then - For Each item In items - Dim SQL - SQL = "SELECT GUID FROM TBDD_USER WHERE USERNAME = '" & item.ToString & "'" - Dim userid = ClassDatabase.Execute_Scalar(SQL, MyConnectionString, True) - - SQL = "SELECT COUNT(*) FROM TBHOTKEY_USER_PROFILE WHERE USER_ID = " & userid & " and HKPROFILE_ID = " & ID - Dim exists = ClassDatabase.Execute_Scalar(SQL, MyConnectionString, True) - If exists = 0 Then - TBHOTKEY_USER_PROFILETableAdapter.cmdInsert(userid, ID) - added += 1 - End If - - Next - - Else - MsgBox("Keine Benutzer und/oder kein Profil ausgewählt") - Exit Sub - End If - - If added >= 1 Then - MsgBox(added & " neue Profil/User-Verknüpfungen angelegt!", MsgBoxStyle.Information) - Load_UserForProfiles() - Else - MsgBox("Keine Verknüpfungen angelegt!", MsgBoxStyle.Information) - End If - - Catch ex As Exception - MsgBox("Error in Add MyHotkey: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) - End Try - End Sub - - Private Sub AlleAuswählenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AlleAuswählenToolStripMenuItem.Click - If TabControl1.SelectedIndex = 1 Then - For i = 0 To chklbUser.Items.Count - 1 - chklbUser.SetItemChecked(i, True) - Next - ElseIf TabControl1.SelectedIndex = 2 Then - For i = 0 To chklbUserProfile.Items.Count - 1 - chklbUserProfile.SetItemChecked(i, True) - Next - End If - - End Sub - - Private Sub KeineAuswählenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles KeineAuswählenToolStripMenuItem.Click - If TabControl1.SelectedIndex = 1 Then - For i = 0 To chklbUser.Items.Count - 1 - chklbUser.SetItemChecked(i, False) - Next - ElseIf TabControl1.SelectedIndex = 2 Then - For i = 0 To chklbUserProfile.Items.Count - 1 - chklbUserProfile.SetItemChecked(i, False) - Next - End If - - End Sub - - Private Sub TabControl2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles TabControl1.SelectedIndexChanged - GroupBoxPatterns.Visible = False - Select Case TabControl1.SelectedIndex - Case 0 - GroupBoxPatterns.Visible = True - Case 2 - Load_UserForProfiles() - End Select - End Sub - Sub Load_UserForProfiles() - Try - Dim ID - Try - ID = GridView1.GetFocusedRowCellValue(GridView1.Columns("GUID")) - Catch ex As Exception - ID = 0 - End Try - If ID > 1 Then - chklbUserProfile.Items.Clear() - Dim SQL = "SELECT T.USERNAME FROM TBHOTKEY_USER_PROFILE T1, TBDD_USER T WHERE T.GUID = T1.USER_ID and T1.HKPROFILE_ID = " & ID - Dim DT As DataTable = ClassDatabase.Return_Datatable(SQL, True) - If Not IsNothing(DT) Then - For Each dr As DataRow In DT.Rows - chklbUserProfile.Items.Add(dr.Item(0)) - Next - End If - End If - Catch ex As Exception - MsgBox("Error in LoadUserForProfiles: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) - End Try - End Sub - - Private Sub ListBox_Profiles_SelectedIndexChanged(sender As Object, e As EventArgs) - Dim ID - Try - ID = GridView1.GetFocusedRowCellValue(GridView1.Columns("GUID")) - Catch ex As Exception - ID = 0 - End Try - If ID > 0 Then - Select Case TabControl1.SelectedIndex - Case 1 - 'Try - ' TBHOTKEY_PROFILETableAdapter.FillByID(MyDataset.TBHOTKEY_PROFILE, ListBox_Profiles.SelectedValue) - 'Catch ex As Exception - ' MsgBox("Error in Fillby Profile-ID: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) - 'End Try - Load_Patterns() - Load_MatchPatterns() - Case 2 - Load_UserForProfiles() - End Select - lblSave.Visible = False - End If - - - End Sub - Sub Load_Patterns() - Try - TBHOTKEY_PATTERNSTableAdapter.Fill(MyDataset.TBHOTKEY_PATTERNS, GUIDTextBox.Text) - tslbl_Hotkeywindow.Text = WINDOW_NAMETextBox.Text - tslbl_HotkeySequence.Text = SEQUENCE_NUMBERTextBox.Text - Catch ex As Exception - MsgBox("Error in Fill Patterns: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) - End Try - End Sub - Sub Load_MatchPatterns() - Try - TBHOTKEY_WINDOW_HOOKTableAdapter.Fill(MyDataset.TBHOTKEY_WINDOW_HOOK, GUIDTextBox.Text) - Catch ex As Exception - MsgBox("Error in Fill Match-Patterns: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) - End Try - End Sub - Private Sub btndeleteUserProfile_Click(sender As Object, e As EventArgs) Handles btndeleteUserProfile.Click - Try - Dim deleted As Integer = 0 - Dim items As CheckedListBox.CheckedItemCollection = chklbUserProfile.CheckedItems - Dim ID - Try - ID = GridView1.GetFocusedRowCellValue(GridView1.Columns("GUID")) - Catch ex As Exception - ID = 0 - End Try - If ID > 1 And items.Count > 0 Then - For Each item In items - Dim SQL - SQL = "SELECT GUID FROM TBDD_USER WHERE USERNAME = '" & item.ToString & "'" - Dim userid = ClassDatabase.Execute_Scalar(SQL, MyConnectionString, True) - If IsNothing(userid) Then - MsgBox("Unerwarteter Unexpected error inm Holen der User-ID!", MsgBoxStyle.Exclamation) - Exit Sub - End If - SQL = "SELECT GUID FROM TBHOTKEY_USER_PROFILE WHERE USER_ID = " & userid & " and HKPROFILE_ID = " & ID - Dim ID1 = ClassDatabase.Execute_Scalar(SQL, MyConnectionString, True) - If ID1 > 0 Then - TBHOTKEY_USER_PROFILETableAdapter.Delete(ID1) - deleted += 1 - End If - Next - - Else - MsgBox("Keine Benutzer und/oder kein Profil ausgewählt") - Exit Sub - End If - - If deleted >= 1 Then - MsgBox(deleted & " Profilbeziehungen wurden gelöscht!", MsgBoxStyle.Information) - Load_UserForProfiles() - End If - Catch ex As Exception - MsgBox("Error in Delete Profile for Users: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) - End Try - End Sub - - Private Sub btnsave_Click(sender As Object, e As EventArgs) Handles btnsave.Click - Try - TBHOTKEY_PROFILEBindingSource.EndEdit() - If Me.MyDataset.TBHOTKEY_PROFILE.GetChanges Is Nothing = False Then - Me.CHANGED_WHOTextBox.Text = Environment.UserName - TBHOTKEY_PROFILEBindingSource.EndEdit() - TBHOTKEY_PROFILETableAdapter.Update(MyDataset.TBHOTKEY_PROFILE) - Me.lblSave.Visible = True - Dim result As MsgBoxResult - If USER_LANGUAGE = "de-DE" Then - result = MessageBox.Show("Wollen Sie die Änderungen im Hotkey-Profil auch in den Userprofilen vornehmen?", "Bestätigung erforderlich:", MessageBoxButtons.YesNo, MessageBoxIcon.Question) - Else - result = MessageBox.Show("Dow You want to update the userprofiles also with the changes in the profile?", "Confirmation required:", MessageBoxButtons.YesNo, MessageBoxIcon.Question) - End If - If result = MsgBoxResult.Yes Then - Try - Dim update = "UPDATE TBHOTKEY_USER_PROFILE SET WD_SEARCH = '" & WD_SEARCHTextBox.Text & "', HOTKEY1 = '" & HOTKEY1ComboBox.Text & "', HOTKEY2 = '" & HOTKEY2TextBox.Text & "' WHERE HKPROFILE_ID = " & GUIDTextBox.Text - If ClassDatabase.Execute_non_Query(update, True) Then - If USER_LANGUAGE = "de-DE" Then - MsgBox("User-Profile erfolgreich aktualisiert!", MsgBoxStyle.Information) - Else - MsgBox("Userprofiles successfull updated!", MsgBoxStyle.Information) - End If - End If - Catch ex As Exception - MsgBox("Error in Refresh Userprofiles: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) - End Try - End If - Else - Me.lblSave.Visible = False - End If - Catch ex As Exception - MsgBox("Error in Save My Profile: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) - End Try - End Sub - - Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click - If Not Me.WD_SEARCHTextBox.Text = "" Then - Me.OFDWindreamsuche.FileName = Me.WD_SEARCHTextBox.Text - End If - - If Me.OFDWindreamsuche.ShowDialog = Windows.Forms.DialogResult.OK Then - Me.WD_SEARCHTextBox.Text = Me.OFDWindreamsuche.FileName - End If - End Sub - - Private Sub Fill_Rework(PATT_ID As Integer) - Try - Me.TBHOTKEY_PATTERNS_REWORKTableAdapter.Fill(Me.MyDataset.TBHOTKEY_PATTERNS_REWORK, PATT_ID) - Catch ex As System.Exception - MsgBox("Error in Load Rework-Step:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) - End Try - - End Sub - - - Private Sub ListBoxPatterns_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBoxPatterns.SelectedIndexChanged - If ListBoxPatterns.SelectedIndex <> -1 Then - Fill_Rework(ListBoxPatterns.SelectedValue) - tslbl_Hotkeywindow.Text = WINDOW_NAMETextBox.Text - tslbl_HotkeySequence.Text = SEQUENCE_NUMBERTextBox.Text - End If - End Sub - - - Private Sub ToolStripButton1_Click(sender As Object, e As EventArgs) Handles ToolStripButton1.Click - Try - TBHOTKEY_PATTERNS_REWORKBindingSource.EndEdit() - If Me.MyDataset.TBHOTKEY_PATTERNS_REWORK.GetChanges Is Nothing = False Then - Me.CHANGED_WHOTextBox1.Text = Environment.UserName - TBHOTKEY_PATTERNS_REWORKBindingSource.EndEdit() - TBHOTKEY_PATTERNS_REWORKTableAdapter.Update(MyDataset.TBHOTKEY_PATTERNS_REWORK) - Me.lblsavePatternsRework.Visible = True - Else - Me.lblsavePatternsRework.Visible = False - End If - Catch ex As Exception - MsgBox("Error in Save Reowrk Patterns: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) - End Try - End Sub - - Private Sub TBHOTKEY_PATTERNSBindingSource_AddingNew(sender As Object, e As System.ComponentModel.AddingNewEventArgs) Handles TBHOTKEY_PATTERNSBindingSource.AddingNew - MyDataset.TBHOTKEY_PATTERNS_REWORK.ADDED_WHOColumn.DefaultValue = Environment.UserName - End Sub - Private Sub TYPEComboBox_SelectedIndexChanged(sender As Object, e As EventArgs) Handles TYPEComboBox.SelectedIndexChanged - If TYPEComboBox.SelectedIndex <> -1 Then - Me.TEXT1TextBox.Visible = True - Me.Text1Label.Visible = True - Me.TEXT2TextBox.Visible = True - Me.Text2Label.Visible = True - Me.btnRegexTest.Visible = False - - TEXT1TextBox.Size = New Size(50, 22) - lblHinweisRework1.Visible = False - - Me.FUNCTION1TextBox.Visible = False - Me.FUNCTION2TextBox.Visible = False - Me.Function1Label.Visible = False - Me.Function2Label.Visible = False - FUNCTION1TextBox.Size = New Size(111, 22) - - Select Case TYPEComboBox.Text - Case "VBREPLACE" - Me.Text1Label.Text = "Old Value:" - Me.Text2Label.Text = "New Value:" - - Case "VBSPLIT" - Me.Text1Label.Text = "Split-Zeichen:" - lblHinweisRework1.Text = "(Zahl) - Achtung Nullbasierend: Erstes Vorkommen = '0'" - lblHinweisRework1.Visible = True - Me.Text2Label.Text = "Vorkommen:" - Case "Regular Expression" - Me.Text1Label.Text = "Regular Expression:" - TEXT1TextBox.Size = New Size(400, 22) - Me.Text2Label.Visible = False - Me.TEXT2TextBox.Visible = False - - Me.Function1Label.Text = "Test-String Regex:" - Me.FUNCTION1TextBox.Text = "" - FUNCTION1TextBox.Size = New Size(138, 22) - Me.FUNCTION1TextBox.Visible = True - Me.Function1Label.Visible = True - Me.btnRegexTest.Visible = True - End Select - End If - End Sub - Private Sub TBHOTKEY_PATTERNS_REWORKBindingSource_AddingNew(sender As Object, e As System.ComponentModel.AddingNewEventArgs) Handles TBHOTKEY_PATTERNS_REWORKBindingSource.AddingNew - If ListBoxPatterns.SelectedIndex <> -1 Then - MyDataset.TBHOTKEY_PATTERNS_REWORK.ADDED_WHOColumn.DefaultValue = Environment.UserName - MyDataset.TBHOTKEY_PATTERNS_REWORK.HKPATTERN_IDColumn.DefaultValue = ListBoxPatterns.SelectedValue - End If - - End Sub - - Private Sub GUIDTextBox_TextChanged(sender As Object, e As EventArgs) Handles GUIDTextBox.TextChanged - If GUIDTextBox.Text <> "" Then - Load_Patterns() - Load_MatchPatterns() - End If - End Sub - - Private Sub GUIDTextBox2_TextChanged(sender As Object, e As EventArgs) Handles GUIDTextBox2.TextChanged - If GUIDTextBox2.Text <> "" Then - Fill_Rework(GUIDTextBox2.Text) - End If - End Sub - - Private Sub btnRegexTest_Click(sender As Object, e As EventArgs) Handles btnRegexTest.Click - If Me.TEXT1TextBox.Text <> "" And FUNCTION1TextBox.Text <> "" Then - Dim RegexList As New List(Of System.Text.RegularExpressions.Regex) - Dim Regex As New System.Text.RegularExpressions.Regex(Me.TEXT1TextBox.Text, System.Text.RegularExpressions.RegexOptions.IgnoreCase) - - RegexList.Add(Regex) - - ' Email Absender und Empfänger - Dim result = ClassPostprocessing.extractFromStringviaRE(FUNCTION1TextBox.Text, RegexList) - If Not IsNothing(result) Then - MsgBox("Das Ergebnis der Regular-Expression: '" & result.ToString & "'!", MsgBoxStyle.Information) - Else - MsgBox("Es konnte kein Ergebnis ermittelt werden!", MsgBoxStyle.Exclamation) - End If - - End If - - - End Sub - Dim Control_ID As String - Private Sub ListViewControls_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListViewControls.SelectedIndexChanged - If Me.ListViewControls.SelectedItems.Count > 0 Then - Control_ID = Me.ListViewControls.SelectedItems(0).SubItems(1).Text - txtControl.Text = ListViewControls.SelectedItems(0).Text - txtControl_Match.Text = ListViewControls.SelectedItems(0).Text - txtValueMatch.Text = Me.ListViewControls.SelectedItems(0).SubItems(2).Text - txtPattern.Text = "" - If lblLinkadd.Visible Then - ListBox_FormTitles.Enabled = False - End If - End If - End Sub - - Private Sub chkboxshowfilledControlsOnly_Test_CheckedChanged(sender As Object, e As EventArgs) Handles chkboxshowfilledControlsOnly_Test.CheckedChanged - If ListBox_MainWindows_Test.SelectedIndex <> -1 Then - List_Controls(ListBox_MainWindows_Test.SelectedItem, 2) - End If - End Sub - - Private Sub chkboxshowfilledControlsOnly_CheckedChanged(sender As Object, e As EventArgs) Handles chkboxshowfilledControlsOnly.CheckedChanged - If ListBox_FormTitles.SelectedIndex <> -1 Then - List_Controls(ListBox_FormTitles.SelectedItem, 1) - End If - End Sub - - Private Sub btnadd_WindowMatch_Click(sender As Object, e As EventArgs) Handles btnadd_WindowMatch.Click - Try - Dim sql As String = "select max(guid) from tbhotkey_Profile where upper(name) = Upper('" & txtProfilname.Text & "')" - Dim kopf = ClassDatabase.Execute_Scalar(sql, MyConnectionString, True) - If IsDBNull(kopf) Then - TBHOTKEY_PROFILETableAdapter.Insert(txtProfilname.Text, "NONE", txtWDSearch.Text, cmbFunktionstaste.Text, txtKey.Text.ToUpper, ListBox_FormTitles.SelectedItem, Environment.UserName) - Else - TBHOTKEY_PROFILETableAdapter.cmdUpdate(txtProfilname.Text, "NONE", txtWDSearch.Text, cmbFunktionstaste.Text, txtKey.Text.ToUpper, ListBox_FormTitles.SelectedItem, Environment.UserName, kopf) - End If - lblSaveHotkey.Visible = True - sql = "select max(guid) from tbhotkey_Profile where upper(name) = Upper('" & txtProfilname.Text & "')" - Dim id = ClassDatabase.Execute_Scalar(sql, MyConnectionString, True) - If id > 0 Then - TBHOTKEY_WINDOW_HOOKTableAdapter.Insert(id, txtControl_Match.Text, txtValueMatch.Text, Environment.UserName) - lblMatchadd.Text = "Control-Matching " & txtControl_Match.Text & " || " & txtValueMatch.Text & " erfolgreich angelegt" - lblMatchadd.Visible = True - lblLinkadd.Visible = False - End If - Catch ex As Exception - MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error in Add Control-Match:") - End Try - End Sub - - Private Sub tsbtnsave_pattern_Click(sender As Object, e As EventArgs) Handles tsbtnsave_pattern.Click - Try - TBHOTKEY_PATTERNSBindingSource.EndEdit() - If Me.MyDataset.TBHOTKEY_PATTERNS.GetChanges Is Nothing = False Then - Me.CHANGED_WHOTextBox2.Text = Environment.UserName - TBHOTKEY_PATTERNSBindingSource.EndEdit() - TBHOTKEY_PATTERNSTableAdapter.Update(MyDataset.TBHOTKEY_PATTERNS) - Me.lblSavePAttern.Visible = True - Else - Me.lblSavePAttern.Visible = False - End If - Catch ex As Exception - MsgBox("Error in Save Patterns: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) - End Try - End Sub - - Private Sub ToolStripButton2_Click(sender As Object, e As EventArgs) Handles ToolStripButton2.Click - Dim result As MsgBoxResult - result = MessageBox.Show("Sind Sie sicher dass Sie diesen Control-Match löschen wollen?", "Bestätigung erforderlich:", MessageBoxButtons.YesNo, MessageBoxIcon.Question) - If result = MsgBoxResult.Yes Then - Try - TBHOTKEY_WINDOW_HOOKTableAdapter.Delete(GUIDTextBox3.Text) - Load_MatchPatterns() - Catch ex As Exception - MsgBox("Error in Delete Control-Match: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) - End Try - End If - End Sub - - Private Sub Button4_Click(sender As Object, e As EventArgs) Handles btnnewProfile.Click - txtProfilname.Text = "" - txtWDSearch.Text = "" - cmbFunktionstaste.SelectedIndex = -1 - txtKey.Text = "" - GroupBoxMainWindow.Visible = False - GroupBox2_Controls.Visible = False - ListBox_FormTitles.Enabled = True - btnAddCopypasteConfig.Enabled = True - End Sub - - Private Sub TEXT1TextBox_TextChanged(sender As Object, e As EventArgs) Handles TEXT1TextBox.TextChanged - If TEXT1TextBox.Text = " " Then - TEXT1TextBox.SelectAll() - TEXT1TextBox.BackColor = Color.DarkOrange - TEXT1TextBox.ForeColor = Color.White - Else - TEXT1TextBox.BackColor = Color.White - TEXT1TextBox.ForeColor = Color.Black - End If - End Sub - - Private Sub frmHotKey_Add_Shown(sender As Object, e As EventArgs) Handles Me.Shown - Form_loaded = True - If GUIDTextBox.Text <> String.Empty Then - GroupBoxPatterns.Visible = True - End If - - End Sub - - Private Sub chklbUser_MouseEnter(sender As Object, e As EventArgs) Handles chklbUser.MouseEnter - ToolTipController1.ShowHint("Rechtsklick für weitere Funktionen", "Hinweis:", DevExpress.Utils.ToolTipLocation.RightCenter) - End Sub - Private Sub chklbUser_MouseLeave(sender As Object, e As EventArgs) Handles chklbUser.MouseLeave - ToolTipController1.HideHint() - End Sub - - Private Sub btnAddCopypasteConfig_Click(sender As Object, e As EventArgs) Handles btnAddCopypasteConfig.Click - Try - lblLinkCopyPaste.Visible = False - If txtcopypastePatter.Text = "" Then - Exit Sub - End If - Dim sql As String = "select max(guid) from tbhotkey_Profile where upper(name) = Upper('" & txtProfilname.Text & "')" - Dim kopfid = ClassDatabase.Execute_Scalar(sql, MyConnectionString, True) - If IsDBNull(kopfid) Then - TBHOTKEY_PROFILETableAdapter.Insert(txtProfilname.Text, "COPYPASTE", txtWDSearch.Text, cmbFunktionstaste.Text, txtKey.Text.ToUpper, ListBox_FormTitles.SelectedItem, Environment.UserName) - Else - TBHOTKEY_PROFILETableAdapter.cmdUpdate(txtProfilname.Text, "COPYPASTE", txtWDSearch.Text, cmbFunktionstaste.Text, txtKey.Text.ToUpper, ListBox_FormTitles.SelectedItem, Environment.UserName, kopfid) - End If - lblSaveHotkey.Visible = True - sql = "select max(guid) from tbhotkey_Profile where upper(name) = Upper('" & txtProfilname.Text & "')" - Dim id = ClassDatabase.Execute_Scalar(sql, MyConnectionString, True) - If id > 0 Then - TBHOTKEY_PATTERNSTableAdapter.Insert(id, txtcopypastePatter.Text, cmbCopyPasteFunction.Text, Environment.UserName, txtControl.Text) - lblLinkCopyPaste.Text = "Pattern-Link " & cmbCopyPasteFunction.Text & " || " & txtcopypastePatter.Text & " erfolgreich angelegt" - lblLinkCopyPaste.Visible = True - btnAddCopypasteConfig.Enabled = False - End If - Catch ex As Exception - MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error in CopyPaste Add Pattern or Profile:") - End Try - End Sub - - Private Sub cmbCopyPasteFunction_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cmbCopyPasteFunction.SelectedIndexChanged - - End Sub - - Private Sub chklbUserProfile_MouseEnter(sender As Object, e As EventArgs) Handles chklbUserProfile.MouseEnter - ToolTipController1.ShowHint("Rechtsklick für weitere Funktionen", "Hinweis:", DevExpress.Utils.ToolTipLocation.RightCenter) - End Sub - - Private Sub chklbUserProfile_MouseLeave(sender As Object, e As EventArgs) Handles chklbUserProfile.MouseLeave - ToolTipController1.HideHint() - End Sub -End Class \ No newline at end of file diff --git a/Global_Indexer/frmHotkey_User.Designer.vb b/Global_Indexer/frmHotkey_User.Designer.vb deleted file mode 100644 index 31e6adf..0000000 --- a/Global_Indexer/frmHotkey_User.Designer.vb +++ /dev/null @@ -1,343 +0,0 @@ - _ -Partial Class frmHotkey_User - 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 - components.Dispose() - End If - Finally - MyBase.Dispose(disposing) - End Try - End Sub - - 'Wird vom Windows Form-Designer benötigt. - Private components As System.ComponentModel.IContainer - - '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 WD_SEARCHLabel As System.Windows.Forms.Label - Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmHotkey_User)) - Dim HOTKEY2Label As System.Windows.Forms.Label - Dim ADDED_WHENLabel As System.Windows.Forms.Label - Dim CHANGED_WHOLabel As System.Windows.Forms.Label - Dim CHANGED_WHENLabel As System.Windows.Forms.Label - Dim HOTKEY1Label As System.Windows.Forms.Label - Me.StatusStrip1 = New System.Windows.Forms.StatusStrip() - Me.Label1 = New System.Windows.Forms.Label() - Me.MyDataset = New Global_Indexer.MyDataset() - Me.TBHOTKEY_PROFILEBindingSource = New System.Windows.Forms.BindingSource(Me.components) - Me.TBHOTKEY_PROFILETableAdapter = New Global_Indexer.MyDatasetTableAdapters.TBHOTKEY_PROFILETableAdapter() - Me.TableAdapterManager = New Global_Indexer.MyDatasetTableAdapters.TableAdapterManager() - Me.ListBox1 = New System.Windows.Forms.ListBox() - Me.ListBoxMyHK = New System.Windows.Forms.ListBox() - Me.TBMYHOTKEYSBindingSource = New System.Windows.Forms.BindingSource(Me.components) - Me.lblmeinehotkeys = New System.Windows.Forms.Label() - Me.TBMYHOTKEYSTableAdapter = New Global_Indexer.MyDatasetTableAdapters.TBMYHOTKEYSTableAdapter() - Me.btnAddtomyHK = New System.Windows.Forms.Button() - Me.TBHOTKEY_USER_PROFILEBindingSource = New System.Windows.Forms.BindingSource(Me.components) - Me.TBHOTKEY_USER_PROFILETableAdapter = New Global_Indexer.MyDatasetTableAdapters.TBHOTKEY_USER_PROFILETableAdapter() - Me.WD_SEARCHTextBox = New System.Windows.Forms.TextBox() - Me.HOTKEY2TextBox = New System.Windows.Forms.TextBox() - Me.ADDED_WHENTextBox = New System.Windows.Forms.TextBox() - Me.CHANGED_WHOTextBox = New System.Windows.Forms.TextBox() - Me.CHANGED_WHENTextBox = New System.Windows.Forms.TextBox() - Me.GroupBox1 = New System.Windows.Forms.GroupBox() - Me.chkbxMaximizeWS = New System.Windows.Forms.CheckBox() - Me.Button1 = New System.Windows.Forms.Button() - Me.lblSave = New System.Windows.Forms.Label() - Me.btnsave = New System.Windows.Forms.Button() - Me.HOTKEY1ComboBox = New System.Windows.Forms.ComboBox() - Me.btndelete = New System.Windows.Forms.Button() - Me.OFDWindreamsuche = New System.Windows.Forms.OpenFileDialog() - WD_SEARCHLabel = New System.Windows.Forms.Label() - HOTKEY2Label = New System.Windows.Forms.Label() - ADDED_WHENLabel = New System.Windows.Forms.Label() - CHANGED_WHOLabel = New System.Windows.Forms.Label() - CHANGED_WHENLabel = New System.Windows.Forms.Label() - HOTKEY1Label = New System.Windows.Forms.Label() - CType(Me.MyDataset, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.TBHOTKEY_PROFILEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.TBMYHOTKEYSBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.TBHOTKEY_USER_PROFILEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() - Me.GroupBox1.SuspendLayout() - Me.SuspendLayout() - ' - 'WD_SEARCHLabel - ' - resources.ApplyResources(WD_SEARCHLabel, "WD_SEARCHLabel") - WD_SEARCHLabel.Name = "WD_SEARCHLabel" - ' - 'HOTKEY2Label - ' - resources.ApplyResources(HOTKEY2Label, "HOTKEY2Label") - HOTKEY2Label.Name = "HOTKEY2Label" - ' - 'ADDED_WHENLabel - ' - resources.ApplyResources(ADDED_WHENLabel, "ADDED_WHENLabel") - ADDED_WHENLabel.Name = "ADDED_WHENLabel" - ' - 'CHANGED_WHOLabel - ' - resources.ApplyResources(CHANGED_WHOLabel, "CHANGED_WHOLabel") - CHANGED_WHOLabel.Name = "CHANGED_WHOLabel" - ' - 'CHANGED_WHENLabel - ' - resources.ApplyResources(CHANGED_WHENLabel, "CHANGED_WHENLabel") - CHANGED_WHENLabel.Name = "CHANGED_WHENLabel" - ' - 'HOTKEY1Label - ' - resources.ApplyResources(HOTKEY1Label, "HOTKEY1Label") - HOTKEY1Label.Name = "HOTKEY1Label" - ' - 'StatusStrip1 - ' - resources.ApplyResources(Me.StatusStrip1, "StatusStrip1") - Me.StatusStrip1.Name = "StatusStrip1" - ' - 'Label1 - ' - resources.ApplyResources(Me.Label1, "Label1") - Me.Label1.Name = "Label1" - ' - 'MyDataset - ' - Me.MyDataset.DataSetName = "MyDataset" - Me.MyDataset.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema - ' - 'TBHOTKEY_PROFILEBindingSource - ' - Me.TBHOTKEY_PROFILEBindingSource.DataMember = "TBHOTKEY_PROFILE" - Me.TBHOTKEY_PROFILEBindingSource.DataSource = Me.MyDataset - ' - 'TBHOTKEY_PROFILETableAdapter - ' - Me.TBHOTKEY_PROFILETableAdapter.ClearBeforeFill = True - ' - 'TableAdapterManager - ' - Me.TableAdapterManager.BackupDataSetBeforeUpdate = False - Me.TableAdapterManager.TBDD_CONNECTIONTableAdapter = Nothing - Me.TableAdapterManager.TBDD_DOKUMENTARTTableAdapter = Nothing - Me.TableAdapterManager.TBDD_EINGANGSARTENTableAdapter = Nothing - Me.TableAdapterManager.TBDD_GROUPS_USERTableAdapter = Nothing - Me.TableAdapterManager.TBDD_INDEX_AUTOMTableAdapter = Nothing - Me.TableAdapterManager.TBDD_INDEX_MAN_POSTPROCESSINGTableAdapter = Nothing - Me.TableAdapterManager.TBDD_INDEX_MANTableAdapter = Nothing - Me.TableAdapterManager.TBDD_USERTableAdapter = Nothing - Me.TableAdapterManager.TBGI_CONFIGURATIONTableAdapter = Nothing - Me.TableAdapterManager.TBGI_OBJECTTYPE_EMAIL_INDEXTableAdapter = Nothing - Me.TableAdapterManager.TBHOTKEY_PATTERNS_REWORKTableAdapter = Nothing - Me.TableAdapterManager.TBHOTKEY_PATTERNSTableAdapter = Nothing - Me.TableAdapterManager.TBHOTKEY_PROFILETableAdapter = Me.TBHOTKEY_PROFILETableAdapter - Me.TableAdapterManager.TBHOTKEY_USER_PROFILETableAdapter = Nothing - Me.TableAdapterManager.TBHOTKEY_WINDOW_HOOKTableAdapter = Nothing - Me.TableAdapterManager.UpdateOrder = Global_Indexer.MyDatasetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete - ' - 'ListBox1 - ' - resources.ApplyResources(Me.ListBox1, "ListBox1") - Me.ListBox1.DataSource = Me.TBHOTKEY_PROFILEBindingSource - Me.ListBox1.DisplayMember = "String" - Me.ListBox1.FormattingEnabled = True - Me.ListBox1.Name = "ListBox1" - Me.ListBox1.ValueMember = "GUID" - ' - 'ListBoxMyHK - ' - resources.ApplyResources(Me.ListBoxMyHK, "ListBoxMyHK") - Me.ListBoxMyHK.DataSource = Me.TBMYHOTKEYSBindingSource - Me.ListBoxMyHK.DisplayMember = "String" - Me.ListBoxMyHK.FormattingEnabled = True - Me.ListBoxMyHK.Name = "ListBoxMyHK" - Me.ListBoxMyHK.ValueMember = "GUID" - ' - 'TBMYHOTKEYSBindingSource - ' - Me.TBMYHOTKEYSBindingSource.DataMember = "TBMYHOTKEYS" - Me.TBMYHOTKEYSBindingSource.DataSource = Me.MyDataset - ' - 'lblmeinehotkeys - ' - resources.ApplyResources(Me.lblmeinehotkeys, "lblmeinehotkeys") - Me.lblmeinehotkeys.Name = "lblmeinehotkeys" - ' - 'TBMYHOTKEYSTableAdapter - ' - Me.TBMYHOTKEYSTableAdapter.ClearBeforeFill = True - ' - 'btnAddtomyHK - ' - resources.ApplyResources(Me.btnAddtomyHK, "btnAddtomyHK") - Me.btnAddtomyHK.Image = Global.Global_Indexer.My.Resources.Resources.arrow_Forward_16xMD - Me.btnAddtomyHK.Name = "btnAddtomyHK" - Me.btnAddtomyHK.UseVisualStyleBackColor = True - ' - 'TBHOTKEY_USER_PROFILEBindingSource - ' - Me.TBHOTKEY_USER_PROFILEBindingSource.DataMember = "TBHOTKEY_USER_PROFILE" - Me.TBHOTKEY_USER_PROFILEBindingSource.DataSource = Me.MyDataset - ' - 'TBHOTKEY_USER_PROFILETableAdapter - ' - Me.TBHOTKEY_USER_PROFILETableAdapter.ClearBeforeFill = True - ' - 'WD_SEARCHTextBox - ' - resources.ApplyResources(Me.WD_SEARCHTextBox, "WD_SEARCHTextBox") - Me.WD_SEARCHTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBHOTKEY_USER_PROFILEBindingSource, "WD_SEARCH", True)) - Me.WD_SEARCHTextBox.Name = "WD_SEARCHTextBox" - ' - 'HOTKEY2TextBox - ' - resources.ApplyResources(Me.HOTKEY2TextBox, "HOTKEY2TextBox") - Me.HOTKEY2TextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBHOTKEY_USER_PROFILEBindingSource, "HOTKEY2", True)) - Me.HOTKEY2TextBox.Name = "HOTKEY2TextBox" - ' - 'ADDED_WHENTextBox - ' - resources.ApplyResources(Me.ADDED_WHENTextBox, "ADDED_WHENTextBox") - Me.ADDED_WHENTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBHOTKEY_USER_PROFILEBindingSource, "ADDED_WHEN", True)) - Me.ADDED_WHENTextBox.Name = "ADDED_WHENTextBox" - ' - 'CHANGED_WHOTextBox - ' - resources.ApplyResources(Me.CHANGED_WHOTextBox, "CHANGED_WHOTextBox") - Me.CHANGED_WHOTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBHOTKEY_USER_PROFILEBindingSource, "CHANGED_WHO", True)) - Me.CHANGED_WHOTextBox.Name = "CHANGED_WHOTextBox" - ' - 'CHANGED_WHENTextBox - ' - resources.ApplyResources(Me.CHANGED_WHENTextBox, "CHANGED_WHENTextBox") - Me.CHANGED_WHENTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBHOTKEY_USER_PROFILEBindingSource, "CHANGED_WHEN", True)) - Me.CHANGED_WHENTextBox.Name = "CHANGED_WHENTextBox" - ' - 'GroupBox1 - ' - resources.ApplyResources(Me.GroupBox1, "GroupBox1") - Me.GroupBox1.Controls.Add(Me.chkbxMaximizeWS) - Me.GroupBox1.Controls.Add(Me.Button1) - Me.GroupBox1.Controls.Add(Me.lblSave) - Me.GroupBox1.Controls.Add(Me.btnsave) - Me.GroupBox1.Controls.Add(Me.HOTKEY1ComboBox) - Me.GroupBox1.Controls.Add(Me.CHANGED_WHENTextBox) - Me.GroupBox1.Controls.Add(CHANGED_WHENLabel) - Me.GroupBox1.Controls.Add(HOTKEY1Label) - Me.GroupBox1.Controls.Add(WD_SEARCHLabel) - Me.GroupBox1.Controls.Add(Me.CHANGED_WHOTextBox) - Me.GroupBox1.Controls.Add(CHANGED_WHOLabel) - Me.GroupBox1.Controls.Add(Me.WD_SEARCHTextBox) - Me.GroupBox1.Controls.Add(HOTKEY2Label) - Me.GroupBox1.Controls.Add(Me.ADDED_WHENTextBox) - Me.GroupBox1.Controls.Add(ADDED_WHENLabel) - Me.GroupBox1.Controls.Add(Me.HOTKEY2TextBox) - Me.GroupBox1.Name = "GroupBox1" - Me.GroupBox1.TabStop = False - ' - 'chkbxMaximizeWS - ' - resources.ApplyResources(Me.chkbxMaximizeWS, "chkbxMaximizeWS") - Me.chkbxMaximizeWS.CheckState = System.Windows.Forms.CheckState.Checked - Me.chkbxMaximizeWS.Name = "chkbxMaximizeWS" - Me.chkbxMaximizeWS.UseVisualStyleBackColor = True - ' - 'Button1 - ' - resources.ApplyResources(Me.Button1, "Button1") - Me.Button1.Name = "Button1" - Me.Button1.UseVisualStyleBackColor = True - ' - 'lblSave - ' - resources.ApplyResources(Me.lblSave, "lblSave") - Me.lblSave.BackColor = System.Drawing.Color.Yellow - Me.lblSave.Name = "lblSave" - ' - 'btnsave - ' - resources.ApplyResources(Me.btnsave, "btnsave") - Me.btnsave.Image = Global.Global_Indexer.My.Resources.Resources.save_16xLG - Me.btnsave.Name = "btnsave" - Me.btnsave.UseVisualStyleBackColor = True - ' - 'HOTKEY1ComboBox - ' - resources.ApplyResources(Me.HOTKEY1ComboBox, "HOTKEY1ComboBox") - Me.HOTKEY1ComboBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBHOTKEY_USER_PROFILEBindingSource, "HOTKEY1", True)) - Me.HOTKEY1ComboBox.FormattingEnabled = True - Me.HOTKEY1ComboBox.Items.AddRange(New Object() {resources.GetString("HOTKEY1ComboBox.Items"), resources.GetString("HOTKEY1ComboBox.Items1"), resources.GetString("HOTKEY1ComboBox.Items2"), resources.GetString("HOTKEY1ComboBox.Items3")}) - Me.HOTKEY1ComboBox.Name = "HOTKEY1ComboBox" - ' - 'btndelete - ' - resources.ApplyResources(Me.btndelete, "btndelete") - Me.btndelete.Image = Global.Global_Indexer.My.Resources.Resources.delete_12x12 - Me.btndelete.Name = "btndelete" - Me.btndelete.UseVisualStyleBackColor = True - ' - 'OFDWindreamsuche - ' - resources.ApplyResources(Me.OFDWindreamsuche, "OFDWindreamsuche") - Me.OFDWindreamsuche.RestoreDirectory = True - ' - 'frmHotkey_User - ' - resources.ApplyResources(Me, "$this") - Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font - Me.Controls.Add(Me.btndelete) - Me.Controls.Add(Me.GroupBox1) - Me.Controls.Add(Me.btnAddtomyHK) - Me.Controls.Add(Me.lblmeinehotkeys) - Me.Controls.Add(Me.ListBoxMyHK) - Me.Controls.Add(Me.ListBox1) - Me.Controls.Add(Me.Label1) - Me.Controls.Add(Me.StatusStrip1) - Me.Name = "frmHotkey_User" - CType(Me.MyDataset, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.TBHOTKEY_PROFILEBindingSource, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.TBMYHOTKEYSBindingSource, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.TBHOTKEY_USER_PROFILEBindingSource, System.ComponentModel.ISupportInitialize).EndInit() - Me.GroupBox1.ResumeLayout(False) - Me.GroupBox1.PerformLayout() - Me.ResumeLayout(False) - Me.PerformLayout() - - End Sub - Friend WithEvents StatusStrip1 As System.Windows.Forms.StatusStrip - Friend WithEvents Label1 As System.Windows.Forms.Label - Friend WithEvents MyDataset As Global_Indexer.MyDataset - Friend WithEvents TBHOTKEY_PROFILEBindingSource As System.Windows.Forms.BindingSource - Friend WithEvents TBHOTKEY_PROFILETableAdapter As Global_Indexer.MyDatasetTableAdapters.TBHOTKEY_PROFILETableAdapter - Friend WithEvents TableAdapterManager As Global_Indexer.MyDatasetTableAdapters.TableAdapterManager - Friend WithEvents ListBox1 As System.Windows.Forms.ListBox - Friend WithEvents ListBoxMyHK As System.Windows.Forms.ListBox - Friend WithEvents lblmeinehotkeys As System.Windows.Forms.Label - Friend WithEvents TBMYHOTKEYSBindingSource As System.Windows.Forms.BindingSource - Friend WithEvents TBMYHOTKEYSTableAdapter As Global_Indexer.MyDatasetTableAdapters.TBMYHOTKEYSTableAdapter - Friend WithEvents btnAddtomyHK As System.Windows.Forms.Button - Friend WithEvents TBHOTKEY_USER_PROFILEBindingSource As System.Windows.Forms.BindingSource - Friend WithEvents TBHOTKEY_USER_PROFILETableAdapter As Global_Indexer.MyDatasetTableAdapters.TBHOTKEY_USER_PROFILETableAdapter - Friend WithEvents WD_SEARCHTextBox As System.Windows.Forms.TextBox - Friend WithEvents HOTKEY2TextBox As System.Windows.Forms.TextBox - Friend WithEvents ADDED_WHENTextBox As System.Windows.Forms.TextBox - Friend WithEvents CHANGED_WHOTextBox As System.Windows.Forms.TextBox - Friend WithEvents CHANGED_WHENTextBox As System.Windows.Forms.TextBox - Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox - Friend WithEvents HOTKEY1ComboBox As System.Windows.Forms.ComboBox - Friend WithEvents btnsave As System.Windows.Forms.Button - Friend WithEvents btndelete As System.Windows.Forms.Button - Friend WithEvents lblSave As System.Windows.Forms.Label - Friend WithEvents Button1 As System.Windows.Forms.Button - Friend WithEvents OFDWindreamsuche As System.Windows.Forms.OpenFileDialog - Friend WithEvents chkbxMaximizeWS As System.Windows.Forms.CheckBox -End Class diff --git a/Global_Indexer/frmHotkey_User.en-US.resx b/Global_Indexer/frmHotkey_User.en-US.resx deleted file mode 100644 index 1b21eea..0000000 --- a/Global_Indexer/frmHotkey_User.en-US.resx +++ /dev/null @@ -1,330 +0,0 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - text/microsoft-resx - - - 2.0 - - - System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - - 99, 13 - - - windream-Search: - - - 74, 13 - - - Modifier key: - - - 136, 15 - - - Current Global Hotkeys: - - - 69, 15 - - - My Hotkeys - - - Add - - - Edit Hotkey: - - - 195, 17 - - - Start windream-Suche maximized - - - 145, 13 - - - Hotkey successfully saved! - - - Save - - - Delete - - - windream-Search|*.wdf|All Files|*.* - - - Select windream-Search - - - - AAABAAYAICAQAAEABADoAgAAZgAAABAQEAABAAQAKAEAAE4DAAAgIAAAAQAIAKgIAAB2BAAAEBAAAAEA - CABoBQAAHg0AACAgAAABABgAqAwAAIYSAAAQEAAAAQAYAGgDAAAuHwAAKAAAACAAAABAAAAAAQAEAAAA - AAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIAAAIAAAACAgACAAAAAgACAAICAAACAgIAAwMDAAAAA - /wAA/wAAAP//AP8AAAD/AP8A//8AAP///wD///////////////////////////////////////////93 - d3d3d3d3d3d3d3d3d///d3d3d3d3d3d3d3d3d3f//3d3d3d3d3d3d3d3d3d3//93d3d3d3d3d3d3d3d3 - d///d3f/////////////d3f//3d3/////////////3d3//93d/////////////93d///d3f///////// - ////d3f//3d3///4j////////3d3//93d///h3j///j///93d///d3f//4d3j//3j///d3f//3d3///4 - d3j/93j//3d3//93d////4d3j/d3//93d///d3f////4d3j3d///d3f//3d3/////4d3h3f//3d3//93 - d//////4d3d3//93d///d3f//////4d3d///d3f//3d3///4d3d3d3f//3d3//93d////4d3d3d3//93 - d///d3f////4d3d3d///d3f//3d3/////////////3d3//93d/////////////93d///d3f///////// - ////d3f//3d3/////////////3d3//93d3d3d3d3d3d3d3d3d///d3d3d3d3d3d3d3d3d3f//3d3d3d3 - d3d3d3d3d3d3//93d3d3d3d3d3d3d3d3d////////////////////////////////////////////wAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAKAAAABAAAAAgAAAAAQAEAAAAAACAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIAAAIAAAACA - gACAAAAAgACAAICAAACAgIAAwMDAAAAA/wAA/wAAAP//AP8AAAD/AP8A//8AAP///wD///////////d3 - d3d3d3d/93d3d3d3d3/3f//////3f/d///////d/93/4j/j/93/3f/h494/3f/d//4eHf/d/93//+Hd/ - 93/3f/h3d3/3f/d//4d3f/d/93//////93/3f//////3f/d3d3d3d3d/93d3d3d3d3///////////wAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAoAAAAIAAAAEAAAAABAAgAAAAAAAAEAAAAAAAAAAAAAAABAAAAAQAAAAAAAEJCQgCvrq8A8e/wAPb2 - 9gAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA////AAQEBAQEBAQEBAQEBAQE - BAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAEBAQEBAQEB - AQEBAQEBAQEBAQEBAQEBAQEBAQEEBAQEAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQQEBAQBAQEB - AQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBBAQEBAEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEEBAQE - AQEBAQMDAwMDAwMDAwMDAwMDAwMDAwMDAQEBAQQEBAQBAQEBAwMDAwMDAwMDAwMDAwMDAwMDAwMBAQEB - BAQEBAEBAQEDAwMDAwMDAwMDAwMDAwMDAwMDAwEBAQEEBAQEAQEBAQMDAwMDAwMDAwMDAwMDAwMDAwMD - AQEBAQQEBAQBAQEBAwMDAwMCAgMDAwMDAwMDAwMDAwMBAQEBBAQEBAEBAQEDAwMDAgEBAgMDAwMDAgMD - AwMDAwEBAQEEBAQEAQEBAQMDAwMCAQEBAgMDAwMBAgMDAwMDAQEBAQQEBAQBAQEBAwMDAwMCAQEBAgMD - AwEBAgMDAwMBAQEBBAQEBAEBAQEDAwMDAwMCAQEBAgMDAQEBAwMDAwEBAQEEBAQEAQEBAQMDAwMDAwMC - AQEBAgMBAQEDAwMDAQEBAQQEBAQBAQEBAwMDAwMDAwMCAQEBAgEBAQMDAwMBAQEBBAQEBAEBAQEDAwMD - AwMDAwMCAQEBAQEBAwMDAwEBAQEEBAQEAQEBAQMDAwMDAwMDAwMCAQEBAQEDAwMDAQEBAQQEBAQBAQEB - AwMDAwMCAQEBAQEBAQEBAQMDAwMBAQEBBAQEBAEBAQEDAwMDAwMCAQEBAQEBAQEBAwMDAwEBAQEEBAQE - AQEBAQMDAwMDAwMCAQEBAQEBAQEDAwMDAQEBAQQEBAQBAQEBAwMDAwMDAwMDAwMDAwMDAwMDAwMBAQEB - BAQEBAEBAQEDAwMDAwMDAwMDAwMDAwMDAwMDAwEBAQEEBAQEAQEBAQMDAwMDAwMDAwMDAwMDAwMDAwMD - AQEBAQQEBAQBAQEBAwMDAwMDAwMDAwMDAwMDAwMDAwMBAQEBBAQEBAEBAQEBAQEBAQEBAQEBAQEBAQEB - AQEBAQEBAQEEBAQEAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQQEBAQBAQEBAQEBAQEBAQEBAQEB - AQEBAQEBAQEBAQEBBAQEBAEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEEBAQEBAQEBAQEBAQEBAQE - BAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACgA - AAAQAAAAIAAAAAEACAAAAAAAAAEAAAAAAAAAAAAAAAEAAAABAAAAAAAAQkJCAK+urwDx7/AA9vb2AAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD///8ABAQEBAQEBAQEBAQEBAQEBAQB - AQEBAQEBAQEBAQEBAQQEAQEBAQEBAQEBAQEBAQEEBAEBAwMDAwMDAwMDAwEBBAQBAQMDAwMDAwMDAwMB - AQQEAQEDAwICAwMCAwMDAQEEBAEBAwMCAQIDAQIDAwEBBAQBAQMDAwIBAgEBAwMBAQQEAQEDAwMDAgEB - AQMDAQEEBAEBAwMCAQEBAQEDAwEBBAQBAQMDAwIBAQEBAwMBAQQEAQEDAwMDAwMDAwMDAQEEBAEBAwMD - AwMDAwMDAwEBBAQBAQEBAQEBAQEBAQEBAQQEAQEBAQEBAQEBAQEBAQEEBAQEBAQEBAQEBAQEBAQEBAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAoAAAAIAAAAEAAAAABABgAAAAAAAAMAAAAAAAAAAAAAAAAAAAAAAAA9vb29vb29vb29vb29vb29vb2 - 9vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb2 - 9vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb2 - 9vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb2 - QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC - QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC9vb29vb29vb29vb2QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC - QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC - 9vb29vb29vb29vb2QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC - QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC9vb29vb29vb29vb2QkJCQkJCQkJCQkJC - QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC - QkJCQkJCQkJCQkJC9vb29vb29vb29vb2QkJCQkJCQkJCQkJC8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w - 8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/wQkJCQkJCQkJCQkJC9vb29vb29vb29vb2 - QkJCQkJCQkJCQkJC8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w - 8e/w8e/w8e/w8e/wQkJCQkJCQkJCQkJC9vb29vb29vb29vb2QkJCQkJCQkJCQkJC8e/w8e/w8e/w8e/w - 8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/wQkJCQkJCQkJCQkJC - 9vb29vb29vb29vb2QkJCQkJCQkJCQkJC8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w - 8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/wQkJCQkJCQkJCQkJC9vb29vb29vb29vb2QkJCQkJCQkJCQkJC - 8e/w8e/w8e/w8e/w8e/wr66vr66v8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w - QkJCQkJCQkJCQkJC9vb29vb29vb29vb2QkJCQkJCQkJCQkJC8e/w8e/w8e/w8e/wr66vQkJCQkJCr66v - 8e/w8e/w8e/w8e/w8e/wr66v8e/w8e/w8e/w8e/w8e/w8e/wQkJCQkJCQkJCQkJC9vb29vb29vb29vb2 - QkJCQkJCQkJCQkJC8e/w8e/w8e/w8e/wr66vQkJCQkJCQkJCr66v8e/w8e/w8e/w8e/wQkJCr66v8e/w - 8e/w8e/w8e/w8e/wQkJCQkJCQkJCQkJC9vb29vb29vb29vb2QkJCQkJCQkJCQkJC8e/w8e/w8e/w8e/w - 8e/wr66vQkJCQkJCQkJCr66v8e/w8e/w8e/wQkJCQkJCr66v8e/w8e/w8e/w8e/wQkJCQkJCQkJCQkJC - 9vb29vb29vb29vb2QkJCQkJCQkJCQkJC8e/w8e/w8e/w8e/w8e/w8e/wr66vQkJCQkJCQkJCr66v8e/w - 8e/wQkJCQkJCQkJC8e/w8e/w8e/w8e/wQkJCQkJCQkJCQkJC9vb29vb29vb29vb2QkJCQkJCQkJCQkJC - 8e/w8e/w8e/w8e/w8e/w8e/w8e/wr66vQkJCQkJCQkJCr66v8e/wQkJCQkJCQkJC8e/w8e/w8e/w8e/w - QkJCQkJCQkJCQkJC9vb29vb29vb29vb2QkJCQkJCQkJCQkJC8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w - r66vQkJCQkJCQkJCr66vQkJCQkJCQkJC8e/w8e/w8e/w8e/wQkJCQkJCQkJCQkJC9vb29vb29vb29vb2 - QkJCQkJCQkJCQkJC8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/wr66vQkJCQkJCQkJCQkJCQkJCQkJC - 8e/w8e/w8e/w8e/wQkJCQkJCQkJCQkJC9vb29vb29vb29vb2QkJCQkJCQkJCQkJC8e/w8e/w8e/w8e/w - 8e/w8e/w8e/w8e/w8e/w8e/wr66vQkJCQkJCQkJCQkJCQkJC8e/w8e/w8e/w8e/wQkJCQkJCQkJCQkJC - 9vb29vb29vb29vb2QkJCQkJCQkJCQkJC8e/w8e/w8e/w8e/w8e/wr66vQkJCQkJCQkJCQkJCQkJCQkJC - QkJCQkJCQkJCQkJC8e/w8e/w8e/w8e/wQkJCQkJCQkJCQkJC9vb29vb29vb29vb2QkJCQkJCQkJCQkJC - 8e/w8e/w8e/w8e/w8e/w8e/wr66vQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC8e/w8e/w8e/w8e/w - QkJCQkJCQkJCQkJC9vb29vb29vb29vb2QkJCQkJCQkJCQkJC8e/w8e/w8e/w8e/w8e/w8e/w8e/wr66v - QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC8e/w8e/w8e/w8e/wQkJCQkJCQkJCQkJC9vb29vb29vb29vb2 - QkJCQkJCQkJCQkJC8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w - 8e/w8e/w8e/w8e/wQkJCQkJCQkJCQkJC9vb29vb29vb29vb2QkJCQkJCQkJCQkJC8e/w8e/w8e/w8e/w - 8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/wQkJCQkJCQkJCQkJC - 9vb29vb29vb29vb2QkJCQkJCQkJCQkJC8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w - 8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/wQkJCQkJCQkJCQkJC9vb29vb29vb29vb2QkJCQkJCQkJCQkJC - 8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w - QkJCQkJCQkJCQkJC9vb29vb29vb29vb2QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC - QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC9vb29vb29vb29vb2 - QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC - QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC9vb29vb29vb29vb2QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC - QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC - 9vb29vb29vb29vb2QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC - QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC9vb29vb29vb29vb29vb29vb29vb29vb2 - 9vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb2 - 9vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb2 - 9vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb2AAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAoAAAAEAAAACAAAAABABgAAAAAAAADAAAAAAAAAAAAAAAAAAAAAAAA9vb29vb29vb29vb29vb29vb2 - 9vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb2QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC - QkJCQkJCQkJCQkJCQkJC9vb29vb2QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC - QkJC9vb29vb2QkJCQkJC8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/wQkJCQkJC9vb29vb2QkJC - QkJC8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/wQkJCQkJC9vb29vb2QkJCQkJC8e/w8e/wr66v - r66v8e/w8e/wr66v8e/w8e/w8e/wQkJCQkJC9vb29vb2QkJCQkJC8e/w8e/wr66vQkJCr66v8e/wQkJC - r66v8e/w8e/wQkJCQkJC9vb29vb2QkJCQkJC8e/w8e/w8e/wr66vQkJCr66vQkJCQkJC8e/w8e/wQkJC - QkJC9vb29vb2QkJCQkJC8e/w8e/w8e/w8e/wr66vQkJCQkJCQkJC8e/w8e/wQkJCQkJC9vb29vb2QkJC - QkJC8e/w8e/wr66vQkJCQkJCQkJCQkJCQkJC8e/w8e/wQkJCQkJC9vb29vb2QkJCQkJC8e/w8e/w8e/w - r66vQkJCQkJCQkJCQkJC8e/w8e/wQkJCQkJC9vb29vb2QkJCQkJC8e/w8e/w8e/w8e/w8e/w8e/w8e/w - 8e/w8e/w8e/wQkJCQkJC9vb29vb2QkJCQkJC8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/wQkJC - QkJC9vb29vb2QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC9vb29vb2QkJC - QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC9vb29vb29vb29vb29vb29vb29vb2 - 9vb29vb29vb29vb29vb29vb29vb29vb29vb29vb2AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA== - - - - My Hotkeys - - \ No newline at end of file diff --git a/Global_Indexer/frmHotkey_User.resx b/Global_Indexer/frmHotkey_User.resx deleted file mode 100644 index 5c258e4..0000000 --- a/Global_Indexer/frmHotkey_User.resx +++ /dev/null @@ -1,1037 +0,0 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - text/microsoft-resx - - - 2.0 - - - System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - - 131, 22 - - - 3 - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - 13 - - - TBHOTKEY_USER_PROFILEBindingSource - - - - True - - - GroupBox1 - - - 15 - - - 13 - - - ListBoxMyHK - - - - Top, Right - - - System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox1 - - - 4 - - - Global_Indexer.MyDatasetTableAdapters.TBHOTKEY_USER_PROFILETableAdapter, MyDataset.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - - - TBHOTKEY_PROFILETableAdapter - - - GroupBox1 - - - 12 - - - 9, 143 - - - 292, 115 - - - True - - - Speichern - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - ADDED_WHENLabel - - - btnsave - - - 8 - - - GroupBox1 - - - 468, 118 - - - 14 - - - 3 - - - Segoe UI Semibold, 9pt, style=Bold, Italic - - - 46, 13 - - - 70, 21 - - - StatusStrip1 - - - TopCenter - - - 4 - - - Segoe UI, 8.25pt - - - Segoe UI Semibold, 8.25pt, style=Bold, Italic - - - lblmeinehotkeys - - - Meine Hotkeys - - - BottomCenter - - - 102, 75 - - - 7 - - - 18 - - - Funktionstaste: - - - $this - - - StatusStrip1 - - - GroupBox1 - - - 5 - - - - AAABAAYAICAQAAEABADoAgAAZgAAABAQEAABAAQAKAEAAE4DAAAgIAAAAQAIAKgIAAB2BAAAEBAAAAEA - CABoBQAAHg0AACAgAAABABgAqAwAAIYSAAAQEAAAAQAYAGgDAAAuHwAAKAAAACAAAABAAAAAAQAEAAAA - AAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIAAAIAAAACAgACAAAAAgACAAICAAACAgIAAwMDAAAAA - /wAA/wAAAP//AP8AAAD/AP8A//8AAP///wD///////////////////////////////////////////93 - d3d3d3d3d3d3d3d3d///d3d3d3d3d3d3d3d3d3f//3d3d3d3d3d3d3d3d3d3//93d3d3d3d3d3d3d3d3 - d///d3f/////////////d3f//3d3/////////////3d3//93d/////////////93d///d3f///////// - ////d3f//3d3///4j////////3d3//93d///h3j///j///93d///d3f//4d3j//3j///d3f//3d3///4 - d3j/93j//3d3//93d////4d3j/d3//93d///d3f////4d3j3d///d3f//3d3/////4d3h3f//3d3//93 - d//////4d3d3//93d///d3f//////4d3d///d3f//3d3///4d3d3d3f//3d3//93d////4d3d3d3//93 - d///d3f////4d3d3d///d3f//3d3/////////////3d3//93d/////////////93d///d3f///////// - ////d3f//3d3/////////////3d3//93d3d3d3d3d3d3d3d3d///d3d3d3d3d3d3d3d3d3f//3d3d3d3 - d3d3d3d3d3d3//93d3d3d3d3d3d3d3d3d////////////////////////////////////////////wAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAKAAAABAAAAAgAAAAAQAEAAAAAACAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIAAAIAAAACA - gACAAAAAgACAAICAAACAgIAAwMDAAAAA/wAA/wAAAP//AP8AAAD/AP8A//8AAP///wD///////////d3 - d3d3d3d/93d3d3d3d3/3f//////3f/d///////d/93/4j/j/93/3f/h494/3f/d//4eHf/d/93//+Hd/ - 93/3f/h3d3/3f/d//4d3f/d/93//////93/3f//////3f/d3d3d3d3d/93d3d3d3d3///////////wAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAoAAAAIAAAAEAAAAABAAgAAAAAAAAEAAAAAAAAAAAAAAABAAAAAQAAAAAAAEJCQgCvrq8A8e/wAPb2 - 9gAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA////AAQEBAQEBAQEBAQEBAQE - BAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAEBAQEBAQEB - AQEBAQEBAQEBAQEBAQEBAQEBAQEEBAQEAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQQEBAQBAQEB - AQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBBAQEBAEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEEBAQE - AQEBAQMDAwMDAwMDAwMDAwMDAwMDAwMDAQEBAQQEBAQBAQEBAwMDAwMDAwMDAwMDAwMDAwMDAwMBAQEB - BAQEBAEBAQEDAwMDAwMDAwMDAwMDAwMDAwMDAwEBAQEEBAQEAQEBAQMDAwMDAwMDAwMDAwMDAwMDAwMD - AQEBAQQEBAQBAQEBAwMDAwMCAgMDAwMDAwMDAwMDAwMBAQEBBAQEBAEBAQEDAwMDAgEBAgMDAwMDAgMD - AwMDAwEBAQEEBAQEAQEBAQMDAwMCAQEBAgMDAwMBAgMDAwMDAQEBAQQEBAQBAQEBAwMDAwMCAQEBAgMD - AwEBAgMDAwMBAQEBBAQEBAEBAQEDAwMDAwMCAQEBAgMDAQEBAwMDAwEBAQEEBAQEAQEBAQMDAwMDAwMC - AQEBAgMBAQEDAwMDAQEBAQQEBAQBAQEBAwMDAwMDAwMCAQEBAgEBAQMDAwMBAQEBBAQEBAEBAQEDAwMD - AwMDAwMCAQEBAQEBAwMDAwEBAQEEBAQEAQEBAQMDAwMDAwMDAwMCAQEBAQEDAwMDAQEBAQQEBAQBAQEB - AwMDAwMCAQEBAQEBAQEBAQMDAwMBAQEBBAQEBAEBAQEDAwMDAwMCAQEBAQEBAQEBAwMDAwEBAQEEBAQE - AQEBAQMDAwMDAwMCAQEBAQEBAQEDAwMDAQEBAQQEBAQBAQEBAwMDAwMDAwMDAwMDAwMDAwMDAwMBAQEB - BAQEBAEBAQEDAwMDAwMDAwMDAwMDAwMDAwMDAwEBAQEEBAQEAQEBAQMDAwMDAwMDAwMDAwMDAwMDAwMD - AQEBAQQEBAQBAQEBAwMDAwMDAwMDAwMDAwMDAwMDAwMBAQEBBAQEBAEBAQEBAQEBAQEBAQEBAQEBAQEB - AQEBAQEBAQEEBAQEAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQQEBAQBAQEBAQEBAQEBAQEBAQEB - AQEBAQEBAQEBAQEBBAQEBAEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEEBAQEBAQEBAQEBAQEBAQE - BAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACgA - AAAQAAAAIAAAAAEACAAAAAAAAAEAAAAAAAAAAAAAAAEAAAABAAAAAAAAQkJCAK+urwDx7/AA9vb2AAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD///8ABAQEBAQEBAQEBAQEBAQEBAQB - AQEBAQEBAQEBAQEBAQQEAQEBAQEBAQEBAQEBAQEEBAEBAwMDAwMDAwMDAwEBBAQBAQMDAwMDAwMDAwMB - AQQEAQEDAwICAwMCAwMDAQEEBAEBAwMCAQIDAQIDAwEBBAQBAQMDAwIBAgEBAwMBAQQEAQEDAwMDAgEB - AQMDAQEEBAEBAwMCAQEBAQEDAwEBBAQBAQMDAwIBAQEBAwMBAQQEAQEDAwMDAwMDAwMDAQEEBAEBAwMD - AwMDAwMDAwEBBAQBAQEBAQEBAQEBAQEBAQQEAQEBAQEBAQEBAQEBAQEEBAQEBAQEBAQEBAQEBAQEBAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAoAAAAIAAAAEAAAAABABgAAAAAAAAMAAAAAAAAAAAAAAAAAAAAAAAA9vb29vb29vb29vb29vb29vb2 - 9vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb2 - 9vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb2 - 9vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb2 - QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC - QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC9vb29vb29vb29vb2QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC - QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC - 9vb29vb29vb29vb2QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC - QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC9vb29vb29vb29vb2QkJCQkJCQkJCQkJC - QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC - QkJCQkJCQkJCQkJC9vb29vb29vb29vb2QkJCQkJCQkJCQkJC8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w - 8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/wQkJCQkJCQkJCQkJC9vb29vb29vb29vb2 - QkJCQkJCQkJCQkJC8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w - 8e/w8e/w8e/w8e/wQkJCQkJCQkJCQkJC9vb29vb29vb29vb2QkJCQkJCQkJCQkJC8e/w8e/w8e/w8e/w - 8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/wQkJCQkJCQkJCQkJC - 9vb29vb29vb29vb2QkJCQkJCQkJCQkJC8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w - 8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/wQkJCQkJCQkJCQkJC9vb29vb29vb29vb2QkJCQkJCQkJCQkJC - 8e/w8e/w8e/w8e/w8e/wr66vr66v8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w - QkJCQkJCQkJCQkJC9vb29vb29vb29vb2QkJCQkJCQkJCQkJC8e/w8e/w8e/w8e/wr66vQkJCQkJCr66v - 8e/w8e/w8e/w8e/w8e/wr66v8e/w8e/w8e/w8e/w8e/w8e/wQkJCQkJCQkJCQkJC9vb29vb29vb29vb2 - QkJCQkJCQkJCQkJC8e/w8e/w8e/w8e/wr66vQkJCQkJCQkJCr66v8e/w8e/w8e/w8e/wQkJCr66v8e/w - 8e/w8e/w8e/w8e/wQkJCQkJCQkJCQkJC9vb29vb29vb29vb2QkJCQkJCQkJCQkJC8e/w8e/w8e/w8e/w - 8e/wr66vQkJCQkJCQkJCr66v8e/w8e/w8e/wQkJCQkJCr66v8e/w8e/w8e/w8e/wQkJCQkJCQkJCQkJC - 9vb29vb29vb29vb2QkJCQkJCQkJCQkJC8e/w8e/w8e/w8e/w8e/w8e/wr66vQkJCQkJCQkJCr66v8e/w - 8e/wQkJCQkJCQkJC8e/w8e/w8e/w8e/wQkJCQkJCQkJCQkJC9vb29vb29vb29vb2QkJCQkJCQkJCQkJC - 8e/w8e/w8e/w8e/w8e/w8e/w8e/wr66vQkJCQkJCQkJCr66v8e/wQkJCQkJCQkJC8e/w8e/w8e/w8e/w - QkJCQkJCQkJCQkJC9vb29vb29vb29vb2QkJCQkJCQkJCQkJC8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w - r66vQkJCQkJCQkJCr66vQkJCQkJCQkJC8e/w8e/w8e/w8e/wQkJCQkJCQkJCQkJC9vb29vb29vb29vb2 - QkJCQkJCQkJCQkJC8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/wr66vQkJCQkJCQkJCQkJCQkJCQkJC - 8e/w8e/w8e/w8e/wQkJCQkJCQkJCQkJC9vb29vb29vb29vb2QkJCQkJCQkJCQkJC8e/w8e/w8e/w8e/w - 8e/w8e/w8e/w8e/w8e/w8e/wr66vQkJCQkJCQkJCQkJCQkJC8e/w8e/w8e/w8e/wQkJCQkJCQkJCQkJC - 9vb29vb29vb29vb2QkJCQkJCQkJCQkJC8e/w8e/w8e/w8e/w8e/wr66vQkJCQkJCQkJCQkJCQkJCQkJC - QkJCQkJCQkJCQkJC8e/w8e/w8e/w8e/wQkJCQkJCQkJCQkJC9vb29vb29vb29vb2QkJCQkJCQkJCQkJC - 8e/w8e/w8e/w8e/w8e/w8e/wr66vQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC8e/w8e/w8e/w8e/w - QkJCQkJCQkJCQkJC9vb29vb29vb29vb2QkJCQkJCQkJCQkJC8e/w8e/w8e/w8e/w8e/w8e/w8e/wr66v - QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC8e/w8e/w8e/w8e/wQkJCQkJCQkJCQkJC9vb29vb29vb29vb2 - QkJCQkJCQkJCQkJC8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w - 8e/w8e/w8e/w8e/wQkJCQkJCQkJCQkJC9vb29vb29vb29vb2QkJCQkJCQkJCQkJC8e/w8e/w8e/w8e/w - 8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/wQkJCQkJCQkJCQkJC - 9vb29vb29vb29vb2QkJCQkJCQkJCQkJC8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w - 8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/wQkJCQkJCQkJCQkJC9vb29vb29vb29vb2QkJCQkJCQkJCQkJC - 8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w - QkJCQkJCQkJCQkJC9vb29vb29vb29vb2QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC - QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC9vb29vb29vb29vb2 - QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC - QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC9vb29vb29vb29vb2QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC - QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC - 9vb29vb29vb29vb2QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC - QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC9vb29vb29vb29vb29vb29vb29vb29vb2 - 9vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb2 - 9vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb2 - 9vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb2AAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAoAAAAEAAAACAAAAABABgAAAAAAAADAAAAAAAAAAAAAAAAAAAAAAAA9vb29vb29vb29vb29vb29vb2 - 9vb29vb29vb29vb29vb29vb29vb29vb29vb29vb29vb2QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC - QkJCQkJCQkJCQkJCQkJC9vb29vb2QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC - QkJC9vb29vb2QkJCQkJC8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/wQkJCQkJC9vb29vb2QkJC - QkJC8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/wQkJCQkJC9vb29vb2QkJCQkJC8e/w8e/wr66v - r66v8e/w8e/wr66v8e/w8e/w8e/wQkJCQkJC9vb29vb2QkJCQkJC8e/w8e/wr66vQkJCr66v8e/wQkJC - r66v8e/w8e/wQkJCQkJC9vb29vb2QkJCQkJC8e/w8e/w8e/wr66vQkJCr66vQkJCQkJC8e/w8e/wQkJC - QkJC9vb29vb2QkJCQkJC8e/w8e/w8e/w8e/wr66vQkJCQkJCQkJC8e/w8e/wQkJCQkJC9vb29vb2QkJC - QkJC8e/w8e/wr66vQkJCQkJCQkJCQkJCQkJC8e/w8e/wQkJCQkJC9vb29vb2QkJCQkJC8e/w8e/w8e/w - r66vQkJCQkJCQkJCQkJC8e/w8e/wQkJCQkJC9vb29vb2QkJCQkJC8e/w8e/w8e/w8e/w8e/w8e/w8e/w - 8e/w8e/w8e/wQkJCQkJC9vb29vb2QkJCQkJC8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/w8e/wQkJC - QkJC9vb29vb2QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC9vb29vb2QkJC - QkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJCQkJC9vb29vb29vb29vb29vb29vb29vb2 - 9vb29vb29vb29vb29vb29vb29vb29vb29vb29vb2AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA== - - - - 317, 115 - - - 338, 251 - - - 6 - - - 5 - - - 754, 22 - - - 123, 22 - - - Win - - - 6 - - - TBMYHOTKEYSTableAdapter - - - Hotkey: - - - Label1 - - - TopCenter - - - 17 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - 0, 520 - - - Changed who: - - - 623, 22 - - - GroupBox1 - - - 19 - - - Alt - - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - 12 - - - CHANGED_WHENLabel - - - 137, 22 - - - windream-Suche: - - - windream-Suche maximiert starten - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - 11 - - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - Bearbeitung Hotkey: - - - Shift - - - Meine Hotkeys - - - 6, 61 - - - GroupBox1 - - - System.Windows.Forms.BindingSource, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - System.Windows.Forms.ListBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - 6 - - - CHANGED_WHENTextBox - - - 0 - - - 4 - - - 15 - - - 640, 99 - - - 3 - - - MyDataset - - - 85, 38 - - - 15, 284 - - - TableAdapterManager - - - 81 - - - 7 - - - Daten erfolgreich gespeichert! - - - 85, 37 - - - WD_SEARCHTextBox - - - TBHOTKEY_PROFILEBindingSource - - - 19 - - - GroupBox1 - - - 317, 72 - - - 640, 36 - - - TBMYHOTKEYSBindingSource - - - 289, 99 - - - chkbxMaximizeWS - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - 15, 27 - - - GroupBox1 - - - WD_SEARCHLabel - - - True - - - 85, 37 - - - True - - - 83, 13 - - - $this - - - 8 - - - $this - - - 298, 251 - - - 89, 13 - - - System.Windows.Forms.StatusStrip, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - Button1 - - - HOTKEY2Label - - - Löschen - - - 10 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - True - - - System.Windows.Forms.BindingSource, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - 85, 15 - - - Hinzufügen - - - TopCenter - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - windream-Suche|*.wdf|Alle Dateien|*.* - - - 79 - - - System.Windows.Forms.ListBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox1 - - - $this - - - Global_Indexer.MyDatasetTableAdapters.TBHOTKEY_PROFILETableAdapter, MyDataset.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - - - btnAddtomyHK - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - 1 - - - 7 - - - 9, 36 - - - 12, 9 - - - True - - - ADDED_WHENTextBox - - - GroupBox1 - - - 142, 15 - - - frmHotkey_User - - - $this - - - windream-Suche wählen - - - 9, 115 - - - 1 - - - 6, 99 - - - lblSave - - - Aktuelle globale Hotkeys: - - - 87, 13 - - - 99, 61 - - - System.Windows.Forms.OpenFileDialog, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - System.Windows.Forms.Form, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - Segoe UI, 8.25pt, style=Bold - - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox1 - - - 14 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox1 - - - GroupBox1 - - - 6, 20 - - - 20 - - - $this - - - Strg - - - 9 - - - Global_Indexer.MyDatasetTableAdapters.TBMYHOTKEYSTableAdapter, MyDataset.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox1 - - - System.Windows.Forms.BindingSource, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - 16 - - - 2 - - - BottomCenter - - - 31, 23 - - - 6, 13 - - - Segoe UI Semibold, 9pt, style=Bold, Italic - - - True - - - $this - - - HOTKEY2TextBox - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - 164, 13 - - - 149, 115 - - - True - - - btndelete - - - 1 - - - $this - - - 80 - - - 96, 13 - - - 52, 22 - - - System.Windows.Forms.CheckBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - BottomCenter - - - System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - OFDWindreamsuche - - - TBHOTKEY_USER_PROFILETableAdapter - - - Global_Indexer.MyDatasetTableAdapters.TableAdapterManager, MyDataset.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - - - 754, 542 - - - 76, 13 - - - 731, 181 - - - 405, 9 - - - ListBox1 - - - 0 - - - 408, 27 - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - Changed when: - - - GroupBox1 - - - ... - - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - True - - - CHANGED_WHOLabel - - - 203, 17 - - - 146, 99 - - - 5 - - - 2 - - - 9 - - - CHANGED_WHOTextBox - - - True - - - False - - - HOTKEY1Label - - - HOTKEY1ComboBox - - - Added when: - - - 2 - - - 18 - - - 9, 75 - - - GroupBox1 - - - 0 - - - Global_Indexer.MyDataset, MyDataset.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - - - 134, 17 - - - False - - - False - - - 483, 17 - - - True - - - 17, 56 - - - False - - - 557, 56 - - - en-US - - - False - - - 1102, 17 - - - 290, 56 - - - 889, 17 - - - False - - - 716, 17 - - - 244, 17 - - - 17, 17 - - - False - - \ No newline at end of file diff --git a/Global_Indexer/frmHotkey_User.vb b/Global_Indexer/frmHotkey_User.vb deleted file mode 100644 index 79084d7..0000000 --- a/Global_Indexer/frmHotkey_User.vb +++ /dev/null @@ -1,111 +0,0 @@ -Public Class frmHotkey_User - - Private Sub TBHOTKEY_PROFILEBindingNavigatorSaveItem_Click(sender As Object, e As EventArgs) - Me.Validate() - Me.TBHOTKEY_PROFILEBindingSource.EndEdit() - Me.TableAdapterManager.UpdateAll(Me.MyDataset) - - End Sub - - Private Sub frmHotkey_User_Load(sender As Object, e As EventArgs) Handles MyBase.Load - 'TODO: Diese Codezeile lädt Daten in die Tabelle "MyDataset.TBHOTKEY_USER_PROFILE". Sie können sie bei Bedarf verschieben oder entfernen. - - Try - Me.TBHOTKEY_PROFILETableAdapter.Connection.ConnectionString = MyConnectionString - Me.TBMYHOTKEYSTableAdapter.Connection.ConnectionString = MyConnectionString - Me.TBHOTKEY_USER_PROFILETableAdapter.Connection.ConnectionString = MyConnectionString - Me.TBHOTKEY_PROFILETableAdapter.Fill(Me.MyDataset.TBHOTKEY_PROFILE) - - If USER_LANGUAGE <> "de-DE" Then - Me.lblmeinehotkeys.Text = "My (" & Environment.UserName & ") Hotkeys:" - Else - Me.lblmeinehotkeys.Text = "Meine (" & Environment.UserName & ") Hotkeys:" - End If - - LoadMyHotkeys(USER_ID) - Catch ex As Exception - MsgBox("Error in Load Form: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) - End Try - - End Sub - - Private Sub LoadMyHotkeys(UserID As Integer) - Try - Me.TBMYHOTKEYSTableAdapter.Fill(Me.MyDataset.TBMYHOTKEYS, UserID) - Catch ex As System.Exception - MsgBox("Error in LoadMyHotkeys: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) - End Try - - End Sub - - Private Sub btnAddtomyHK_Click(sender As Object, e As EventArgs) Handles btnAddtomyHK.Click - Try - If ListBox1.SelectedIndex <> -1 Then - TBHOTKEY_USER_PROFILETableAdapter.cmdInsert(USER_ID, ListBox1.SelectedValue) - LoadMyHotkeys(USER_ID) - End If - Catch ex As Exception - MsgBox("Error in Add MyHotkey: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) - End Try - - End Sub - Sub Load_MyProfile(HKPROFILE_ID As Integer) - Try - Me.TBHOTKEY_USER_PROFILETableAdapter.Fill(Me.MyDataset.TBHOTKEY_USER_PROFILE, HKPROFILE_ID) - Catch ex As Exception - MsgBox("Error in Load_MyProfile: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) - End Try - - End Sub - - Private Sub ListBoxMyHK_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBoxMyHK.SelectedIndexChanged - If ListBoxMyHK.SelectedIndex <> -1 Then - Console.WriteLine(ListBoxMyHK.SelectedValue) - Load_MyProfile(ListBoxMyHK.SelectedValue) - End If - End Sub - - Private Sub btndelete_Click(sender As Object, e As EventArgs) Handles btndelete.Click - If ListBoxMyHK.SelectedIndex <> -1 Then - Me.TBHOTKEY_USER_PROFILETableAdapter.Delete(ListBoxMyHK.SelectedValue) - LoadMyHotkeys(USER_ID) - Me.MyDataset.TBHOTKEY_USER_PROFILE.Clear() - End If - End Sub - - Private Sub btnsave_Click(sender As Object, e As EventArgs) Handles btnsave.Click - Try - TBHOTKEY_USER_PROFILEBindingSource.EndEdit() - If Me.MyDataset.TBHOTKEY_USER_PROFILE.GetChanges Is Nothing = False Then - Me.CHANGED_WHOTextBox.Text = Environment.UserName - TBHOTKEY_USER_PROFILEBindingSource.EndEdit() - TBHOTKEY_USER_PROFILETableAdapter.Update(MyDataset.TBHOTKEY_USER_PROFILE) - Me.lblSave.Visible = True - LoadMyHotkeys(USER_ID) - Else - Me.lblSave.Visible = False - End If - Catch ex As Exception - MsgBox("Error in Save My Profile: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) - End Try - End Sub - - Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click - If Not Me.WD_SEARCHTextBox.Text = "" Then - Me.OFDWindreamsuche.FileName = Me.WD_SEARCHTextBox.Text - End If - - If Me.OFDWindreamsuche.ShowDialog = Windows.Forms.DialogResult.OK Then - Me.WD_SEARCHTextBox.Text = Me.OFDWindreamsuche.FileName - End If - End Sub - - Private Sub HOTKEY2TextBox_KeyDown(sender As Object, e As KeyEventArgs) Handles HOTKEY2TextBox.KeyDown - HOTKEY2TextBox.Text = "" - End Sub - - Private Sub chkbxMaximizeWS_CheckedChanged(sender As Object, e As EventArgs) Handles chkbxMaximizeWS.CheckedChanged - CONFIG.Config.WindreamSearchMaximized = chkbxMaximizeWS.Checked - CONFIG.Save() - End Sub -End Class \ No newline at end of file diff --git a/Global_Indexer/frmIndex.designer.vb b/Global_Indexer/frmIndex.designer.vb index 7bfb3a5..1cbfa85 100644 --- a/Global_Indexer/frmIndex.designer.vb +++ b/Global_Indexer/frmIndex.designer.vb @@ -322,11 +322,6 @@ Partial Class frmIndex Me.TableAdapterManager.TBGI_CONFIGURATIONTableAdapter = Nothing Me.TableAdapterManager.TBGI_OBJECTTYPE_EMAIL_INDEXTableAdapter = Nothing Me.TableAdapterManager.TBGI_REGEX_DOCTYPETableAdapter = Nothing - Me.TableAdapterManager.TBHOTKEY_PATTERNS_REWORKTableAdapter = Nothing - Me.TableAdapterManager.TBHOTKEY_PATTERNSTableAdapter = Nothing - Me.TableAdapterManager.TBHOTKEY_PROFILETableAdapter = Nothing - Me.TableAdapterManager.TBHOTKEY_USER_PROFILETableAdapter = Nothing - Me.TableAdapterManager.TBHOTKEY_WINDOW_HOOKTableAdapter = Nothing Me.TableAdapterManager.UpdateOrder = Global_Indexer.MyDatasetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete ' 'VWINDEX_AUTOMBindingSource1 diff --git a/Global_Indexer/frmIndexFileList.Designer.vb b/Global_Indexer/frmIndexFileList.Designer.vb index eac2d69..ee8839a 100644 --- a/Global_Indexer/frmIndexFileList.Designer.vb +++ b/Global_Indexer/frmIndexFileList.Designer.vb @@ -95,11 +95,6 @@ Partial Class frmIndexFileList Me.TableAdapterManager.TBGI_CONFIGURATIONTableAdapter = Nothing Me.TableAdapterManager.TBGI_OBJECTTYPE_EMAIL_INDEXTableAdapter = Nothing Me.TableAdapterManager.TBGI_REGEX_DOCTYPETableAdapter = Nothing - Me.TableAdapterManager.TBHOTKEY_PATTERNS_REWORKTableAdapter = Nothing - Me.TableAdapterManager.TBHOTKEY_PATTERNSTableAdapter = Nothing - Me.TableAdapterManager.TBHOTKEY_PROFILETableAdapter = Nothing - Me.TableAdapterManager.TBHOTKEY_USER_PROFILETableAdapter = Nothing - Me.TableAdapterManager.TBHOTKEY_WINDOW_HOOKTableAdapter = Nothing Me.TableAdapterManager.UpdateOrder = Global_Indexer.MyDatasetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete ' 'Button2 diff --git a/Global_Indexer/frmNamenkonvention.designer.vb b/Global_Indexer/frmNamenkonvention.designer.vb index b062cea..f57c60a 100644 --- a/Global_Indexer/frmNamenkonvention.designer.vb +++ b/Global_Indexer/frmNamenkonvention.designer.vb @@ -208,11 +208,6 @@ Partial Class frmNamenkonvention Me.TableAdapterManager.TBGI_CONFIGURATIONTableAdapter = Nothing Me.TableAdapterManager.TBGI_OBJECTTYPE_EMAIL_INDEXTableAdapter = Nothing Me.TableAdapterManager.TBGI_REGEX_DOCTYPETableAdapter = Nothing - Me.TableAdapterManager.TBHOTKEY_PATTERNS_REWORKTableAdapter = Nothing - Me.TableAdapterManager.TBHOTKEY_PATTERNSTableAdapter = Nothing - Me.TableAdapterManager.TBHOTKEY_PROFILETableAdapter = Nothing - Me.TableAdapterManager.TBHOTKEY_USER_PROFILETableAdapter = Nothing - Me.TableAdapterManager.TBHOTKEY_WINDOW_HOOKTableAdapter = Nothing Me.TableAdapterManager.UpdateOrder = Global_Indexer.MyDatasetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete ' 'TBDD_INDEX_AUTOMTableAdapter diff --git a/Global_Indexer/frmSQLConfigAutoIndex.Designer.vb b/Global_Indexer/frmSQLConfigAutoIndex.Designer.vb index 4d3fd89..fdcfd74 100644 --- a/Global_Indexer/frmSQLConfigAutoIndex.Designer.vb +++ b/Global_Indexer/frmSQLConfigAutoIndex.Designer.vb @@ -130,11 +130,6 @@ Partial Class SQLConfigAutoIndex Me.TableAdapterManager.TBDD_USERTableAdapter = Nothing Me.TableAdapterManager.TBGI_CONFIGURATIONTableAdapter = Nothing Me.TableAdapterManager.TBGI_OBJECTTYPE_EMAIL_INDEXTableAdapter = Nothing - Me.TableAdapterManager.TBHOTKEY_PATTERNS_REWORKTableAdapter = Nothing - Me.TableAdapterManager.TBHOTKEY_PATTERNSTableAdapter = Nothing - Me.TableAdapterManager.TBHOTKEY_PROFILETableAdapter = Nothing - Me.TableAdapterManager.TBHOTKEY_USER_PROFILETableAdapter = Nothing - Me.TableAdapterManager.TBHOTKEY_WINDOW_HOOKTableAdapter = Nothing Me.TableAdapterManager.UpdateOrder = Global_Indexer.MyDatasetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete ' 'Button1 diff --git a/Global_Indexer/frmSQLSuggestion.Designer.vb b/Global_Indexer/frmSQLSuggestion.Designer.vb index b52fd5a..77f4d1f 100644 --- a/Global_Indexer/frmSQLSuggestion.Designer.vb +++ b/Global_Indexer/frmSQLSuggestion.Designer.vb @@ -137,11 +137,6 @@ Partial Class frmSQLSuggestion Me.TableAdapterManager.TBDD_USERTableAdapter = Nothing Me.TableAdapterManager.TBGI_CONFIGURATIONTableAdapter = Nothing Me.TableAdapterManager.TBGI_OBJECTTYPE_EMAIL_INDEXTableAdapter = Nothing - Me.TableAdapterManager.TBHOTKEY_PATTERNS_REWORKTableAdapter = Nothing - Me.TableAdapterManager.TBHOTKEY_PATTERNSTableAdapter = Nothing - Me.TableAdapterManager.TBHOTKEY_PROFILETableAdapter = Nothing - Me.TableAdapterManager.TBHOTKEY_USER_PROFILETableAdapter = Nothing - Me.TableAdapterManager.TBHOTKEY_WINDOW_HOOKTableAdapter = Nothing Me.TableAdapterManager.UpdateOrder = Global_Indexer.MyDatasetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete ' 'Button1 diff --git a/Global_Indexer/frmStart.Designer.vb b/Global_Indexer/frmStart.Designer.vb index 2812369..2766c93 100644 --- a/Global_Indexer/frmStart.Designer.vb +++ b/Global_Indexer/frmStart.Designer.vb @@ -27,11 +27,8 @@ Partial Class frmStart Me.MenuStrip1 = New System.Windows.Forms.MenuStrip() Me.KonfigurationToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.AdministrationToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() - Me.GlobalIndexerEinstellungenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() - Me.HotkeyEisntellungenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator() Me.GrundeinstellungenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() - Me.FrmHotkeyAddToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.HistoryIndexierteDateienToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.InfoToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.StatusStrip1 = New System.Windows.Forms.StatusStrip() @@ -48,14 +45,11 @@ Partial Class frmStart Me.LabelVersion = New DevExpress.XtraBars.BarStaticItem() Me.RibbonMiniToolbar1 = New DevExpress.XtraBars.Ribbon.RibbonMiniToolbar(Me.components) Me.MyDataset = New Global_Indexer.MyDataset() - Me.TBHOTKEY_USER_PROFILEBindingSource = New System.Windows.Forms.BindingSource(Me.components) - Me.TBHOTKEY_USER_PROFILETableAdapter = New Global_Indexer.MyDatasetTableAdapters.TBHOTKEY_USER_PROFILETableAdapter() Me.TableAdapterManager = New Global_Indexer.MyDatasetTableAdapters.TableAdapterManager() Me.btnChoosefiles = New System.Windows.Forms.Button() Me.MenuStrip1.SuspendLayout() Me.StatusStrip1.SuspendLayout() CType(Me.MyDataset, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.TBHOTKEY_USER_PROFILEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' 'MenuStrip1 @@ -67,29 +61,17 @@ Partial Class frmStart 'KonfigurationToolStripMenuItem ' Me.KonfigurationToolStripMenuItem.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right - Me.KonfigurationToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.AdministrationToolStripMenuItem, Me.ToolStripSeparator1, Me.GrundeinstellungenToolStripMenuItem, Me.FrmHotkeyAddToolStripMenuItem, Me.HistoryIndexierteDateienToolStripMenuItem, Me.InfoToolStripMenuItem}) + Me.KonfigurationToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.AdministrationToolStripMenuItem, Me.ToolStripSeparator1, Me.GrundeinstellungenToolStripMenuItem, Me.HistoryIndexierteDateienToolStripMenuItem, Me.InfoToolStripMenuItem}) Me.KonfigurationToolStripMenuItem.Image = Global.Global_Indexer.My.Resources.Resources.gear_32xLG Me.KonfigurationToolStripMenuItem.Name = "KonfigurationToolStripMenuItem" resources.ApplyResources(Me.KonfigurationToolStripMenuItem, "KonfigurationToolStripMenuItem") ' 'AdministrationToolStripMenuItem ' - Me.AdministrationToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.GlobalIndexerEinstellungenToolStripMenuItem, Me.HotkeyEisntellungenToolStripMenuItem}) Me.AdministrationToolStripMenuItem.Image = Global.Global_Indexer.My.Resources.Resources.Einstellungen6 Me.AdministrationToolStripMenuItem.Name = "AdministrationToolStripMenuItem" resources.ApplyResources(Me.AdministrationToolStripMenuItem, "AdministrationToolStripMenuItem") ' - 'GlobalIndexerEinstellungenToolStripMenuItem - ' - Me.GlobalIndexerEinstellungenToolStripMenuItem.Name = "GlobalIndexerEinstellungenToolStripMenuItem" - resources.ApplyResources(Me.GlobalIndexerEinstellungenToolStripMenuItem, "GlobalIndexerEinstellungenToolStripMenuItem") - ' - 'HotkeyEisntellungenToolStripMenuItem - ' - Me.HotkeyEisntellungenToolStripMenuItem.Image = Global.Global_Indexer.My.Resources.Resources.Shortcut_8169_16x - Me.HotkeyEisntellungenToolStripMenuItem.Name = "HotkeyEisntellungenToolStripMenuItem" - resources.ApplyResources(Me.HotkeyEisntellungenToolStripMenuItem, "HotkeyEisntellungenToolStripMenuItem") - ' 'ToolStripSeparator1 ' Me.ToolStripSeparator1.Name = "ToolStripSeparator1" @@ -100,12 +82,6 @@ Partial Class frmStart Me.GrundeinstellungenToolStripMenuItem.Name = "GrundeinstellungenToolStripMenuItem" resources.ApplyResources(Me.GrundeinstellungenToolStripMenuItem, "GrundeinstellungenToolStripMenuItem") ' - 'FrmHotkeyAddToolStripMenuItem - ' - Me.FrmHotkeyAddToolStripMenuItem.Image = Global.Global_Indexer.My.Resources.Resources.Shortcut_8169_16x - Me.FrmHotkeyAddToolStripMenuItem.Name = "FrmHotkeyAddToolStripMenuItem" - resources.ApplyResources(Me.FrmHotkeyAddToolStripMenuItem, "FrmHotkeyAddToolStripMenuItem") - ' 'HistoryIndexierteDateienToolStripMenuItem ' Me.HistoryIndexierteDateienToolStripMenuItem.Name = "HistoryIndexierteDateienToolStripMenuItem" @@ -189,13 +165,10 @@ Partial Class frmStart Me.MyDataset.DataSetName = "MyDataset" Me.MyDataset.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema ' - 'TBHOTKEY_USER_PROFILETableAdapter - ' - Me.TBHOTKEY_USER_PROFILETableAdapter.ClearBeforeFill = True - ' 'TableAdapterManager ' Me.TableAdapterManager.BackupDataSetBeforeUpdate = False + Me.TableAdapterManager.Connection = Nothing Me.TableAdapterManager.TBDD_CONNECTIONTableAdapter = Nothing Me.TableAdapterManager.TBDD_DOKUMENTARTTableAdapter = Nothing Me.TableAdapterManager.TBDD_EINGANGSARTENTableAdapter = Nothing @@ -207,11 +180,6 @@ Partial Class frmStart Me.TableAdapterManager.TBGI_CONFIGURATIONTableAdapter = Nothing Me.TableAdapterManager.TBGI_OBJECTTYPE_EMAIL_INDEXTableAdapter = Nothing Me.TableAdapterManager.TBGI_REGEX_DOCTYPETableAdapter = Nothing - Me.TableAdapterManager.TBHOTKEY_PATTERNS_REWORKTableAdapter = Nothing - Me.TableAdapterManager.TBHOTKEY_PATTERNSTableAdapter = Nothing - Me.TableAdapterManager.TBHOTKEY_PROFILETableAdapter = Nothing - Me.TableAdapterManager.TBHOTKEY_USER_PROFILETableAdapter = Me.TBHOTKEY_USER_PROFILETableAdapter - Me.TableAdapterManager.TBHOTKEY_WINDOW_HOOKTableAdapter = Nothing Me.TableAdapterManager.UpdateOrder = Global_Indexer.MyDatasetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete ' 'btnChoosefiles @@ -230,6 +198,7 @@ Partial Class frmStart Me.Controls.Add(Me.LabelControl1) Me.Controls.Add(Me.StatusStrip1) Me.Controls.Add(Me.MenuStrip1) + Me.KeyPreview = True Me.MaximizeBox = False Me.Name = "frmStart" Me.MenuStrip1.ResumeLayout(False) @@ -237,7 +206,6 @@ Partial Class frmStart Me.StatusStrip1.ResumeLayout(False) Me.StatusStrip1.PerformLayout() CType(Me.MyDataset, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.TBHOTKEY_USER_PROFILEBindingSource, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) Me.PerformLayout() @@ -245,16 +213,12 @@ Partial Class frmStart Friend WithEvents MenuStrip1 As System.Windows.Forms.MenuStrip Friend WithEvents KonfigurationToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem Friend WithEvents AdministrationToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem - Friend WithEvents GlobalIndexerEinstellungenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem - Friend WithEvents HotkeyEisntellungenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem Friend WithEvents ToolStripSeparator1 As System.Windows.Forms.ToolStripSeparator Friend WithEvents GrundeinstellungenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem - Friend WithEvents FrmHotkeyAddToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem Friend WithEvents StatusStrip1 As System.Windows.Forms.StatusStrip Friend WithEvents tslblFW As System.Windows.Forms.ToolStripStatusLabel Friend WithEvents MyDataset As Global_Indexer.MyDataset Friend WithEvents TBHOTKEY_USER_PROFILEBindingSource As System.Windows.Forms.BindingSource - Friend WithEvents TBHOTKEY_USER_PROFILETableAdapter As Global_Indexer.MyDatasetTableAdapters.TBHOTKEY_USER_PROFILETableAdapter Friend WithEvents TableAdapterManager As Global_Indexer.MyDatasetTableAdapters.TableAdapterManager Friend WithEvents TimerFolderWatch As System.Windows.Forms.Timer Friend WithEvents TimerClose3Minutes As System.Windows.Forms.Timer diff --git a/Global_Indexer/frmStart.resx b/Global_Indexer/frmStart.resx index c9ddf22..5e65bff 100644 --- a/Global_Indexer/frmStart.resx +++ b/Global_Indexer/frmStart.resx @@ -121,6 +121,39 @@ 400, 17 + + 221, 22 + + + Administration + + + 218, 6 + + + 221, 22 + + + User Basis Einstellungen + + + 221, 22 + + + Historie - Indexierte Dateien + + + 221, 22 + + + Info + + + 108, 20 + + + Konfiguration + 0, 0 @@ -146,60 +179,18 @@ 3 - - 108, 20 - - - Konfiguration - - - 221, 22 - - - Administration - - - 232, 22 - - - Global Indexer - Einstellungen - - - 232, 22 - - - Hotkey - Einstellungen - - - 218, 6 - - - 221, 22 - - - User Basis Einstellungen - - - 221, 22 - - - Hotkeys User - - - 221, 22 - - - Historie - Indexierte Dateien - - - 221, 22 - - - Info - 515, 17 + + 133, 17 + + + FolderWatch ist aktiv + + + False + 0, 139 @@ -224,15 +215,6 @@ 2 - - 133, 17 - - - FolderWatch ist aktiv - - - False - 1072, 17 @@ -595,12 +577,6 @@ auf dieses Fenster oder... 17, 17 - - 127, 17 - - - 632, 17 - 899, 17 @@ -927,18 +903,6 @@ auf dieses Fenster oder... System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - GlobalIndexerEinstellungenToolStripMenuItem - - - System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - HotkeyEisntellungenToolStripMenuItem - - - System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - ToolStripSeparator1 @@ -951,12 +915,6 @@ auf dieses Fenster oder... System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - FrmHotkeyAddToolStripMenuItem - - - System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - HistoryIndexierteDateienToolStripMenuItem @@ -1041,18 +999,6 @@ auf dieses Fenster oder... Global_Indexer.MyDataset, MyDataset.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - - TBHOTKEY_USER_PROFILEBindingSource - - - System.Windows.Forms.BindingSource, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TBHOTKEY_USER_PROFILETableAdapter - - - Global_Indexer.MyDatasetTableAdapters.TBHOTKEY_USER_PROFILETableAdapter, MyDataset.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - TableAdapterManager diff --git a/Global_Indexer/frmStart.vb b/Global_Indexer/frmStart.vb index 349f628..ef7adc3 100644 --- a/Global_Indexer/frmStart.vb +++ b/Global_Indexer/frmStart.vb @@ -136,60 +136,7 @@ Public Class frmStart TimerCheckDroppedFiles.Start() End If End Sub - Private Sub ReceiveHotKey(ByVal HotKeyID As String) Handles HotKey.HotKeyPressed - Dim CapTxt As String = ClassHotkey_Windream.GetCaption() - CURRENT_FOCUSES_WINDOWNAME = CapTxt - If CURRENT_FOCUSES_WINDOWNAME.ToUpper.StartsWith("GLOB") Then Exit Sub - LOGGER.Info(" ...Focused window result: '" & CURRENT_FOCUSES_WINDOWNAME & "'") - Me.Cursor = Cursors.WaitCursor - Me.NotifyIcon1.Visible = True - NotifyIcon1.ShowBalloonTip(1000, "Hotkey", "Hotkey wird ausgeführt!", ToolTipIcon.Info) - Try - Dim _focusedWindowfound As Boolean = False - Dim HK1 As String - Dim HK2 As String - 'Die Hotkeys definieren - Dim SQL As String = "SELECT * FROM TBHOTKEYTEMP_USER_HOTKEYS WHERE HOTKEY_ID = " & HotKeyID - Dim DTHOTKEYSTEMP As DataTable = ClassDatabase.Return_Datatable(SQL, True) - If Not IsNothing(DTHOTKEYSTEMP) Then - HK1 = DTHOTKEYSTEMP.Rows(0).Item("HOTKEY1") - HK2 = DTHOTKEYSTEMP.Rows(0).Item("HOTKEY2") - 'Alle Profile raussuchen die die Tastaturkombination enthalten - SQL = "select * from TBHOTKEY_USER_PROFILE where UPPER(HOTKEY1) = UPPER('" & HK1 & "') AND UPPER(HOTKEY2) = UPPER('" & HK2 & "') AND USER_ID = " & USER_ID - Dim DTHOTKEY_PROFILES As DataTable = ClassDatabase.Return_Datatable(SQL, True) - Dim Result As String = "" - If Not IsNothing(DTHOTKEY_PROFILES) Then - - 'Jedes Hotkeyprofil des Users durchlaufen um zu überprüfen ob das CURRENT_FOCUSES_WINDOWNAME = dem konfiguriertem ist - For Each row As DataRow In DTHOTKEY_PROFILES.Rows - SQL = "select WINDOW_NAME from TBHOTKEY_PROFILE where GUID = " & row.Item("HKPROFILE_ID") - 'Konfigurierte windows-String speichern - Dim windowconfigured = ClassDatabase.Execute_Scalar(SQL, MyConnectionString, True) - 'Focuses window enthalten?? - If CURRENT_FOCUSES_WINDOWNAME.ToUpper.Contains(windowconfigured.ToString.ToUpper) Or CURRENT_FOCUSES_WINDOWNAME.ToUpper = windowconfigured.ToString.ToUpper Then - 'Ja - also die windream-Suche ausführen - _focusedWindowfound = True - Result = ClassHotkey_Windream.RUN_WD_SEARCH(row.Item("GUID")) - End If - Next - If _focusedWindowfound = False Then - Result = "Focused Window not configured in hotkey" - End If - End If - - - If Result = "" Then - Me.NotifyIcon1.Visible = False - Else - NotifyIcon1.ShowBalloonTip(5000, "Hotkey-Fehler:", Result.ToString, ToolTipIcon.Warning) - End If - End If - Catch ex As Exception - MsgBox("Error in ReceiveHotKey: " & ex.Message, MsgBoxStyle.Critical) - End Try - Me.Cursor = Cursors.Default - End Sub Private Sub frmMain_DragEnter(sender As Object, e As DragEventArgs) Handles Me.DragEnter Drag_Enter(sender, e) End Sub @@ -288,9 +235,6 @@ Public Class frmStart Catch ex As Exception MsgBox("Unexpected Error in Closing Application: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) End Try - If USER_ID > 0 Then - Unregister_Hotkeys() - End If 'TempDateien löschen Try For Each _file In TEMP_FILES @@ -365,8 +309,6 @@ Public Class frmStart AdministrationToolStripMenuItem.Visible = False End If ClassDatabase.Execute_non_Query("DELETE FROM TBGI_FILES_USER WHERE UPPER(USER@WORK) = UPPER('" & Environment.UserName & "')", True) - Unregister_Hotkeys() - Load_Hotkeys() TopMost = True @@ -472,76 +414,8 @@ Public Class frmStart End If End Sub - Sub Unregister_Hotkeys() - Try - Dim sql As String = "Select * from TBHOTKEYTEMP_USER_HOTKEYS where [USER_ID] = " & USER_ID - Dim DT As DataTable = ClassDatabase.Return_Datatable(sql, True) - If Not IsNothing(DT) Then - For Each row As DataRow In DT.Rows - HotKey.RemoveHotKey(row.Item("HOTKEY_ID")) - Next - sql = "delete from TBHOTKEYTEMP_USER_HOTKEYS where [USER_ID] = " & USER_ID - ClassDatabase.Execute_non_Query(sql, True) - End If - Catch ex As Exception - MsgBox("Error in Unregister_Hotkeys:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) - End Try - End Sub - Sub Load_Hotkeys() - Try - Dim DT As DataTable = ClassDatabase.Return_Datatable("SELECT HOTKEY1, HOTKEY2, ABS(CONVERT(INT, CONVERT(binary(4), NEWID()))) AS HOTKEY_ID FROM TBHOTKEY_USER_PROFILE WHERE USER_ID = " & USER_ID & " GROUP BY HOTKEY1, HOTKEY2", True) - If DT.Rows.Count > 0 Then - LOGGER.Info(" >> " & DT.Rows.Count & " Hotkey-Profile") - Dim i As Integer = 0 - For Each row As DataRow In DT.Rows - i += 1 - Dim sql As String = "INSERT INTO TBHOTKEYTEMP_USER_HOTKEYS (HOTKEY_ID,HOTKEY1,HOTKEY2,[USER_ID]) VALUES (" & row.Item("HOTKEY_ID") & ", '" & row.Item("HOTKEY1") & "', '" & row.Item("HOTKEY2") & "', " & USER_ID & ")" - ClassDatabase.Execute_non_Query(sql, True) - - Dim keyCode As Keys - Try - Dim kc As New KeysConverter - Dim obj As Object = kc.ConvertFromString(row.Item("HOTKEY2").ToString.ToUpper) - keyCode = CType(obj, Keys) - Catch ex As Exception - MsgBox("Error in Convert Key:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) - Exit Sub - End Try - - Select Case row.Item("HOTKEY1") - Case "Strg" - LOGGER.Info(" >>" & i.ToString + "|Strg " & row.Item("HOTKEY2").ToString.ToUpper) - HotKey.AddHotKey(keyCode, clsHotkey.MODKEY.MOD_CONTROL, row.Item("HOTKEY_ID")) - Case "Shift" - LOGGER.Info(" >>" & i.ToString + "|Shift " & row.Item("HOTKEY2").ToString.ToUpper) - HotKey.AddHotKey(keyCode, clsHotkey.MODKEY.MOD_SHIFT, row.Item("HOTKEY_ID")) - Case "Alt" - LOGGER.Info(" >>" & i.ToString + "|Alt " & row.Item("HOTKEY2").ToString.ToUpper) - HotKey.AddHotKey(keyCode, clsHotkey.MODKEY.MOD_ALT, row.Item("HOTKEY_ID")) - Case "win" - LOGGER.Info(" >>" & i.ToString + "|Win " & row.Item("HOTKEY2").ToString.ToUpper) - HotKey.AddHotKey(keyCode, clsHotkey.MODKEY.MOD_WIN, row.Item("HOTKEY_ID")) - End Select - Next - Else - LOGGER.Info(" >> Keine Hotkeys!") - End If - Catch ex As Exception - MsgBox("Error in Load_Hotkeys:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) - End Try - End Sub - Private Sub HotkeyEisntellungenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles HotkeyEisntellungenToolStripMenuItem.Click - If ClassLicence.license_is_Valid = True Then - Me.Hide() - Unregister_Hotkeys() - frmHotKey_Add.ShowDialog() - Load_Hotkeys() - Me.Visible = True - End If - End Sub - - Private Sub GlobalIndexerEinstellungenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles GlobalIndexerEinstellungenToolStripMenuItem.Click + Private Sub GlobalIndexerEinstellungenToolStripMenuItem_Click(sender As Object, e As EventArgs) Try Me.Hide() frmAdministration.ShowDialog() @@ -568,16 +442,6 @@ Public Class frmStart Me.TopMost = True End Sub - Private Sub FrmHotkeyAddToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles FrmHotkeyAddToolStripMenuItem.Click - If ClassLicence.license_is_Valid = True Then - Me.Hide() - Unregister_Hotkeys() - frmHotkey_User.ShowDialog() - Load_Hotkeys() - Me.Visible = True - End If - End Sub - Private Sub TimerFolderWatch_Tick(sender As Object, e As EventArgs) Handles TimerFolderWatch.Tick If ClassDatabase.DatabaseConnectionTimeout = True Then TimerFolderWatch.Enabled = False @@ -746,4 +610,15 @@ Public Class frmStart End If End If End Sub + + Private Sub AdministrationToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AdministrationToolStripMenuItem.Click + Try + Me.Hide() + frmAdministration.ShowDialog() + Me.Show() + Catch ex As Exception + MsgBox("Fehler in der Administration:" & vbCrLf & vbCrLf & ex.Message, MsgBoxStyle.Critical, Text) + LOGGER.Error(ex) + End Try + End Sub End Class \ No newline at end of file