Get Screen Mouse Coordinates (Simplified)
See code name.
Original Author: Steve Bailey
Code
'Hide the following code in a module someware!
Private Declare Function GetCursorPos Lib _
"user32" (lpPoint As POINTAPI) As Long
Private Type POINTAPI
x As Long
y As Long
End Type
'------------------------------
Public Function GetPos(Optional x As Single _
= 0, Optional y As Single = 0)
Dim Pos As POINTAPI
Dim retVal As Boolean
retVal = GetCursorPos(Pos)
x = Pos.x
y = Pos.y
End Function
' Put the following into the form of your
' choice and then create a timer called
' 'Timer1' and remember to set the interval
' to something like '10'
'-----------------------------
Private Sub Timer1_Timer()
Dim x As Single
Dim y As Single
GetPos x, y
Me.Caption = x & "x" & y
End Sub
Loading Comments ...
Comments
No comments have been added for this post.
You must be logged in to make a comment.