Retrieving Mouse coordinates in Form? *Resolved*

[mattis86]

Hi,
I want to set the caption of two labels to the X and Y mouse coordinates when the user presses a command button.
How do I retrieve them in an expression? I have tested Xmouse and Ymouse but that didn't work.
Any help will be appreciated



Man, being a newbie sucks ^_^. But I'll not give up until I'm a pro in VB

[James Stanich]

MouseMove Event of Form I believe returns x and y position...

[mattis86]

But I need to get the values in the Command1_Click() event

[Mc Brain]

Command1_MouseMove

[James Stanich]

'' Display the co-ordinates of the mouse pointer every 50ms
''
Private lastTick As Long
Private mouseCords As POINTAPI
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Declare Function GetTickCount Lib "kernel32" () As Long
 
Private Type POINTAPI
    x As Long
    y As Long
End Type
 
Private Sub Form_Load()
    Show
    Do
        DoEvents
        If GetTickCount - lastTick > 50 Then
            lastTick = GetTickCount
            GetCursorPos mouseCords
            With mouseCords
                Debug.Print .x & "," & .y
            End With
        End If
    Loop
End Sub

You can just iomplement for the Command1_Click...

[mattis86]

Hey thank you. That worked just fine

[James Stanich]

Originally posted by mattis86
Hey thank you. That worked just fine

You are welcome. Add resolved to the subject line of your first thread...