Get the position of the mouse

Hi people. This is the question:

Is there any posibility to get the position of the mouse as it appears in the low left corner in the status bar?

Thanks in advance.

Germán

[shelbym]

Sure you can get the mouse Position of were a user clicks. This will keep looping until l you press "ESC". Also the messagebox lets you know if the shift, control or Alt key was depressed when clicked.

Sub MousePosition()

Dim x As Double, y As Double
Dim Shift As Long
Dim b As Boolean
Dim txtKey As String

b = False
txtKey = "No Key"

While Not b
    b = ActiveDocument.GetUserClick(x, y, Shift, 10, False, cdrCursorEyeDrop)
        If Not b Then
            If (Shift And 1) <> 0 Then txtKey = "Shift" ' Shift depressed
            If (Shift And 2) <> 0 Then txtKey = "Ctrl" ' Ctrl depressed
            If (Shift And 4) <> 0 Then txtKey = "Alt" ' Alt depressed
            
            MsgBox "x: " & x & " y: " & y & Chr(13) & txtKey & " was depressed"
        End If
Wend
End Sub

Hope it helps,

Shelby

Thanks shelby, but I was thinking if there's a way to get the mouse position as it moves, like you can see in the lower left corner. If anybody knows, i'll appreciate the answer.

[Alex]

Well, technically it should be possible. But you will definitely have to use Windows API.

Here is some code that can show you how to translate the current mouse coordinates into the document coordinates:

http://forum.oberonplace.com/showthread.php?t=1058