add new clipboard watcher class

This commit is contained in:
Jonathan Jenne
2019-10-22 16:08:33 +02:00
parent 42a3aad5e2
commit be7e314b32
5 changed files with 146 additions and 100 deletions

View File

@@ -26,18 +26,13 @@ Partial Class frmControlCapture
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmControlCapture))
Me.Timer1 = New System.Windows.Forms.Timer(Me.components)
Me.Label3 = New System.Windows.Forms.Label()
Me.Button1 = New System.Windows.Forms.Button()
Me.Button2 = New System.Windows.Forms.Button()
Me.btnOK = New System.Windows.Forms.Button()
Me.btnCancel = New System.Windows.Forms.Button()
Me.rbControlName = New System.Windows.Forms.RadioButton()
Me.rbControlPosition = New System.Windows.Forms.RadioButton()
Me.gbControlName = New System.Windows.Forms.GroupBox()
Me.Label2 = New System.Windows.Forms.Label()
Me.txtControlName = New System.Windows.Forms.TextBox()
Me.gbControlPosition = New System.Windows.Forms.GroupBox()
Me.txtControlBounds = New System.Windows.Forms.TextBox()
Me.Label1 = New System.Windows.Forms.Label()
Me.gbControlName.SuspendLayout()
Me.gbControlPosition.SuspendLayout()
Me.SuspendLayout()
'
'Timer1
@@ -49,38 +44,38 @@ Partial Class frmControlCapture
'
Me.Label3.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label3.Font = New System.Drawing.Font("Tahoma", 9.75!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label3.Location = New System.Drawing.Point(12, 269)
Me.Label3.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label3.Location = New System.Drawing.Point(9, 141)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(383, 27)
Me.Label3.TabIndex = 11
Me.Label3.Text = "Auswertung von aktivem Feld läuft!" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10)
'
'Button1
'btnOK
'
Me.Button1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.Button1.DialogResult = System.Windows.Forms.DialogResult.OK
Me.Button1.Image = Global.DD_Clipboard_Watcher.My.Resources.Resources.add
Me.Button1.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button1.Location = New System.Drawing.Point(12, 299)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(159, 34)
Me.Button1.TabIndex = 0
Me.Button1.Text = "Feld zuordnen"
Me.Button1.UseVisualStyleBackColor = True
Me.btnOK.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.btnOK.DialogResult = System.Windows.Forms.DialogResult.OK
Me.btnOK.Image = Global.DD_Clipboard_Watcher.My.Resources.Resources.add
Me.btnOK.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnOK.Location = New System.Drawing.Point(12, 190)
Me.btnOK.Name = "btnOK"
Me.btnOK.Size = New System.Drawing.Size(159, 34)
Me.btnOK.TabIndex = 0
Me.btnOK.Text = "Feld zuordnen"
Me.btnOK.UseVisualStyleBackColor = True
'
'Button2
'btnCancel
'
Me.Button2.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Button2.DialogResult = System.Windows.Forms.DialogResult.Cancel
Me.Button2.Image = Global.DD_Clipboard_Watcher.My.Resources.Resources.cancel
Me.Button2.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button2.Location = New System.Drawing.Point(236, 299)
Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(159, 34)
Me.Button2.TabIndex = 0
Me.Button2.Text = "Abbruch"
Me.Button2.UseVisualStyleBackColor = True
Me.btnCancel.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.btnCancel.DialogResult = System.Windows.Forms.DialogResult.Cancel
Me.btnCancel.Image = Global.DD_Clipboard_Watcher.My.Resources.Resources.cancel
Me.btnCancel.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnCancel.Location = New System.Drawing.Point(236, 190)
Me.btnCancel.Name = "btnCancel"
Me.btnCancel.Size = New System.Drawing.Size(159, 34)
Me.btnCancel.TabIndex = 0
Me.btnCancel.Text = "Abbruch"
Me.btnCancel.UseVisualStyleBackColor = True
'
'rbControlName
'
@@ -97,106 +92,74 @@ Partial Class frmControlCapture
'rbControlPosition
'
Me.rbControlPosition.AutoSize = True
Me.rbControlPosition.Location = New System.Drawing.Point(12, 118)
Me.rbControlPosition.Location = New System.Drawing.Point(12, 36)
Me.rbControlPosition.Name = "rbControlPosition"
Me.rbControlPosition.Size = New System.Drawing.Size(100, 17)
Me.rbControlPosition.TabIndex = 14
Me.rbControlPosition.Text = "Control Position"
Me.rbControlPosition.UseVisualStyleBackColor = True
'
'gbControlName
'
Me.gbControlName.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.gbControlName.Controls.Add(Me.Label2)
Me.gbControlName.Controls.Add(Me.txtControlName)
Me.gbControlName.Location = New System.Drawing.Point(140, 12)
Me.gbControlName.Name = "gbControlName"
Me.gbControlName.Size = New System.Drawing.Size(255, 100)
Me.gbControlName.TabIndex = 15
Me.gbControlName.TabStop = False
Me.gbControlName.Text = "Control Name"
'
'Label2
'
Me.Label2.Location = New System.Drawing.Point(6, 49)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(243, 48)
Me.Label2.TabIndex = 0
Me.Label2.Text = "Markieren Sie Text in einem Feld und Kopieren Sie Text"
'
'txtControlName
'
Me.txtControlName.Location = New System.Drawing.Point(6, 20)
Me.txtControlName.Location = New System.Drawing.Point(152, 8)
Me.txtControlName.Name = "txtControlName"
Me.txtControlName.ReadOnly = True
Me.txtControlName.Size = New System.Drawing.Size(243, 21)
Me.txtControlName.TabIndex = 0
'
'gbControlPosition
'
Me.gbControlPosition.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.gbControlPosition.Controls.Add(Me.txtControlBounds)
Me.gbControlPosition.Controls.Add(Me.Label1)
Me.gbControlPosition.Location = New System.Drawing.Point(140, 118)
Me.gbControlPosition.Name = "gbControlPosition"
Me.gbControlPosition.Size = New System.Drawing.Size(255, 137)
Me.gbControlPosition.TabIndex = 15
Me.gbControlPosition.TabStop = False
Me.gbControlPosition.Text = "Control Position"
'
'txtControlBounds
'
Me.txtControlBounds.Location = New System.Drawing.Point(9, 20)
Me.txtControlBounds.Location = New System.Drawing.Point(152, 35)
Me.txtControlBounds.Multiline = True
Me.txtControlBounds.Name = "txtControlBounds"
Me.txtControlBounds.Size = New System.Drawing.Size(240, 77)
Me.txtControlBounds.ReadOnly = True
Me.txtControlBounds.Size = New System.Drawing.Size(240, 88)
Me.txtControlBounds.TabIndex = 1
'
'Label1
'
Me.Label1.Location = New System.Drawing.Point(6, 100)
Me.Label1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(9, 168)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(243, 34)
Me.Label1.TabIndex = 0
Me.Label1.Text = "Wechseln Sie durch die aktiven Anwendungen und klicken Sie in ein Feld"
Me.Label1.Size = New System.Drawing.Size(298, 13)
Me.Label1.TabIndex = 15
Me.Label1.Text = "Markieren Sie Text in einem Feld und Kopieren Sie einen Text"
'
'frmControlCapture
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(407, 345)
Me.Controls.Add(Me.gbControlPosition)
Me.Controls.Add(Me.gbControlName)
Me.ClientSize = New System.Drawing.Size(407, 236)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.txtControlBounds)
Me.Controls.Add(Me.txtControlName)
Me.Controls.Add(Me.rbControlPosition)
Me.Controls.Add(Me.rbControlName)
Me.Controls.Add(Me.Label3)
Me.Controls.Add(Me.Button2)
Me.Controls.Add(Me.Button1)
Me.Controls.Add(Me.btnCancel)
Me.Controls.Add(Me.btnOK)
Me.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.MaximizeBox = False
Me.MinimizeBox = False
Me.Name = "frmControlCapture"
Me.ShowIcon = False
Me.Text = "Feld Auswertung"
Me.TopMost = True
Me.gbControlName.ResumeLayout(False)
Me.gbControlName.PerformLayout()
Me.gbControlPosition.ResumeLayout(False)
Me.gbControlPosition.PerformLayout()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents Timer1 As Timer
Friend WithEvents Label3 As Label
Friend WithEvents Button1 As Button
Friend WithEvents Button2 As Button
Friend WithEvents btnOK As Button
Friend WithEvents btnCancel As Button
Friend WithEvents rbControlName As RadioButton
Friend WithEvents rbControlPosition As RadioButton
Friend WithEvents gbControlName As GroupBox
Friend WithEvents txtControlName As TextBox
Friend WithEvents gbControlPosition As GroupBox
Friend WithEvents Label2 As Label
Friend WithEvents Label1 As Label
Friend WithEvents txtControlBounds As TextBox
Friend WithEvents Label1 As Label
End Class