api 易语言 获取鼠标点击时的坐标

.版本 2
.支持库 EdirectX

.子程序 _输入设备1_鼠标按键被改变
.参数 键值, 整数型
.参数 键状态, 整数型
.局部变量 Y, 整数型
.局部变量 X, 整数型

Y ＝ 取鼠标水平位置 ()
X ＝ 取鼠标垂直位置 ()
标签1.标题 ＝ “坐标X:” ＋ 到文本 (X) ＋ “Y:” ＋ 到文本 (Y)

.子程序 __启动窗口_创建完毕

输入设备1.选择输入设备 (真, 假, 假)
输入设备1.置刷新时间 (10)
输入设备1.初始化 (输入设备1.取窗口句柄 ())

这样可以？添加一个输入设备组件就行了，在扩展组件里可以找到

先自定义一种数据类型为坐标型，然后在方法中有鼠标点击的方式：如鼠标左键被按下等
再定义一个坐标型变量
如：坐标
坐标.x=取鼠标水平位置（）
坐标.y=取鼠标垂直位置（）
再将“坐标”返回到一个自己定义的全局变量或程序集变量中如：
调用单击时
单击＝坐标
调用双击时
双击＝坐标
以下面一段小程序为例：
先“插入”---“数据类型”
.版本 2

.数据类型 坐标型
.成员 x, 整数型
.成员 y, 整数型

再在窗口上画一个编辑框为“编辑框1”和一个标签为“标签1”
.版本 2

.子程序 _编辑框1_鼠标左键被按下, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
.局部变量 坐标, 坐标型

坐标.x ＝ 取鼠标水平位置 ()
坐标.y ＝ 取鼠标垂直位置 ()
左键坐标 ＝ 坐标
标签1.标题 ＝ “左键单击时的坐标为：” ＋ 到文本 (左键坐标.x) ＋ “,” ＋ 到文本 (左键坐标.y)

在编辑框1中左键单击一下，标签1中就显示单击时，鼠标所在的屏幕位置

识图模块