想请问一下：鼠标 坐标系统中，不管什么分辨率屏幕在水平和垂直方向上均分割成65535×65535个单元。想问一下vfp怎么获取当前鼠标的坐标呢？

我的目的就是程序完成模拟任务后，恢复鼠标的原始位置

以前试过VFP的鼠标坐标会受“缩放”的影响而不准确
GetCursorPos
SetCursorPos

[此贴子已经被作者于2021-10-25 19:44编辑过]

函数原型：GetMessagePos（VOID）

    参数：无。

    返回值：返回值给出光标位置的X，y坐标。X坐标在低位整数，y坐标在高位整数。

这个函数可以用吗？

在vfp中，怎样写调试代码？

请问在vfp中，怎样写调试代码？

不是要获取光标坐标吗
Windows API GetCursorPos()

做模拟挂的吧～！　

朋友你可以试以下的函数
mrow()
mcol()
第一个是行高度，第二个是列宽度

实例：
thisform.text1.Value=MROW('form1',3)
thisform.text2.Value=MCOL('form1',3)

[此贴子已经被作者于2021-10-26 15:14编辑过]

*!* 将代码放在Timer控件,inteval...100看效果.
DECLARE LONG GetCursorPos IN WIN32API STRING @
LOCAL structPos, posX, posY
structPos = REPLICATE(CHR(0), 8)
IF GetCursorPos(@structPos)=1
    posX = CTOBIN(LEFT(structPos,4),"4RS")
    posY = CTOBIN(RIGHT(structPos,4),"4RS")
    ?posX,PosY,posX+PosY*65536 &&这里就是相对于屏幕的当前坐标内部转换值,lParam
ENDIF

[此贴子已经被作者于2021-10-26 15:37编辑过]