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

sdflh

Browse Source
This commit is contained in:
Jonathan Jenne
2019-09-19 16:21:13 +02:00
parent 0ec5829275
commit f3a3812993
7 changed files with 85 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

26
Automation/Form1.Designer.vb generated
View File

@@ -39,13 +39,13 @@ Partial Class Form1
Me.TextBox8 = New System.Windows.Forms.TextBox()
Me.ComboBox1 = New System.Windows.Forms.ComboBox()
Me.Label1 = New System.Windows.Forms.Label()
Me.TextBox3 = New System.Windows.Forms.TextBox()
Me.Label3 = New System.Windows.Forms.Label()
Me.SuspendLayout()
'
'Timer1
'
'
'TextBox1
'
Me.TextBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!)
Me.TextBox1.Location = New System.Drawing.Point(12, 12)
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.Size = New System.Drawing.Size(100, 20)
@@ -170,6 +170,22 @@ Partial Class Form1
Me.Label1.TabIndex = 8
Me.Label1.Text = "Anchor"
'
'TextBox3
'
Me.TextBox3.Location = New System.Drawing.Point(231, 206)
Me.TextBox3.Name = "TextBox3"
Me.TextBox3.Size = New System.Drawing.Size(100, 20)
Me.TextBox3.TabIndex = 2
'
'Label3
'
Me.Label3.AutoSize = True
Me.Label3.Location = New System.Drawing.Point(183, 209)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(41, 13)
Me.Label3.TabIndex = 6
Me.Label3.Text = "Anchor"
'
'Form1
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -180,9 +196,11 @@ Partial Class Form1
Me.Controls.Add(Me.Label21)
Me.Controls.Add(Me.Label7)
Me.Controls.Add(Me.Label6)
Me.Controls.Add(Me.Label3)
Me.Controls.Add(Me.Label5)
Me.Controls.Add(Me.Label4)
Me.Controls.Add(Me.TextBox12)
Me.Controls.Add(Me.TextBox3)
Me.Controls.Add(Me.TextBox11)
Me.Controls.Add(Me.TextBox10)
Me.Controls.Add(Me.TextBox9)
@@ -212,4 +230,6 @@ Partial Class Form1
Friend WithEvents TextBox8 As TextBox
Friend WithEvents ComboBox1 As ComboBox
Friend WithEvents Label1 As Label
Friend WithEvents TextBox3 As TextBox
Friend WithEvents Label3 As Label
End Class

3
Automation/Form1.vb
View File

@@ -24,12 +24,13 @@ Public Class Form1
End Sub
Private Sub Watcher_ClipboardChanged(sender As Object, e As IDataObject)
Dim oControl As Window.RectangleInfo = Window.GetFocusedControlLocation(CurrentAnchor)
Dim oControl As Window.RectangleInfo = Window.GetFocusedControlLocation(Handle, CurrentAnchor)
TextBox9.Text = oControl.Left
TextBox12.Text = oControl.Right
TextBox11.Text = oControl.Top
TextBox10.Text = oControl.Bottom
TextBox3.Text = ComboBox1.Text.ToUpper
End Sub
Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged