MS bugfixing

This commit is contained in:
Digital Data - Marlon Schreiber 2018-06-21 09:41:54 +02:00
parent 26f124cd4e
commit 22549ee7aa
7 changed files with 232 additions and 161 deletions

View File

@ -256,6 +256,7 @@
<ItemGroup>
<Content Include="DD_Icons_ICO_CBWATCHER_48px.ico" />
<Content Include="KeyOutput_8167.ico" />
<None Include="Resources\refresh_16xLG.png" />
<None Include="Resources\Symbols_Stop_16xLG.png" />
<None Include="Resources\startwithoutdebugging_6556.png" />
<None Include="Resources\ReduceSize.png" />

View File

@ -22,7 +22,7 @@ Namespace My.Resources
'''<summary>
''' Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw.
'''</summary>
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "4.0.0.0"), _
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "15.0.0.0"), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
Global.Microsoft.VisualBasic.HideModuleNameAttribute()> _
@ -130,6 +130,16 @@ Namespace My.Resources
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property refresh_16xLG() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("refresh_16xLG", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>

View File

@ -118,34 +118,37 @@
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
<data name="ReduceSize" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ReduceSize.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="GoToDefinition_5575" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\GoToDefinition_5575.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="KeyOutput_8167" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\KeyOutput_8167.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="StatusAnnotations_Stop_16xLG" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\StatusAnnotations_Stop_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Annotation_New" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Annotation_New.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="KeyDown_8461" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\KeyDown_8461.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="folder_Open_16xLG" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\folder_Open_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="control_start_blue" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\control_start_blue.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="KeyOutput_8167" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\KeyOutput_8167.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="startwithoutdebugging_6556" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\startwithoutdebugging_6556.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="control_start_blue" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\control_start_blue.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="StatusAnnotations_Stop_16xLG" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\StatusAnnotations_Stop_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Symbols_Stop_16xLG" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Symbols_Stop_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="ReduceSize" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ReduceSize.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="folder_Open_16xLG" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\folder_Open_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Annotation_New" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Annotation_New.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="refresh_16xLG" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\refresh_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
</root>

Binary file not shown.

After

Width:  |  Height:  |  Size: 407 B

View File

@ -34,10 +34,20 @@ Partial Class frmAdministration
Dim CHANGED_WHENLabel As System.Windows.Forms.Label
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmAdministration))
Me.GroupBox1 = New System.Windows.Forms.GroupBox()
Me.grpbxProfiles = New System.Windows.Forms.GroupBox()
Me.btnaddSearch = New System.Windows.Forms.Button()
Me.GridControl1 = New DevExpress.XtraGrid.GridControl()
Me.CHANGED_WHENTextBox = New System.Windows.Forms.TextBox()
Me.TBCW_PROFILESBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.MyDataset = New DD_Clipboard_Watcher.MyDataset()
Me.CHANGED_WHOTextBox = New System.Windows.Forms.TextBox()
Me.GUIDTextBox = New System.Windows.Forms.TextBox()
Me.ADDED_WHENTextBox = New System.Windows.Forms.TextBox()
Me.NAMETextBox = New System.Windows.Forms.TextBox()
Me.ADDED_WHOTextBox = New System.Windows.Forms.TextBox()
Me.COMMENTTextBox = New System.Windows.Forms.TextBox()
Me.REGEX_EXPRESSIONTextBox = New System.Windows.Forms.TextBox()
Me.WD_SEARCHTextBox = New System.Windows.Forms.TextBox()
Me.GridControl1 = New DevExpress.XtraGrid.GridControl()
Me.GridView1 = New DevExpress.XtraGrid.Views.Grid.GridView()
Me.colGUID = New DevExpress.XtraGrid.Columns.GridColumn()
Me.colNAME = New DevExpress.XtraGrid.Columns.GridColumn()
@ -54,15 +64,7 @@ Partial Class frmAdministration
Me.BindingNavigatorSeparator2 = New System.Windows.Forms.ToolStripSeparator()
Me.BindingNavigatorDeleteItem = New System.Windows.Forms.ToolStripButton()
Me.TBCW_PROFILESBindingNavigatorSaveItem = New System.Windows.Forms.ToolStripButton()
Me.GUIDTextBox = New System.Windows.Forms.TextBox()
Me.NAMETextBox = New System.Windows.Forms.TextBox()
Me.COMMENTTextBox = New System.Windows.Forms.TextBox()
Me.WD_SEARCHTextBox = New System.Windows.Forms.TextBox()
Me.REGEX_EXPRESSIONTextBox = New System.Windows.Forms.TextBox()
Me.ADDED_WHOTextBox = 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.ToolStripButton1 = New System.Windows.Forms.ToolStripButton()
Me.GroupBox2 = New System.Windows.Forms.GroupBox()
Me.Label2 = New System.Windows.Forms.Label()
Me.GridControlUsers2Menue = New DevExpress.XtraGrid.GridControl()
@ -125,9 +127,10 @@ Partial Class frmAdministration
CHANGED_WHOLabel = New System.Windows.Forms.Label()
CHANGED_WHENLabel = New System.Windows.Forms.Label()
Me.GroupBox1.SuspendLayout()
CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.grpbxProfiles.SuspendLayout()
CType(Me.TBCW_PROFILESBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.MyDataset, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.GridView1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TBCW_PROFILESBindingNavigator, System.ComponentModel.ISupportInitialize).BeginInit()
Me.TBCW_PROFILESBindingNavigator.SuspendLayout()
@ -152,7 +155,7 @@ Partial Class frmAdministration
'
GUIDLabel.AutoSize = True
GUIDLabel.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
GUIDLabel.Location = New System.Drawing.Point(174, 48)
GUIDLabel.Location = New System.Drawing.Point(10, 17)
GUIDLabel.Name = "GUIDLabel"
GUIDLabel.Size = New System.Drawing.Size(22, 13)
GUIDLabel.TabIndex = 0
@ -162,7 +165,7 @@ Partial Class frmAdministration
'
NAMELabel.AutoSize = True
NAMELabel.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
NAMELabel.Location = New System.Drawing.Point(227, 48)
NAMELabel.Location = New System.Drawing.Point(63, 17)
NAMELabel.Name = "NAMELabel"
NAMELabel.Size = New System.Drawing.Size(38, 13)
NAMELabel.TabIndex = 2
@ -172,7 +175,7 @@ Partial Class frmAdministration
'
COMMENTLabel.AutoSize = True
COMMENTLabel.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
COMMENTLabel.Location = New System.Drawing.Point(174, 88)
COMMENTLabel.Location = New System.Drawing.Point(10, 57)
COMMENTLabel.Name = "COMMENTLabel"
COMMENTLabel.Size = New System.Drawing.Size(65, 13)
COMMENTLabel.TabIndex = 4
@ -182,7 +185,7 @@ Partial Class frmAdministration
'
WD_SEARCHLabel.AutoSize = True
WD_SEARCHLabel.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
WD_SEARCHLabel.Location = New System.Drawing.Point(174, 128)
WD_SEARCHLabel.Location = New System.Drawing.Point(10, 97)
WD_SEARCHLabel.Name = "WD_SEARCHLabel"
WD_SEARCHLabel.Size = New System.Drawing.Size(89, 13)
WD_SEARCHLabel.TabIndex = 6
@ -192,7 +195,7 @@ Partial Class frmAdministration
'
REGEX_EXPRESSIONLabel.AutoSize = True
REGEX_EXPRESSIONLabel.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
REGEX_EXPRESSIONLabel.Location = New System.Drawing.Point(174, 168)
REGEX_EXPRESSIONLabel.Location = New System.Drawing.Point(10, 137)
REGEX_EXPRESSIONLabel.Name = "REGEX_EXPRESSIONLabel"
REGEX_EXPRESSIONLabel.Size = New System.Drawing.Size(97, 13)
REGEX_EXPRESSIONLabel.TabIndex = 8
@ -202,7 +205,7 @@ Partial Class frmAdministration
'
ADDED_WHOLabel.AutoSize = True
ADDED_WHOLabel.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
ADDED_WHOLabel.Location = New System.Drawing.Point(174, 208)
ADDED_WHOLabel.Location = New System.Drawing.Point(10, 177)
ADDED_WHOLabel.Name = "ADDED_WHOLabel"
ADDED_WHOLabel.Size = New System.Drawing.Size(65, 13)
ADDED_WHOLabel.TabIndex = 10
@ -212,7 +215,7 @@ Partial Class frmAdministration
'
ADDED_WHENLabel.AutoSize = True
ADDED_WHENLabel.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
ADDED_WHENLabel.Location = New System.Drawing.Point(327, 208)
ADDED_WHENLabel.Location = New System.Drawing.Point(163, 177)
ADDED_WHENLabel.Name = "ADDED_WHENLabel"
ADDED_WHENLabel.Size = New System.Drawing.Size(73, 13)
ADDED_WHENLabel.TabIndex = 12
@ -222,7 +225,7 @@ Partial Class frmAdministration
'
CHANGED_WHOLabel.AutoSize = True
CHANGED_WHOLabel.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
CHANGED_WHOLabel.Location = New System.Drawing.Point(174, 248)
CHANGED_WHOLabel.Location = New System.Drawing.Point(10, 217)
CHANGED_WHOLabel.Name = "CHANGED_WHOLabel"
CHANGED_WHOLabel.Size = New System.Drawing.Size(77, 13)
CHANGED_WHOLabel.TabIndex = 14
@ -232,7 +235,7 @@ Partial Class frmAdministration
'
CHANGED_WHENLabel.AutoSize = True
CHANGED_WHENLabel.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
CHANGED_WHENLabel.Location = New System.Drawing.Point(327, 248)
CHANGED_WHENLabel.Location = New System.Drawing.Point(163, 217)
CHANGED_WHENLabel.Name = "CHANGED_WHENLabel"
CHANGED_WHENLabel.Size = New System.Drawing.Size(85, 13)
CHANGED_WHENLabel.TabIndex = 16
@ -242,54 +245,64 @@ Partial Class frmAdministration
'
Me.GroupBox1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.GroupBox1.Controls.Add(Me.btnaddSearch)
Me.GroupBox1.Controls.Add(Me.grpbxProfiles)
Me.GroupBox1.Controls.Add(Me.GridControl1)
Me.GroupBox1.Controls.Add(Me.TBCW_PROFILESBindingNavigator)
Me.GroupBox1.Controls.Add(GUIDLabel)
Me.GroupBox1.Controls.Add(Me.GUIDTextBox)
Me.GroupBox1.Controls.Add(NAMELabel)
Me.GroupBox1.Controls.Add(Me.NAMETextBox)
Me.GroupBox1.Controls.Add(COMMENTLabel)
Me.GroupBox1.Controls.Add(Me.COMMENTTextBox)
Me.GroupBox1.Controls.Add(WD_SEARCHLabel)
Me.GroupBox1.Controls.Add(Me.WD_SEARCHTextBox)
Me.GroupBox1.Controls.Add(REGEX_EXPRESSIONLabel)
Me.GroupBox1.Controls.Add(Me.REGEX_EXPRESSIONTextBox)
Me.GroupBox1.Controls.Add(ADDED_WHOLabel)
Me.GroupBox1.Controls.Add(Me.ADDED_WHOTextBox)
Me.GroupBox1.Controls.Add(ADDED_WHENLabel)
Me.GroupBox1.Controls.Add(Me.ADDED_WHENTextBox)
Me.GroupBox1.Controls.Add(CHANGED_WHOLabel)
Me.GroupBox1.Controls.Add(Me.CHANGED_WHOTextBox)
Me.GroupBox1.Controls.Add(CHANGED_WHENLabel)
Me.GroupBox1.Controls.Add(Me.CHANGED_WHENTextBox)
Me.GroupBox1.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.GroupBox1.Location = New System.Drawing.Point(12, 12)
Me.GroupBox1.Name = "GroupBox1"
Me.GroupBox1.Size = New System.Drawing.Size(570, 292)
Me.GroupBox1.Size = New System.Drawing.Size(570, 318)
Me.GroupBox1.TabIndex = 0
Me.GroupBox1.TabStop = False
Me.GroupBox1.Text = "Profile"
'
'grpbxProfiles
'
Me.grpbxProfiles.Controls.Add(GUIDLabel)
Me.grpbxProfiles.Controls.Add(Me.btnaddSearch)
Me.grpbxProfiles.Controls.Add(Me.CHANGED_WHENTextBox)
Me.grpbxProfiles.Controls.Add(CHANGED_WHENLabel)
Me.grpbxProfiles.Controls.Add(Me.CHANGED_WHOTextBox)
Me.grpbxProfiles.Controls.Add(CHANGED_WHOLabel)
Me.grpbxProfiles.Controls.Add(Me.GUIDTextBox)
Me.grpbxProfiles.Controls.Add(Me.ADDED_WHENTextBox)
Me.grpbxProfiles.Controls.Add(NAMELabel)
Me.grpbxProfiles.Controls.Add(ADDED_WHENLabel)
Me.grpbxProfiles.Controls.Add(Me.NAMETextBox)
Me.grpbxProfiles.Controls.Add(Me.ADDED_WHOTextBox)
Me.grpbxProfiles.Controls.Add(COMMENTLabel)
Me.grpbxProfiles.Controls.Add(ADDED_WHOLabel)
Me.grpbxProfiles.Controls.Add(Me.COMMENTTextBox)
Me.grpbxProfiles.Controls.Add(Me.REGEX_EXPRESSIONTextBox)
Me.grpbxProfiles.Controls.Add(WD_SEARCHLabel)
Me.grpbxProfiles.Controls.Add(REGEX_EXPRESSIONLabel)
Me.grpbxProfiles.Controls.Add(Me.WD_SEARCHTextBox)
Me.grpbxProfiles.Enabled = False
Me.grpbxProfiles.Location = New System.Drawing.Point(177, 48)
Me.grpbxProfiles.Name = "grpbxProfiles"
Me.grpbxProfiles.Size = New System.Drawing.Size(381, 264)
Me.grpbxProfiles.TabIndex = 20
Me.grpbxProfiles.TabStop = False
'
'btnaddSearch
'
Me.btnaddSearch.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.btnaddSearch.Location = New System.Drawing.Point(497, 142)
Me.btnaddSearch.Location = New System.Drawing.Point(333, 111)
Me.btnaddSearch.Name = "btnaddSearch"
Me.btnaddSearch.Size = New System.Drawing.Size(28, 23)
Me.btnaddSearch.TabIndex = 19
Me.btnaddSearch.Text = "..."
Me.btnaddSearch.UseVisualStyleBackColor = True
'
'GridControl1
'CHANGED_WHENTextBox
'
Me.GridControl1.DataSource = Me.TBCW_PROFILESBindingSource
Me.GridControl1.Location = New System.Drawing.Point(6, 17)
Me.GridControl1.MainView = Me.GridView1
Me.GridControl1.Name = "GridControl1"
Me.GridControl1.Size = New System.Drawing.Size(162, 268)
Me.GridControl1.TabIndex = 18
Me.GridControl1.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView1})
Me.CHANGED_WHENTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBCW_PROFILESBindingSource, "CHANGED_WHEN", True))
Me.CHANGED_WHENTextBox.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.CHANGED_WHENTextBox.Location = New System.Drawing.Point(166, 233)
Me.CHANGED_WHENTextBox.Name = "CHANGED_WHENTextBox"
Me.CHANGED_WHENTextBox.ReadOnly = True
Me.CHANGED_WHENTextBox.Size = New System.Drawing.Size(127, 21)
Me.CHANGED_WHENTextBox.TabIndex = 17
'
'TBCW_PROFILESBindingSource
'
@ -301,6 +314,92 @@ Partial Class frmAdministration
Me.MyDataset.DataSetName = "MyDataset"
Me.MyDataset.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema
'
'CHANGED_WHOTextBox
'
Me.CHANGED_WHOTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBCW_PROFILESBindingSource, "CHANGED_WHO", True))
Me.CHANGED_WHOTextBox.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.CHANGED_WHOTextBox.Location = New System.Drawing.Point(13, 233)
Me.CHANGED_WHOTextBox.Name = "CHANGED_WHOTextBox"
Me.CHANGED_WHOTextBox.ReadOnly = True
Me.CHANGED_WHOTextBox.Size = New System.Drawing.Size(147, 21)
Me.CHANGED_WHOTextBox.TabIndex = 15
'
'GUIDTextBox
'
Me.GUIDTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBCW_PROFILESBindingSource, "GUID", True))
Me.GUIDTextBox.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.GUIDTextBox.Location = New System.Drawing.Point(13, 33)
Me.GUIDTextBox.Name = "GUIDTextBox"
Me.GUIDTextBox.ReadOnly = True
Me.GUIDTextBox.Size = New System.Drawing.Size(47, 21)
Me.GUIDTextBox.TabIndex = 1
'
'ADDED_WHENTextBox
'
Me.ADDED_WHENTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBCW_PROFILESBindingSource, "ADDED_WHEN", True))
Me.ADDED_WHENTextBox.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.ADDED_WHENTextBox.Location = New System.Drawing.Point(166, 193)
Me.ADDED_WHENTextBox.Name = "ADDED_WHENTextBox"
Me.ADDED_WHENTextBox.ReadOnly = True
Me.ADDED_WHENTextBox.Size = New System.Drawing.Size(127, 21)
Me.ADDED_WHENTextBox.TabIndex = 13
'
'NAMETextBox
'
Me.NAMETextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBCW_PROFILESBindingSource, "NAME", True))
Me.NAMETextBox.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.NAMETextBox.Location = New System.Drawing.Point(66, 33)
Me.NAMETextBox.Name = "NAMETextBox"
Me.NAMETextBox.Size = New System.Drawing.Size(295, 21)
Me.NAMETextBox.TabIndex = 0
'
'ADDED_WHOTextBox
'
Me.ADDED_WHOTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBCW_PROFILESBindingSource, "ADDED_WHO", True))
Me.ADDED_WHOTextBox.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.ADDED_WHOTextBox.Location = New System.Drawing.Point(13, 193)
Me.ADDED_WHOTextBox.Name = "ADDED_WHOTextBox"
Me.ADDED_WHOTextBox.ReadOnly = True
Me.ADDED_WHOTextBox.Size = New System.Drawing.Size(147, 21)
Me.ADDED_WHOTextBox.TabIndex = 11
'
'COMMENTTextBox
'
Me.COMMENTTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBCW_PROFILESBindingSource, "COMMENT", True))
Me.COMMENTTextBox.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.COMMENTTextBox.Location = New System.Drawing.Point(13, 73)
Me.COMMENTTextBox.Name = "COMMENTTextBox"
Me.COMMENTTextBox.Size = New System.Drawing.Size(348, 21)
Me.COMMENTTextBox.TabIndex = 1
'
'REGEX_EXPRESSIONTextBox
'
Me.REGEX_EXPRESSIONTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBCW_PROFILESBindingSource, "REGEX_EXPRESSION", True))
Me.REGEX_EXPRESSIONTextBox.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.REGEX_EXPRESSIONTextBox.Location = New System.Drawing.Point(13, 153)
Me.REGEX_EXPRESSIONTextBox.Name = "REGEX_EXPRESSIONTextBox"
Me.REGEX_EXPRESSIONTextBox.Size = New System.Drawing.Size(348, 21)
Me.REGEX_EXPRESSIONTextBox.TabIndex = 3
'
'WD_SEARCHTextBox
'
Me.WD_SEARCHTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBCW_PROFILESBindingSource, "WD_SEARCH", True))
Me.WD_SEARCHTextBox.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.WD_SEARCHTextBox.Location = New System.Drawing.Point(13, 113)
Me.WD_SEARCHTextBox.Name = "WD_SEARCHTextBox"
Me.WD_SEARCHTextBox.Size = New System.Drawing.Size(314, 21)
Me.WD_SEARCHTextBox.TabIndex = 2
'
'GridControl1
'
Me.GridControl1.DataSource = Me.TBCW_PROFILESBindingSource
Me.GridControl1.Location = New System.Drawing.Point(6, 17)
Me.GridControl1.MainView = Me.GridView1
Me.GridControl1.Name = "GridControl1"
Me.GridControl1.Size = New System.Drawing.Size(162, 268)
Me.GridControl1.TabIndex = 18
Me.GridControl1.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView1})
'
'GridView1
'
Me.GridView1.Appearance.EvenRow.BackColor = System.Drawing.Color.Aqua
@ -342,7 +441,7 @@ Partial Class frmAdministration
Me.TBCW_PROFILESBindingNavigator.CountItem = Me.BindingNavigatorCountItem
Me.TBCW_PROFILESBindingNavigator.DeleteItem = Nothing
Me.TBCW_PROFILESBindingNavigator.Dock = System.Windows.Forms.DockStyle.None
Me.TBCW_PROFILESBindingNavigator.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.TBCW_PROFILESBindingNavigatorSaveItem})
Me.TBCW_PROFILESBindingNavigator.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.TBCW_PROFILESBindingNavigatorSaveItem, Me.ToolStripButton1})
Me.TBCW_PROFILESBindingNavigator.Location = New System.Drawing.Point(177, 20)
Me.TBCW_PROFILESBindingNavigator.MoveFirstItem = Me.BindingNavigatorMoveFirstItem
Me.TBCW_PROFILESBindingNavigator.MoveLastItem = Me.BindingNavigatorMoveLastItem
@ -350,7 +449,7 @@ Partial Class frmAdministration
Me.TBCW_PROFILESBindingNavigator.MovePreviousItem = Me.BindingNavigatorMovePreviousItem
Me.TBCW_PROFILESBindingNavigator.Name = "TBCW_PROFILESBindingNavigator"
Me.TBCW_PROFILESBindingNavigator.PositionItem = Me.BindingNavigatorPositionItem
Me.TBCW_PROFILESBindingNavigator.Size = New System.Drawing.Size(287, 25)
Me.TBCW_PROFILESBindingNavigator.Size = New System.Drawing.Size(310, 25)
Me.TBCW_PROFILESBindingNavigator.TabIndex = 1
Me.TBCW_PROFILESBindingNavigator.Text = "BindingNavigator1"
'
@ -447,91 +546,14 @@ Partial Class frmAdministration
Me.TBCW_PROFILESBindingNavigatorSaveItem.Size = New System.Drawing.Size(23, 22)
Me.TBCW_PROFILESBindingNavigatorSaveItem.Text = "Daten speichern"
'
'GUIDTextBox
'ToolStripButton1
'
Me.GUIDTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBCW_PROFILESBindingSource, "GUID", True))
Me.GUIDTextBox.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.GUIDTextBox.Location = New System.Drawing.Point(177, 64)
Me.GUIDTextBox.Name = "GUIDTextBox"
Me.GUIDTextBox.ReadOnly = True
Me.GUIDTextBox.Size = New System.Drawing.Size(47, 21)
Me.GUIDTextBox.TabIndex = 1
'
'NAMETextBox
'
Me.NAMETextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBCW_PROFILESBindingSource, "NAME", True))
Me.NAMETextBox.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.NAMETextBox.Location = New System.Drawing.Point(230, 64)
Me.NAMETextBox.Name = "NAMETextBox"
Me.NAMETextBox.Size = New System.Drawing.Size(295, 21)
Me.NAMETextBox.TabIndex = 3
'
'COMMENTTextBox
'
Me.COMMENTTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBCW_PROFILESBindingSource, "COMMENT", True))
Me.COMMENTTextBox.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.COMMENTTextBox.Location = New System.Drawing.Point(177, 104)
Me.COMMENTTextBox.Name = "COMMENTTextBox"
Me.COMMENTTextBox.Size = New System.Drawing.Size(348, 21)
Me.COMMENTTextBox.TabIndex = 5
'
'WD_SEARCHTextBox
'
Me.WD_SEARCHTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBCW_PROFILESBindingSource, "WD_SEARCH", True))
Me.WD_SEARCHTextBox.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.WD_SEARCHTextBox.Location = New System.Drawing.Point(177, 144)
Me.WD_SEARCHTextBox.Name = "WD_SEARCHTextBox"
Me.WD_SEARCHTextBox.Size = New System.Drawing.Size(314, 21)
Me.WD_SEARCHTextBox.TabIndex = 7
'
'REGEX_EXPRESSIONTextBox
'
Me.REGEX_EXPRESSIONTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBCW_PROFILESBindingSource, "REGEX_EXPRESSION", True))
Me.REGEX_EXPRESSIONTextBox.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.REGEX_EXPRESSIONTextBox.Location = New System.Drawing.Point(177, 184)
Me.REGEX_EXPRESSIONTextBox.Name = "REGEX_EXPRESSIONTextBox"
Me.REGEX_EXPRESSIONTextBox.Size = New System.Drawing.Size(348, 21)
Me.REGEX_EXPRESSIONTextBox.TabIndex = 9
'
'ADDED_WHOTextBox
'
Me.ADDED_WHOTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBCW_PROFILESBindingSource, "ADDED_WHO", True))
Me.ADDED_WHOTextBox.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.ADDED_WHOTextBox.Location = New System.Drawing.Point(177, 224)
Me.ADDED_WHOTextBox.Name = "ADDED_WHOTextBox"
Me.ADDED_WHOTextBox.ReadOnly = True
Me.ADDED_WHOTextBox.Size = New System.Drawing.Size(147, 21)
Me.ADDED_WHOTextBox.TabIndex = 11
'
'ADDED_WHENTextBox
'
Me.ADDED_WHENTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBCW_PROFILESBindingSource, "ADDED_WHEN", True))
Me.ADDED_WHENTextBox.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.ADDED_WHENTextBox.Location = New System.Drawing.Point(330, 224)
Me.ADDED_WHENTextBox.Name = "ADDED_WHENTextBox"
Me.ADDED_WHENTextBox.ReadOnly = True
Me.ADDED_WHENTextBox.Size = New System.Drawing.Size(127, 21)
Me.ADDED_WHENTextBox.TabIndex = 13
'
'CHANGED_WHOTextBox
'
Me.CHANGED_WHOTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBCW_PROFILESBindingSource, "CHANGED_WHO", True))
Me.CHANGED_WHOTextBox.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.CHANGED_WHOTextBox.Location = New System.Drawing.Point(177, 264)
Me.CHANGED_WHOTextBox.Name = "CHANGED_WHOTextBox"
Me.CHANGED_WHOTextBox.ReadOnly = True
Me.CHANGED_WHOTextBox.Size = New System.Drawing.Size(147, 21)
Me.CHANGED_WHOTextBox.TabIndex = 15
'
'CHANGED_WHENTextBox
'
Me.CHANGED_WHENTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBCW_PROFILESBindingSource, "CHANGED_WHEN", True))
Me.CHANGED_WHENTextBox.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.CHANGED_WHENTextBox.Location = New System.Drawing.Point(330, 264)
Me.CHANGED_WHENTextBox.Name = "CHANGED_WHENTextBox"
Me.CHANGED_WHENTextBox.ReadOnly = True
Me.CHANGED_WHENTextBox.Size = New System.Drawing.Size(127, 21)
Me.CHANGED_WHENTextBox.TabIndex = 17
Me.ToolStripButton1.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.ToolStripButton1.Image = Global.DD_Clipboard_Watcher.My.Resources.Resources.refresh_16xLG
Me.ToolStripButton1.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButton1.Name = "ToolStripButton1"
Me.ToolStripButton1.Size = New System.Drawing.Size(23, 22)
Me.ToolStripButton1.Text = "ToolStripButton1"
'
'GroupBox2
'
@ -778,7 +800,7 @@ Partial Class frmAdministration
'
'OFDWindreamsuche
'
Me.OFDWindreamsuche.Filter = "windream-Suche|*.wdf|Alle Dateien|*.*"
Me.OFDWindreamsuche.Filter = "windream-Suche|*.wdf;*.wdfx|Alle Dateien|*.*"
Me.OFDWindreamsuche.RestoreDirectory = True
Me.OFDWindreamsuche.Title = "windream-Suche wählen"
'
@ -794,7 +816,7 @@ Partial Class frmAdministration
Me.GroupBox3.Controls.Add(Me.txtPID)
Me.GroupBox3.Controls.Add(Me.Label4)
Me.GroupBox3.Controls.Add(Me.Label3)
Me.GroupBox3.Location = New System.Drawing.Point(12, 310)
Me.GroupBox3.Location = New System.Drawing.Point(12, 351)
Me.GroupBox3.Name = "GroupBox3"
Me.GroupBox3.Size = New System.Drawing.Size(570, 81)
Me.GroupBox3.TabIndex = 2
@ -940,7 +962,7 @@ Partial Class frmAdministration
Me.GroupBox4.Controls.Add(Me.btndeleteProcessProfileLink)
Me.GroupBox4.Controls.Add(Me.btnLinkProcessPRofile)
Me.GroupBox4.Controls.Add(Me.GridControl3)
Me.GroupBox4.Location = New System.Drawing.Point(12, 397)
Me.GroupBox4.Location = New System.Drawing.Point(12, 438)
Me.GroupBox4.Name = "GroupBox4"
Me.GroupBox4.Size = New System.Drawing.Size(570, 308)
Me.GroupBox4.TabIndex = 21
@ -1047,9 +1069,11 @@ Partial Class frmAdministration
Me.Text = "Administration"
Me.GroupBox1.ResumeLayout(False)
Me.GroupBox1.PerformLayout()
CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).EndInit()
Me.grpbxProfiles.ResumeLayout(False)
Me.grpbxProfiles.PerformLayout()
CType(Me.TBCW_PROFILESBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.MyDataset, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.GridView1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TBCW_PROFILESBindingNavigator, System.ComponentModel.ISupportInitialize).EndInit()
Me.TBCW_PROFILESBindingNavigator.ResumeLayout(False)
@ -1159,4 +1183,6 @@ Partial Class frmAdministration
Friend WithEvents Label6 As Label
Friend WithEvents Label5 As Label
Friend WithEvents ToolTip1 As ToolTip
Friend WithEvents ToolStripButton1 As ToolStripButton
Friend WithEvents grpbxProfiles As GroupBox
End Class

View File

@ -286,7 +286,7 @@
<value>930, 56</value>
</metadata>
<metadata name="TBCW_PROFILE_PROCESSTableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>1201, 56</value>
<value>17, 95</value>
</metadata>
<data name="btndeleteProcessProfileLink.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
@ -322,13 +322,13 @@
</value>
</data>
<metadata name="BackgroundWorker1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 95</value>
<value>280, 95</value>
</metadata>
<metadata name="ToolTip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>180, 95</value>
<value>443, 95</value>
</metadata>
<metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>255</value>
<value>139</value>
</metadata>
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>

View File

@ -11,6 +11,9 @@ Public Class frmAdministration
Try
Me.TBCW_PROFILESTableAdapter.Connection.ConnectionString = MyConnectionString
Me.TBCW_PROFILESTableAdapter.Fill(Me.MyDataset.TBCW_PROFILES)
If MyDataset.TBCW_PROFILES.Rows.Count >= 1 Then
grpbxProfiles.Enabled = True
End If
Catch ex As Exception
MsgBox("Unexpected Error in Load Profiles: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
@ -257,4 +260,32 @@ Public Class frmAdministration
Refresh_Free_Users(0)
End If
End Sub
Private Sub BindingNavigatorDeleteItem_Click(sender As Object, e As EventArgs) Handles BindingNavigatorDeleteItem.Click
Dim swl = String.Format("EXEC PRCW_DELETE_PROFILE {0}", GUIDTextBox.Text)
Dim result As MsgBoxResult = MsgBox("Sind Sie sicher, dass Sie das Profil löschen wollen?", MsgBoxStyle.YesNo, "Bestätigung erforderlich:")
' wenn Speichern ja
If result = MsgBoxResult.Yes Then
If clsDatabase.Execute_non_Query(swl) = True Then
Load_Profiles()
End If
End If
End Sub
Private Sub ToolStripButton1_Click(sender As Object, e As EventArgs) Handles ToolStripButton1.Click
Load_Profiles()
Refresh_Profile_user()
Try
Dim ID = CInt(GUIDTextBox.Text)
Catch ex As Exception
Exit Sub
End Try
Refresh_Free_Users(GUIDTextBox.Text)
End Sub
Private Sub BindingNavigatorAddNewItem_Click(sender As Object, e As EventArgs) Handles BindingNavigatorAddNewItem.Click
grpbxProfiles.Enabled = True
End Sub
End Class