Post by ubi44 on Feb 24, 2024 18:05:54 GMT
Why Full Screen _MouseMove x , y doesn't work !
Here's an example with two attempts that unfortunately don't work !
Is there a solution?
Here's an example with two attempts that unfortunately don't work !
Is there a solution?
Declare Library
Sub glutWarpPointer (ByVal x As Integer, Byval y As Integer)
Sub glutSetCursor (ByVal cursor As Integer)
End Declare
Screen _NewImage(800, 600, 32)
_FullScreen _SquarePixels
Do
While _MouseInput: Wend
PSet (_Width / 2, _Height / 2)
If _MouseButton(1) Then _MouseMove _Width(0) * .5, _Height(0) * .5
If _MouseButton(2) Then glutWarpPointer _Width(0) / 2, _Height(0) / 2
Locate 1, 1
Print _MouseX, _MouseY
_Display
Cls
Loop Until _KeyDown(27)
System 0
