• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 117
  • Last Modified:

move one pixel

Will this code work to move the cursor every 30 seconds infinite? If not is it possible to amend this code to move the cursor every 30 seconds with an infinite loop?
Private dtmNext As Date
' Move cursor every 30 seconds
Sub Move_Cursor()
    Dim Hold As POINTAPI
    GetCursorPos Hold
    SetCursorPos Hold.X_Pos + 30, Hold.Y_Pos
     Application.Wait DateAdd("s", 1, Now)
    SetCursorPos Hold.X_Pos, Hold.Y_Pos
    dtmNext = DateAdd("s", 30, Now)
    Application.OnTime dtmNext, "Move_Cursor"
End Sub

' Stop moving cursor
Sub Stop_Cursor()
    Application.OnTime dtmNext, "Move_Cursor", , False
End Sub

Open in new window

0
wiredemc12
Asked:
wiredemc12
  • 2
1 Solution
 
pony10usCommented:
There was a similar question asked a few years ago that used a loop that you could adapt for your needs.   https://www.experts-exchange.com/questions/28342365/Word-2010-VBA-Move-the-cursor-one-character-to-the-right-every-2-seconds.html
0
 
wiredemc12Author Commented:
Yes I have seen that, but I was looking to move the cursor in a loop.
0
 
Martin LissRetired ProgrammerCommented:
Private dtmNext As Date
' Move cursor every 30 seconds
Sub Move_Cursor()
    Dim Hold As POINTAPI
    Do
    GetCursorPos Hold
    SetCursorPos Hold.X_Pos + 30, Hold.Y_Pos
     Application.Wait DateAdd("s", 1, Now)
    SetCursorPos Hold.X_Pos, Hold.Y_Pos
    dtmNext = DateAdd("s", 30, Now)
    Application.OnTime dtmNext, "Move_Cursor"
    Loop
End Sub

' Stop moving cursor
Sub Stop_Cursor()
    Application.OnTime dtmNext, "Move_Cursor", , False
End Sub

Open in new window

0
 
Martin LissRetired ProgrammerCommented:
I'm glad I was able to help.

If you expand the “Full Biography” section of my profile you'll find links to some articles I've written that may interest you.

Marty - Microsoft MVP 2009 to 2016
              Experts Exchange MVE 2015
              Experts Exchange Top Expert Visual Basic Classic 2012 to 2015
0

Featured Post

Industry Leaders: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

  • 2
Tackle projects and never again get stuck behind a technical roadblock.
Join Now