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

MS Style und Ribbon AllowMinimize = false

Browse Source
This commit is contained in:
Developer01
2025-01-24 12:56:59 +01:00
parent 550a9cd3ea
commit 98016b82a4
18 changed files with 637 additions and 500 deletions
Download Patch File Download Diff File Expand all files Collapse all files

156
app/DD_Clipboard_Searcher/MyDataset.Designer.vb generated
View File

@@ -4839,10 +4839,6 @@ Partial Public Class MyDataset
Partial Public Class VWCW_GROUP_PROFILEDataTable
Inherits Global.System.Data.TypedTableBase(Of VWCW_GROUP_PROFILERow)
Private columnGUID As Global.System.Data.DataColumn
Private columnNAME As Global.System.Data.DataColumn
Private columnREGEX_EXPRESSION As Global.System.Data.DataColumn
Private columnCOMMENT As Global.System.Data.DataColumn
@@ -4851,7 +4847,11 @@ Partial Public Class MyDataset
Private columnGROUP_ID As Global.System.Data.DataColumn
Private columnPROC_NAME As Global.System.Data.DataColumn
Private columnGROUP_NAME As Global.System.Data.DataColumn
Private columnPROFIL_ID As Global.System.Data.DataColumn
Private columnPROFIL_NAME As Global.System.Data.DataColumn
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
@@ -4888,22 +4888,6 @@ Partial Public Class MyDataset
Me.InitVars
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn
Get
Return Me.columnGUID
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property NAMEColumn() As Global.System.Data.DataColumn
Get
Return Me.columnNAME
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property REGEX_EXPRESSIONColumn() As Global.System.Data.DataColumn
@@ -4938,9 +4922,25 @@ Partial Public Class MyDataset
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property PROC_NAMEColumn() As Global.System.Data.DataColumn
Public ReadOnly Property GROUP_NAMEColumn() As Global.System.Data.DataColumn
Get
Return Me.columnPROC_NAME
Return Me.columnGROUP_NAME
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property PROFIL_IDColumn() As Global.System.Data.DataColumn
Get
Return Me.columnPROFIL_ID
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property PROFIL_NAMEColumn() As Global.System.Data.DataColumn
Get
Return Me.columnPROFIL_NAME
End Get
End Property
@@ -4981,9 +4981,9 @@ Partial Public Class MyDataset
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Overloads Function AddVWCW_GROUP_PROFILERow(ByVal GUID As Integer, ByVal NAME As String, ByVal REGEX_EXPRESSION As String, ByVal COMMENT As String, ByVal ACTIVE As Boolean, ByVal GROUP_ID As Integer, ByVal PROC_NAME As String) As VWCW_GROUP_PROFILERow
Public Overloads Function AddVWCW_GROUP_PROFILERow(ByVal REGEX_EXPRESSION As String, ByVal COMMENT As String, ByVal ACTIVE As Boolean, ByVal GROUP_ID As Integer, ByVal GROUP_NAME As String, ByVal PROFIL_ID As Integer, ByVal PROFIL_NAME As String) As VWCW_GROUP_PROFILERow
Dim rowVWCW_GROUP_PROFILERow As VWCW_GROUP_PROFILERow = CType(Me.NewRow,VWCW_GROUP_PROFILERow)
Dim columnValuesArray() As Object = New Object() {GUID, NAME, REGEX_EXPRESSION, COMMENT, ACTIVE, GROUP_ID, PROC_NAME}
Dim columnValuesArray() As Object = New Object() {REGEX_EXPRESSION, COMMENT, ACTIVE, GROUP_ID, GROUP_NAME, PROFIL_ID, PROFIL_NAME}
rowVWCW_GROUP_PROFILERow.ItemArray = columnValuesArray
Me.Rows.Add(rowVWCW_GROUP_PROFILERow)
Return rowVWCW_GROUP_PROFILERow
@@ -5006,22 +5006,18 @@ Partial Public Class MyDataset
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Friend Sub InitVars()
Me.columnGUID = MyBase.Columns("GUID")
Me.columnNAME = MyBase.Columns("NAME")
Me.columnREGEX_EXPRESSION = MyBase.Columns("REGEX_EXPRESSION")
Me.columnCOMMENT = MyBase.Columns("COMMENT")
Me.columnACTIVE = MyBase.Columns("ACTIVE")
Me.columnGROUP_ID = MyBase.Columns("GROUP_ID")
Me.columnPROC_NAME = MyBase.Columns("PROC_NAME")
Me.columnGROUP_NAME = MyBase.Columns("GROUP_NAME")
Me.columnPROFIL_ID = MyBase.Columns("PROFIL_ID")
Me.columnPROFIL_NAME = MyBase.Columns("PROFIL_NAME")
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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.columnREGEX_EXPRESSION = New Global.System.Data.DataColumn("REGEX_EXPRESSION", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnREGEX_EXPRESSION)
Me.columnCOMMENT = New Global.System.Data.DataColumn("COMMENT", GetType(String), Nothing, Global.System.Data.MappingType.Element)
@@ -5030,18 +5026,22 @@ Partial Public Class MyDataset
MyBase.Columns.Add(Me.columnACTIVE)
Me.columnGROUP_ID = New Global.System.Data.DataColumn("GROUP_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnGROUP_ID)
Me.columnPROC_NAME = New Global.System.Data.DataColumn("PROC_NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnPROC_NAME)
Me.columnGUID.AllowDBNull = false
Me.columnNAME.AllowDBNull = false
Me.columnNAME.MaxLength = 100
Me.columnGROUP_NAME = New Global.System.Data.DataColumn("GROUP_NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnGROUP_NAME)
Me.columnPROFIL_ID = New Global.System.Data.DataColumn("PROFIL_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnPROFIL_ID)
Me.columnPROFIL_NAME = New Global.System.Data.DataColumn("PROFIL_NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnPROFIL_NAME)
Me.Constraints.Add(New Global.System.Data.UniqueConstraint("VWCW_GROUP_PROFILEKey1", New Global.System.Data.DataColumn() {Me.columnGROUP_ID, Me.columnPROFIL_ID}, false))
Me.columnREGEX_EXPRESSION.AllowDBNull = false
Me.columnREGEX_EXPRESSION.MaxLength = 100
Me.columnCOMMENT.MaxLength = 500
Me.columnACTIVE.AllowDBNull = false
Me.columnGROUP_ID.AllowDBNull = false
Me.columnPROC_NAME.AllowDBNull = false
Me.columnPROC_NAME.MaxLength = 100
Me.columnGROUP_NAME.MaxLength = 50
Me.columnPROFIL_ID.AllowDBNull = false
Me.columnPROFIL_NAME.AllowDBNull = false
Me.columnPROFIL_NAME.MaxLength = 100
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
@@ -8263,28 +8263,6 @@ Partial Public Class MyDataset
Me.tableVWCW_GROUP_PROFILE = CType(Me.Table,VWCW_GROUP_PROFILEDataTable)
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Property GUID() As Integer
Get
Return CType(Me(Me.tableVWCW_GROUP_PROFILE.GUIDColumn),Integer)
End Get
Set
Me(Me.tableVWCW_GROUP_PROFILE.GUIDColumn) = value
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Property NAME() As String
Get
Return CType(Me(Me.tableVWCW_GROUP_PROFILE.NAMEColumn),String)
End Get
Set
Me(Me.tableVWCW_GROUP_PROFILE.NAMEColumn) = value
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Property REGEX_EXPRESSION() As String
@@ -8335,12 +8313,38 @@ Partial Public Class MyDataset
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Property PROC_NAME() As String
Public Property GROUP_NAME() As String
Get
Return CType(Me(Me.tableVWCW_GROUP_PROFILE.PROC_NAMEColumn),String)
Try
Return CType(Me(Me.tableVWCW_GROUP_PROFILE.GROUP_NAMEColumn),String)
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GROUP_NAME in Tabelle VWCW_GROUP_PROFILE ist DBNull.", e)
End Try
End Get
Set
Me(Me.tableVWCW_GROUP_PROFILE.PROC_NAMEColumn) = value
Me(Me.tableVWCW_GROUP_PROFILE.GROUP_NAMEColumn) = value
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Property PROFIL_ID() As Integer
Get
Return CType(Me(Me.tableVWCW_GROUP_PROFILE.PROFIL_IDColumn),Integer)
End Get
Set
Me(Me.tableVWCW_GROUP_PROFILE.PROFIL_IDColumn) = value
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Property PROFIL_NAME() As String
Get
Return CType(Me(Me.tableVWCW_GROUP_PROFILE.PROFIL_NAMEColumn),String)
End Get
Set
Me(Me.tableVWCW_GROUP_PROFILE.PROFIL_NAMEColumn) = value
End Set
End Property
@@ -8355,6 +8359,18 @@ Partial Public Class MyDataset
Public Sub SetCOMMENTNull()
Me(Me.tableVWCW_GROUP_PROFILE.COMMENTColumn) = Global.System.Convert.DBNull
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Function IsGROUP_NAMENull() As Boolean
Return Me.IsNull(Me.tableVWCW_GROUP_PROFILE.GROUP_NAMEColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Sub SetGROUP_NAMENull()
Me(Me.tableVWCW_GROUP_PROFILE.GROUP_NAMEColumn) = Global.System.Convert.DBNull
End Sub
End Class
'''<summary>
@@ -12895,13 +12911,13 @@ Namespace MyDatasetTableAdapters
Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping()
tableMapping.SourceTable = "Table"
tableMapping.DataSetTable = "VWCW_GROUP_PROFILE"
tableMapping.ColumnMappings.Add("GUID", "GUID")
tableMapping.ColumnMappings.Add("NAME", "NAME")
tableMapping.ColumnMappings.Add("REGEX_EXPRESSION", "REGEX_EXPRESSION")
tableMapping.ColumnMappings.Add("COMMENT", "COMMENT")
tableMapping.ColumnMappings.Add("ACTIVE", "ACTIVE")
tableMapping.ColumnMappings.Add("GROUP_ID", "GROUP_ID")
tableMapping.ColumnMappings.Add("PROC_NAME", "PROC_NAME")
tableMapping.ColumnMappings.Add("GROUP_NAME", "GROUP_NAME")
tableMapping.ColumnMappings.Add("PROFIL_ID", "PROFIL_ID")
tableMapping.ColumnMappings.Add("PROFIL_NAME", "PROFIL_NAME")
Me._adapter.TableMappings.Add(tableMapping)
End Sub
@@ -12918,9 +12934,11 @@ Namespace MyDatasetTableAdapters
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, NAME, REGEX_EXPRESSION, COMMENT, ACTIVE, GROUP_ID, PROC_NAME"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM VWCW_GROUP_PROFILE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @PROFILE_ID)"
Me._commandCollection(0).CommandText = "SELECT PROFIL_ID, PROFIL_NAME, REGEX_EXPRESSION, COMMENT, ACTIVE, GROUP_ID"& _
", GROUP_NAME"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM VWCW_GROUP_PROFILE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (PROFIL_ID = @PRO"& _
"FILE_ID)"
Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
Me._commandCollection(0).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(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROFILE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFIL_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _