Added some faux mouse polling since the movements were creating way too many events (this wasn't an issue in the past with low DPI mice)

Added a check to make sure the user cannot use the same Key twice for actions
Added a count down timer update for when a user is setting the start position so they know how long they need to wait
Added an offset to the final click in the action so the mouse re-clicks the app window into focus
Removed some unused code and Cleaned up some methods
This commit is contained in:
2022-09-29 00:06:54 +01:00
parent bb18cb14ce
commit a2ad5443d5
10 changed files with 177 additions and 38 deletions

View File

@ -24,6 +24,7 @@ Partial Class FrmMain
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Me.GroupBox1 = New System.Windows.Forms.GroupBox()
Me.TxtCap = New System.Windows.Forms.TextBox()
Me.CmdPos = New System.Windows.Forms.Button()
Me.lblMousePos = New System.Windows.Forms.Label()
Me.LblLastInput = New System.Windows.Forms.Label()
@ -34,7 +35,7 @@ Partial Class FrmMain
Me.CmdRecAct = New System.Windows.Forms.Button()
Me.PlayTime = New System.Windows.Forms.Timer(Me.components)
Me.PosSel = New System.Windows.Forms.Timer(Me.components)
Me.TxtCap = New System.Windows.Forms.TextBox()
Me.PosCountDown = New System.Windows.Forms.Timer(Me.components)
Me.GroupBox1.SuspendLayout()
Me.SuspendLayout()
'
@ -59,6 +60,14 @@ Partial Class FrmMain
Me.GroupBox1.TabStop = False
Me.GroupBox1.Text = "Tools"
'
'TxtCap
'
Me.TxtCap.Location = New System.Drawing.Point(219, 308)
Me.TxtCap.Name = "TxtCap"
Me.TxtCap.Size = New System.Drawing.Size(10, 20)
Me.TxtCap.TabIndex = 12
Me.TxtCap.Visible = False
'
'CmdPos
'
Me.CmdPos.Location = New System.Drawing.Point(3, 464)
@ -83,7 +92,7 @@ Partial Class FrmMain
Me.LblLastInput.Font = New System.Drawing.Font("Microsoft Sans Serif", 50.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.LblLastInput.Location = New System.Drawing.Point(80, 368)
Me.LblLastInput.Name = "LblLastInput"
Me.LblLastInput.Size = New System.Drawing.Size(73, 76)
Me.LblLastInput.Size = New System.Drawing.Size(72, 76)
Me.LblLastInput.TabIndex = 9
Me.LblLastInput.Text = "[]"
'
@ -141,14 +150,6 @@ Partial Class FrmMain
'
Me.PosSel.Interval = 5000
'
'TxtCap
'
Me.TxtCap.Location = New System.Drawing.Point(219, 308)
Me.TxtCap.Name = "TxtCap"
Me.TxtCap.Size = New System.Drawing.Size(10, 20)
Me.TxtCap.TabIndex = 12
Me.TxtCap.Visible = False
'
'FrmMain
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@ -176,4 +177,5 @@ Partial Class FrmMain
Friend WithEvents CmdPos As Button
Friend WithEvents PosSel As Timer
Friend WithEvents TxtCap As TextBox
Friend WithEvents PosCountDown As Timer
End Class