可以啊。很简单 。用系统的 DLL 命令。当鼠标点击左键时。会向系统传送消息。你可以取得这个消息从而获取鼠标点击时候的坐标。GetCursorPosVB声明Declare Function GetCursorPos Lib "user32" Alias "GetCursorPos" (lpPoint As POINTAPI) As Long说明获取鼠标指针的当前位置返回值Long,非零表示成功,零表示失败。会设置GetLastError参数表参数类型及说明lpPointPOINTAPI,随同指针在屏幕像素坐标中的位置载入的一个结构
代码如下:.版本 2.程序集 窗口程序集1.子程序 __启动窗口_创建完毕时钟1.时钟周期 = 1.子程序 _时钟1_周期事件.局部变量 横, 整数型.局部变量 纵, 整数型横 = 取鼠标水平位置 () ' 此变量为你的程序所引用的X坐标纵 = 取鼠标垂直位置 () ' 此变量为你的程序所引用的Y坐标编辑框1.内容 = “横” + 到文本 (横) + “纵” + 到文本 (纵) 你的程序可以直接引用“横”“纵”两个变量执行重复执行的话,加一个时钟