added btnGetMouse functionality

Walkman100 · Jan 15, 2019 · 6321f85 · 6321f85
1 parent 1399c6a
commit 6321f85
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 1 deletion.
diff --git a/KeyInsert.Designer.vb b/KeyInsert.Designer.vb
diff --git a/KeyInsert.vb b/KeyInsert.vb
@@ -107,8 +107,10 @@ Public Partial Class KeyInsert
     Sub CheckButtons() Handles lstKeyStrokes.Click, lstKeyStrokes.SelectedIndexChanged, lstKeyStrokes.AfterLabelEdit, lstKeyStrokes.ColumnReordered
         If IsNothing(lstKeyStrokes.FocusedItem) Then
             btnRemove.Enabled = False
+            btnGetMouse.Enabled = False
         Else
             btnRemove.Enabled = True
+            btnGetMouse.Enabled = True
         End If
         If lstKeyStrokes.Items.Count = 0 Then
             btnStart.Enabled = False
@@ -147,7 +149,11 @@ Public Partial Class KeyInsert
     End Sub
 
     Sub btnGetMouse_Click() Handles btnGetMouse.Click
+        Me.SendToBack
+        Threading.Thread.Sleep(2000)
 
+        lstKeyStrokes.FocusedItem.SubItems.Item(0).Text = "$MOVETO(" & Cursor.Position.X & ", " & Cursor.Position.Y & ")"
+        Me.BringToFront
     End Sub
 
     Sub lnkInfo_LinkClicked() Handles lnkInfo.LinkClicked