Sphinx

ok, i know how to set the mouse cursor , but only ON AN OBJECT. I know how to set the position relative t per se , a form. BUT, how can I set it relative to the screen. If I am getting the cursor position from a screen, I want to be able to set that same position relative to the entire screen, not an object like a form, unless i maximized it or something? but i dont really want to do that.

PLEASE, HELP, appreciate it thanx!

Deadalus

How are you getting and setting it then? With GetCursorPos and SetCursorPos you always use screen coordinates.

Sphinx

this is how i set the cursor position....
look where it says "window as object' under the public function setcursorpostion. I have to set that to a form! I dont want that, I want it to set the position no matter if there is a form or not.


declarations...
Option Explicit

Private Type POINTAPI
x As Long
y As Long
End Type

Private Declare Function ClientToScreen Lib "user32" _
(ByVal hwnd As Long, lpPoint As POINTAPI) As Long

Private Declare Function SetCursorPos Lib "user32" _
(ByVal x As Long, ByVal y As Long) As Long


code...

Public Function SetCursorPosition(Window As Object, xPos As _
Long, yPos As Long) As Boolean

'AUTHOR: FreeVBCode.com (http://www.freevbcode.com)

'Usage: Window = window for which you want
'to set the cursof for (form or control)

'window must support hwnd property; function will
'return false if it doesn't (e.g., won't work
'with labels)

'x = xPosition in twips
'y = yPosition in twips

'if you are not using twips as your scale mode
'you must convert the value to pixels from your
'metric. There is a function on FreeVBCode.com
'that does this, under the System/API
'category

On Error GoTo errorhandler

Dim x As Long, y As Long
Dim lRet As Long
Dim lHandle As Long
Dim typPoint As POINTAPI

lHandle = Window.hwnd
With Screen
x = CLng(xPos / .TwipsPerPixelX)
y = CLng(yPos / .TwipsPerPixelY)
End With

typPoint.x = x
typPoint.y = y

lRet = ClientToScreen(lHandle, typPoint)
lRet = SetCursorPos(typPoint.x, typPoint.y)


SetCursorPosition = (lRet <> 0)

Exit Function

errorhandler:

SetCursorPosition = False
Exit Function


End Function

Deadalus

What you don't want is exactly what that function is meant for. So don't use it and look at the SetCursorPos and GetCursorPos on www.allapi.net or search for them here and try to understand how they work.