KnowledgeBase Archive

An Archive of Early Microsoft KnowledgeBase Articles

View on GitHub

Q125464: How to Call SetCursorPos() API to Move Mouse Pointer in FoxPro

Article: Q125464
Product(s): Microsoft FoxPro
Version(s): 2.60a 3.00
Operating System(s): 
Keyword(s): kbcode
Last Modified: 26-AUG-1999

-------------------------------------------------------------------------------
The information in this article applies to:

- Microsoft Visual FoxPro for Windows, version 3.0 
- Microsoft FoxPro for Windows, version 2.6a 
-------------------------------------------------------------------------------

SUMMARY
=======

You can reposition the mouse pointer (cursor) by using the Windows API function
SetCursorPos(). This function is documented on page 833 of the Windows SDK
Programmer's Reference, Volume 2: Functions manual.

MORE INFORMATION
================

The SetCursorPos() function sets the position, in screen coordinates, of the
mouse pointer. Here's the function syntax:

     void SetCursorPos(x,y)

Here x and y are integers; x is the horizontal position and y is the vertical
position. The function is void, so it does not return any value.

Below are code examples for Visual FoxPro using the DECLARE command, and FoxPro
2.x using FOXTOOLS.FLL, that demonstrate how to move the mouse pointer to
position 20,20.

NOTE: For backward compatibility, Visual FoxPro still supports FOXTOOLS.FLL
(included in earlier FoxPro versions), the Visual FoxPro API library that allows
calls to 16-bit .DLL functions. However, in Visual FoxPro, the DECLARE command
is the preferred method for calling .DLL functions.

Visual FoxPro Example Using DECLARE
-----------------------------------

     DECLARE integer SetCursorPos in WIN32API integer, integer
     =SetCursorPos(20,20)
     CLEAR DLLS

FoxPro 2.x Example Using FOXTOOLS.FLL
-------------------------------------

     * Set library to FoxTools.FLL so we can call the Windows
     * API function.
     SET LIBRARY TO SYS(2004)+"foxtools.fll"

     * Register the SetCursorPos with having two integer inputs
     * and void return value.
     setcurpos=REGFN("SetCursorPos","II","")

     * Call the function and move the mouse to position 20,20.
     callsetc=CALLFN(setcurpos,20,20)

     * Release the FoxTools.FLL library.
     SET LIBRARY TO

Additional query words: VFoxWin FoxWin

======================================================================
Keywords          : kbcode 
Technology        : kbVFPsearch kbAudDeveloper kbFoxproSearch kbFoxPro260a kbVFP300
Version           : 2.60a 3.00

=============================================================================

THE INFORMATION PROVIDED IN THE MICROSOFT KNOWLEDGE BASE IS PROVIDED "AS IS" WITHOUT WARRANTY OF ANY KIND. MICROSOFT DISCLAIMS ALL WARRANTIES, EITHER EXPRESS OR IMPLIED, INCLUDING THE WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. IN NO EVENT SHALL MICROSOFT CORPORATION OR ITS SUPPLIERS BE LIABLE FOR ANY DAMAGES WHATSOEVER INCLUDING DIRECT, INDIRECT, INCIDENTAL, CONSEQUENTIAL, LOSS OF BUSINESS PROFITS OR SPECIAL DAMAGES, EVEN IF MICROSOFT CORPORATION OR ITS SUPPLIERS HAVE BEEN ADVISED OF THE POSSIBILITY OF SUCH DAMAGES. SOME STATES DO NOT ALLOW THE EXCLUSION OR LIMITATION OF LIABILITY FOR CONSEQUENTIAL OR INCIDENTAL DAMAGES SO THE FOREGOING LIMITATION MAY NOT APPLY.