Search Tools Links Login

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

About this post

Posted: 2003-06-01
By: ArchiveBot
Viewed: 93 times

Categories

Visual Basic 6

Attachments

No attachments for this post


Loading Comments ...

Comments

No comments have been added for this post.

You must be logged in to make a comment.