This commit is contained in:
Jonathan Jenne
2019-09-20 16:20:09 +02:00
parent a765fe4cce
commit 54598ab3d4
11 changed files with 611 additions and 1051 deletions

View File

@@ -28,38 +28,16 @@ Partial Class frmControlCapture
Me.Label3 = New System.Windows.Forms.Label()
Me.Button1 = New System.Windows.Forms.Button()
Me.Button2 = New System.Windows.Forms.Button()
Me.txtTLLeft = New System.Windows.Forms.TextBox()
Me.txtTLRight = New System.Windows.Forms.TextBox()
Me.txtTLTop = New System.Windows.Forms.TextBox()
Me.txtTLBottom = New System.Windows.Forms.TextBox()
Me.rbControlName = New System.Windows.Forms.RadioButton()
Me.rbControlPosition = New System.Windows.Forms.RadioButton()
Me.gbControlName = New System.Windows.Forms.GroupBox()
Me.gbControlPosition = New System.Windows.Forms.GroupBox()
Me.TextBox1 = New System.Windows.Forms.TextBox()
Me.Label1 = New System.Windows.Forms.Label()
Me.Label2 = New System.Windows.Forms.Label()
Me.Label4 = New System.Windows.Forms.Label()
Me.Label5 = New System.Windows.Forms.Label()
Me.txtTRLeft = New System.Windows.Forms.TextBox()
Me.txtTRRight = New System.Windows.Forms.TextBox()
Me.txtTRTop = New System.Windows.Forms.TextBox()
Me.txtTRBottom = New System.Windows.Forms.TextBox()
Me.Label6 = New System.Windows.Forms.Label()
Me.Label7 = New System.Windows.Forms.Label()
Me.Label8 = New System.Windows.Forms.Label()
Me.Label9 = New System.Windows.Forms.Label()
Me.txtBLLeft = New System.Windows.Forms.TextBox()
Me.txtBLRight = New System.Windows.Forms.TextBox()
Me.txtBLTop = New System.Windows.Forms.TextBox()
Me.txtBLBottom = New System.Windows.Forms.TextBox()
Me.Label10 = New System.Windows.Forms.Label()
Me.Label11 = New System.Windows.Forms.Label()
Me.Label12 = New System.Windows.Forms.Label()
Me.Label13 = New System.Windows.Forms.Label()
Me.txtBRLeft = New System.Windows.Forms.TextBox()
Me.txtBRRight = New System.Windows.Forms.TextBox()
Me.txtBRTop = New System.Windows.Forms.TextBox()
Me.txtBRBottom = New System.Windows.Forms.TextBox()
Me.Label14 = New System.Windows.Forms.Label()
Me.Label15 = New System.Windows.Forms.Label()
Me.Label16 = New System.Windows.Forms.Label()
Me.Label17 = New System.Windows.Forms.Label()
Me.TextBox2 = New System.Windows.Forms.TextBox()
Me.gbControlName.SuspendLayout()
Me.gbControlPosition.SuspendLayout()
Me.SuspendLayout()
'
'Timer1
@@ -72,12 +50,11 @@ 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, 281)
Me.Label3.Location = New System.Drawing.Point(12, 269)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(294, 42)
Me.Label3.Size = New System.Drawing.Size(383, 27)
Me.Label3.TabIndex = 11
Me.Label3.Text = "Auswertung von aktivem Feld läuft! Wechseln Sie durch die aktiven Anwendungen und" &
" klicken Sie in ein Feld!"
Me.Label3.Text = "Auswertung von aktivem Feld läuft!" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10)
'
'Button1
'
@@ -85,7 +62,7 @@ Partial Class frmControlCapture
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, 326)
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
@@ -98,306 +75,101 @@ Partial Class frmControlCapture
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(147, 326)
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
'
'txtTLLeft
'rbControlName
'
Me.txtTLLeft.Location = New System.Drawing.Point(59, 28)
Me.txtTLLeft.Name = "txtTLLeft"
Me.txtTLLeft.Size = New System.Drawing.Size(77, 21)
Me.txtTLLeft.TabIndex = 12
Me.rbControlName.AutoSize = True
Me.rbControlName.Checked = True
Me.rbControlName.Location = New System.Drawing.Point(12, 12)
Me.rbControlName.Name = "rbControlName"
Me.rbControlName.Size = New System.Drawing.Size(90, 17)
Me.rbControlName.TabIndex = 14
Me.rbControlName.TabStop = True
Me.rbControlName.Text = "Control Name"
Me.rbControlName.UseVisualStyleBackColor = True
'
'txtTLRight
'rbControlPosition
'
Me.txtTLRight.Location = New System.Drawing.Point(59, 55)
Me.txtTLRight.Name = "txtTLRight"
Me.txtTLRight.Size = New System.Drawing.Size(77, 21)
Me.txtTLRight.TabIndex = 12
Me.rbControlPosition.AutoSize = True
Me.rbControlPosition.Location = New System.Drawing.Point(12, 118)
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
'
'txtTLTop
'gbControlName
'
Me.txtTLTop.Location = New System.Drawing.Point(59, 82)
Me.txtTLTop.Name = "txtTLTop"
Me.txtTLTop.Size = New System.Drawing.Size(77, 21)
Me.txtTLTop.TabIndex = 12
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.TextBox1)
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"
'
'txtTLBottom
'gbControlPosition
'
Me.txtTLBottom.Location = New System.Drawing.Point(59, 109)
Me.txtTLBottom.Name = "txtTLBottom"
Me.txtTLBottom.Size = New System.Drawing.Size(77, 21)
Me.txtTLBottom.TabIndex = 12
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.TextBox2)
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"
'
'TextBox1
'
Me.TextBox1.Location = New System.Drawing.Point(6, 20)
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.Size = New System.Drawing.Size(243, 21)
Me.TextBox1.TabIndex = 0
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(12, 31)
Me.Label1.Location = New System.Drawing.Point(6, 100)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(26, 13)
Me.Label1.TabIndex = 13
Me.Label1.Text = "Left"
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"
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.Location = New System.Drawing.Point(12, 58)
Me.Label2.Location = New System.Drawing.Point(6, 49)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(32, 13)
Me.Label2.TabIndex = 13
Me.Label2.Text = "Right"
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"
'
'Label4
'TextBox2
'
Me.Label4.AutoSize = True
Me.Label4.Location = New System.Drawing.Point(12, 85)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(25, 13)
Me.Label4.TabIndex = 13
Me.Label4.Text = "Top"
'
'Label5
'
Me.Label5.AutoSize = True
Me.Label5.Location = New System.Drawing.Point(12, 112)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(41, 13)
Me.Label5.TabIndex = 13
Me.Label5.Text = "Bottom"
'
'txtTRLeft
'
Me.txtTRLeft.Location = New System.Drawing.Point(198, 28)
Me.txtTRLeft.Name = "txtTRLeft"
Me.txtTRLeft.Size = New System.Drawing.Size(77, 21)
Me.txtTRLeft.TabIndex = 12
'
'txtTRRight
'
Me.txtTRRight.Location = New System.Drawing.Point(198, 55)
Me.txtTRRight.Name = "txtTRRight"
Me.txtTRRight.Size = New System.Drawing.Size(77, 21)
Me.txtTRRight.TabIndex = 12
'
'txtTRTop
'
Me.txtTRTop.Location = New System.Drawing.Point(198, 82)
Me.txtTRTop.Name = "txtTRTop"
Me.txtTRTop.Size = New System.Drawing.Size(77, 21)
Me.txtTRTop.TabIndex = 12
'
'txtTRBottom
'
Me.txtTRBottom.Location = New System.Drawing.Point(198, 109)
Me.txtTRBottom.Name = "txtTRBottom"
Me.txtTRBottom.Size = New System.Drawing.Size(77, 21)
Me.txtTRBottom.TabIndex = 12
'
'Label6
'
Me.Label6.AutoSize = True
Me.Label6.Location = New System.Drawing.Point(151, 31)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(26, 13)
Me.Label6.TabIndex = 13
Me.Label6.Text = "Left"
'
'Label7
'
Me.Label7.AutoSize = True
Me.Label7.Location = New System.Drawing.Point(151, 58)
Me.Label7.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(32, 13)
Me.Label7.TabIndex = 13
Me.Label7.Text = "Right"
'
'Label8
'
Me.Label8.AutoSize = True
Me.Label8.Location = New System.Drawing.Point(151, 85)
Me.Label8.Name = "Label8"
Me.Label8.Size = New System.Drawing.Size(25, 13)
Me.Label8.TabIndex = 13
Me.Label8.Text = "Top"
'
'Label9
'
Me.Label9.AutoSize = True
Me.Label9.Location = New System.Drawing.Point(151, 112)
Me.Label9.Name = "Label9"
Me.Label9.Size = New System.Drawing.Size(41, 13)
Me.Label9.TabIndex = 13
Me.Label9.Text = "Bottom"
'
'txtBLLeft
'
Me.txtBLLeft.Location = New System.Drawing.Point(59, 157)
Me.txtBLLeft.Name = "txtBLLeft"
Me.txtBLLeft.Size = New System.Drawing.Size(77, 21)
Me.txtBLLeft.TabIndex = 12
'
'txtBLRight
'
Me.txtBLRight.Location = New System.Drawing.Point(59, 184)
Me.txtBLRight.Name = "txtBLRight"
Me.txtBLRight.Size = New System.Drawing.Size(77, 21)
Me.txtBLRight.TabIndex = 12
'
'txtBLTop
'
Me.txtBLTop.Location = New System.Drawing.Point(59, 211)
Me.txtBLTop.Name = "txtBLTop"
Me.txtBLTop.Size = New System.Drawing.Size(77, 21)
Me.txtBLTop.TabIndex = 12
'
'txtBLBottom
'
Me.txtBLBottom.Location = New System.Drawing.Point(59, 238)
Me.txtBLBottom.Name = "txtBLBottom"
Me.txtBLBottom.Size = New System.Drawing.Size(77, 21)
Me.txtBLBottom.TabIndex = 12
'
'Label10
'
Me.Label10.AutoSize = True
Me.Label10.Location = New System.Drawing.Point(12, 160)
Me.Label10.Name = "Label10"
Me.Label10.Size = New System.Drawing.Size(26, 13)
Me.Label10.TabIndex = 13
Me.Label10.Text = "Left"
'
'Label11
'
Me.Label11.AutoSize = True
Me.Label11.Location = New System.Drawing.Point(12, 187)
Me.Label11.Name = "Label11"
Me.Label11.Size = New System.Drawing.Size(32, 13)
Me.Label11.TabIndex = 13
Me.Label11.Text = "Right"
'
'Label12
'
Me.Label12.AutoSize = True
Me.Label12.Location = New System.Drawing.Point(12, 214)
Me.Label12.Name = "Label12"
Me.Label12.Size = New System.Drawing.Size(25, 13)
Me.Label12.TabIndex = 13
Me.Label12.Text = "Top"
'
'Label13
'
Me.Label13.AutoSize = True
Me.Label13.Location = New System.Drawing.Point(12, 241)
Me.Label13.Name = "Label13"
Me.Label13.Size = New System.Drawing.Size(41, 13)
Me.Label13.TabIndex = 13
Me.Label13.Text = "Bottom"
'
'txtBRLeft
'
Me.txtBRLeft.Location = New System.Drawing.Point(198, 157)
Me.txtBRLeft.Name = "txtBRLeft"
Me.txtBRLeft.Size = New System.Drawing.Size(77, 21)
Me.txtBRLeft.TabIndex = 12
'
'txtBRRight
'
Me.txtBRRight.Location = New System.Drawing.Point(198, 184)
Me.txtBRRight.Name = "txtBRRight"
Me.txtBRRight.Size = New System.Drawing.Size(77, 21)
Me.txtBRRight.TabIndex = 12
'
'txtBRTop
'
Me.txtBRTop.Location = New System.Drawing.Point(198, 211)
Me.txtBRTop.Name = "txtBRTop"
Me.txtBRTop.Size = New System.Drawing.Size(77, 21)
Me.txtBRTop.TabIndex = 12
'
'txtBRBottom
'
Me.txtBRBottom.Location = New System.Drawing.Point(198, 238)
Me.txtBRBottom.Name = "txtBRBottom"
Me.txtBRBottom.Size = New System.Drawing.Size(77, 21)
Me.txtBRBottom.TabIndex = 12
'
'Label14
'
Me.Label14.AutoSize = True
Me.Label14.Location = New System.Drawing.Point(151, 160)
Me.Label14.Name = "Label14"
Me.Label14.Size = New System.Drawing.Size(26, 13)
Me.Label14.TabIndex = 13
Me.Label14.Text = "Left"
'
'Label15
'
Me.Label15.AutoSize = True
Me.Label15.Location = New System.Drawing.Point(151, 187)
Me.Label15.Name = "Label15"
Me.Label15.Size = New System.Drawing.Size(32, 13)
Me.Label15.TabIndex = 13
Me.Label15.Text = "Right"
'
'Label16
'
Me.Label16.AutoSize = True
Me.Label16.Location = New System.Drawing.Point(151, 214)
Me.Label16.Name = "Label16"
Me.Label16.Size = New System.Drawing.Size(25, 13)
Me.Label16.TabIndex = 13
Me.Label16.Text = "Top"
'
'Label17
'
Me.Label17.AutoSize = True
Me.Label17.Location = New System.Drawing.Point(151, 241)
Me.Label17.Name = "Label17"
Me.Label17.Size = New System.Drawing.Size(41, 13)
Me.Label17.TabIndex = 13
Me.Label17.Text = "Bottom"
Me.TextBox2.Location = New System.Drawing.Point(9, 20)
Me.TextBox2.Multiline = True
Me.TextBox2.Name = "TextBox2"
Me.TextBox2.Size = New System.Drawing.Size(240, 77)
Me.TextBox2.TabIndex = 1
'
'frmControlCapture
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(318, 372)
Me.Controls.Add(Me.Label17)
Me.Controls.Add(Me.Label13)
Me.Controls.Add(Me.Label9)
Me.Controls.Add(Me.Label5)
Me.Controls.Add(Me.Label16)
Me.Controls.Add(Me.Label12)
Me.Controls.Add(Me.Label8)
Me.Controls.Add(Me.Label4)
Me.Controls.Add(Me.Label15)
Me.Controls.Add(Me.Label11)
Me.Controls.Add(Me.Label7)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.Label14)
Me.Controls.Add(Me.Label10)
Me.Controls.Add(Me.Label6)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.txtBRBottom)
Me.Controls.Add(Me.txtBLBottom)
Me.Controls.Add(Me.txtTRBottom)
Me.Controls.Add(Me.txtBRTop)
Me.Controls.Add(Me.txtBLTop)
Me.Controls.Add(Me.txtTRTop)
Me.Controls.Add(Me.txtTLBottom)
Me.Controls.Add(Me.txtBRRight)
Me.Controls.Add(Me.txtBLRight)
Me.Controls.Add(Me.txtTRRight)
Me.Controls.Add(Me.txtTLTop)
Me.Controls.Add(Me.txtBRLeft)
Me.Controls.Add(Me.txtBLLeft)
Me.Controls.Add(Me.txtTRLeft)
Me.Controls.Add(Me.txtTLRight)
Me.Controls.Add(Me.txtTLLeft)
Me.ClientSize = New System.Drawing.Size(407, 345)
Me.Controls.Add(Me.gbControlPosition)
Me.Controls.Add(Me.gbControlName)
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)
@@ -406,6 +178,10 @@ Partial Class frmControlCapture
Me.Name = "frmControlCapture"
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()
@@ -414,36 +190,12 @@ Partial Class frmControlCapture
Friend WithEvents Label3 As Label
Friend WithEvents Button1 As Button
Friend WithEvents Button2 As Button
Friend WithEvents txtTLLeft As TextBox
Friend WithEvents txtTLRight As TextBox
Friend WithEvents txtTLTop As TextBox
Friend WithEvents txtTLBottom As TextBox
Friend WithEvents Label1 As Label
Friend WithEvents rbControlName As RadioButton
Friend WithEvents rbControlPosition As RadioButton
Friend WithEvents gbControlName As GroupBox
Friend WithEvents TextBox1 As TextBox
Friend WithEvents gbControlPosition As GroupBox
Friend WithEvents Label2 As Label
Friend WithEvents Label4 As Label
Friend WithEvents Label5 As Label
Friend WithEvents txtTRLeft As TextBox
Friend WithEvents txtTRRight As TextBox
Friend WithEvents txtTRTop As TextBox
Friend WithEvents txtTRBottom As TextBox
Friend WithEvents Label6 As Label
Friend WithEvents Label7 As Label
Friend WithEvents Label8 As Label
Friend WithEvents Label9 As Label
Friend WithEvents txtBLLeft As TextBox
Friend WithEvents txtBLRight As TextBox
Friend WithEvents txtBLTop As TextBox
Friend WithEvents txtBLBottom As TextBox
Friend WithEvents Label10 As Label
Friend WithEvents Label11 As Label
Friend WithEvents Label12 As Label
Friend WithEvents Label13 As Label
Friend WithEvents txtBRLeft As TextBox
Friend WithEvents txtBRRight As TextBox
Friend WithEvents txtBRTop As TextBox
Friend WithEvents txtBRBottom As TextBox
Friend WithEvents Label14 As Label
Friend WithEvents Label15 As Label
Friend WithEvents Label16 As Label
Friend WithEvents Label17 As Label
Friend WithEvents Label1 As Label
Friend WithEvents TextBox2 As TextBox
End Class