Mouse position

[simonm]

Should be a simple question but does anybody know how to find the x and y coordinates of the mouse (in terms of the screen) at any given time?

I just can't work it out for the life of me and a moments assistance from anybody to point me in the right direction would be much appreciated.

Simon.

[jbart]

If you are needing the coordinates on a form within VB, the following will show that.

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Label1.Caption = X
    Label2.Caption = Y
End Sub

If you need the coordinates for the whole screen, I am sure someone else will post code for that.

[anilgoje]

Just go to form_MouseMove Event and there you will find the X and Y coordinates.This will give the mouse position on a form

Here is an Example

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.Caption = "X" & X & " " & " Y " & Y
End Sub

This Example will display the X and Y corodinates, on the form's caption,of the mouse on a form

I think this is what you want...

[tumblingdown]

Any where on the screen...


Public Declare Function GetCursorPos Lib "user32" Alias "GetCursorPos" (lpPoint As POINTAPI) As Long

Public Type POINTAPI
x As Long
y As Long
End Type



td.

Here is an example of the usage of GetCursorPos. Add the following to a form with a CommandButton.

Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Type POINTAPI
    x As Long
    y As Long
End Type

Private Sub Command1_Click()
    Dim PT As POINTAPI
    GetCursorPos PT
    MsgBox "(" & PT.x & "," & PT.y & ")"
End Sub

[simonm]

I appreciate all those who offered help.

What I was actually able to use was the API as I had to know the screen mouse position outside of a mouse move event.

Thanks again,

Simon.