iDunnoDev/google-game-thing
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
Files
a2ad5443d5539b438ade7a2cde523bf0beb2b9a5
google-game-thing/GoogleGameThing/FrmMain.Designer.vb
iDunnoDev a2ad5443d5 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
2022-09-29 00:06:54 +01:00

182 lines
7.1 KiB
VB.net
Raw Blame History

<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class FrmMain
Inherits System.Windows.Forms.Form
'Form overrides dispose to clean up the component list.
<System.Diagnostics.DebuggerNonUserCode()>
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Required by the Windows Form Designer
Private components As System.ComponentModel.IContainer
'NOTE: The following procedure is required by the Windows Form Designer
'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.
<System.Diagnostics.DebuggerStepThrough()>
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()
Me.Label1 = New System.Windows.Forms.Label()
Me.ChkActions = New System.Windows.Forms.ListBox()
Me.CmdExit = New System.Windows.Forms.Button()
Me.CmdRemSel = New System.Windows.Forms.Button()
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.PosCountDown = New System.Windows.Forms.Timer(Me.components)
Me.GroupBox1.SuspendLayout()
Me.SuspendLayout()
'
'GroupBox1
'
Me.GroupBox1.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.GroupBox1.Controls.Add(Me.TxtCap)
Me.GroupBox1.Controls.Add(Me.CmdPos)
Me.GroupBox1.Controls.Add(Me.lblMousePos)
Me.GroupBox1.Controls.Add(Me.LblLastInput)
Me.GroupBox1.Controls.Add(Me.Label1)
Me.GroupBox1.Controls.Add(Me.ChkActions)
Me.GroupBox1.Controls.Add(Me.CmdExit)
Me.GroupBox1.Controls.Add(Me.CmdRemSel)
Me.GroupBox1.Controls.Add(Me.CmdRecAct)
Me.GroupBox1.Location = New System.Drawing.Point(12, 12)
Me.GroupBox1.Name = "GroupBox1"
Me.GroupBox1.Size = New System.Drawing.Size(235, 578)
Me.GroupBox1.TabIndex = 1
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)
Me.CmdPos.Name = "CmdPos"
Me.CmdPos.Size = New System.Drawing.Size(75, 23)
Me.CmdPos.TabIndex = 11
Me.CmdPos.Text = "Set Pos"
Me.CmdPos.UseVisualStyleBackColor = True
'
'lblMousePos
'
Me.lblMousePos.AutoSize = True
Me.lblMousePos.Location = New System.Drawing.Point(84, 469)
Me.lblMousePos.Name = "lblMousePos"
Me.lblMousePos.Size = New System.Drawing.Size(60, 13)
Me.lblMousePos.TabIndex = 10
Me.lblMousePos.Text = "MousePos:"
'
'LblLastInput
'
Me.LblLastInput.AutoSize = True
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(72, 76)
Me.LblLastInput.TabIndex = 9
Me.LblLastInput.Text = "[]"
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 15.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label1.Location = New System.Drawing.Point(6, 303)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(138, 25)
Me.Label1.TabIndex = 8
Me.Label1.Text = "LAST INPUT"
'
'ChkActions
'
Me.ChkActions.FormattingEnabled = True
Me.ChkActions.Location = New System.Drawing.Point(6, 48)
Me.ChkActions.Name = "ChkActions"
Me.ChkActions.Size = New System.Drawing.Size(223, 199)
Me.ChkActions.TabIndex = 7
'
'CmdExit
'
Me.CmdExit.Dock = System.Windows.Forms.DockStyle.Bottom
Me.CmdExit.Location = New System.Drawing.Point(3, 517)
Me.CmdExit.Name = "CmdExit"
Me.CmdExit.Size = New System.Drawing.Size(229, 58)
Me.CmdExit.TabIndex = 6
Me.CmdExit.Text = "Exit"
Me.CmdExit.UseVisualStyleBackColor = True
'
'CmdRemSel
'
Me.CmdRemSel.Location = New System.Drawing.Point(6, 255)
Me.CmdRemSel.Name = "CmdRemSel"
Me.CmdRemSel.Size = New System.Drawing.Size(223, 23)
Me.CmdRemSel.TabIndex = 5
Me.CmdRemSel.Text = "Remove Selected"
Me.CmdRemSel.UseVisualStyleBackColor = True
'
'CmdRecAct
'
Me.CmdRecAct.Location = New System.Drawing.Point(6, 19)
Me.CmdRecAct.Name = "CmdRecAct"
Me.CmdRecAct.Size = New System.Drawing.Size(223, 23)
Me.CmdRecAct.TabIndex = 3
Me.CmdRecAct.Text = "Record Action"
Me.CmdRecAct.UseVisualStyleBackColor = True
'
'PlayTime
'
Me.PlayTime.Interval = 10
'
'PosSel
'
Me.PosSel.Interval = 5000
'
'FrmMain
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(259, 602)
Me.Controls.Add(Me.GroupBox1)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedToolWindow
Me.MaximizeBox = False
Me.Name = "FrmMain"
Me.Text = "Google Game thing"
Me.GroupBox1.ResumeLayout(False)
Me.GroupBox1.PerformLayout()
Me.ResumeLayout(False)
End Sub
Friend WithEvents GroupBox1 As GroupBox
Friend WithEvents CmdExit As Button
Friend WithEvents CmdRemSel As Button
Friend WithEvents CmdRecAct As Button
Friend WithEvents PlayTime As Timer
Friend WithEvents ChkActions As ListBox
Friend WithEvents Label1 As Label
Friend WithEvents lblMousePos As Label
Friend WithEvents LblLastInput As Label
Friend WithEvents CmdPos As Button
Friend WithEvents PosSel As Timer
Friend WithEvents TxtCap As TextBox
Friend WithEvents PosCountDown As Timer
End Class
Reference in New Issue View Git Blame Copy Permalink