|
我在大多数笔记本电脑上运行的易语言程序,其都有精易模块的加入,可见精易模块的强大,但是有个值得改进的地方,就是鼠标模拟点击之类的需要坐标的操作,总是点不到我想要的地方,后来发现是电脑缩放了的问题。包括有的时候我写的程序界面在缩放下也会出问题,所以,希望能加入DPI的功能
以下是我重写 鼠标_单击的一个例子。 希望精易越做也好,在新的一年更强大!新年快乐!
.版本 2
.子程序 鼠标_单击_A, , , 鼠标操作,具体请看参数的备注,支持DPI缩放
.参数 窗口句柄, 整数型
.参数 横坐标, 整数型, 可空, 留空则取鼠标所在位置
.参数 纵坐标, 整数型, 可空, 留空则取鼠标所在位置
.参数 类型, 整数型, 可空, 1 = 鼠标左键单击;2 = 鼠标右键单击;3 = 鼠标左键按住不放;
坐标_重新计算 (横坐标, 纵坐标)
鼠标_单击 (窗口句柄, 横坐标, 纵坐标, 类型)
.子程序 坐标_重新计算
.参数 x, 整数型, 参考
.参数 y, 整数型, 参考
x = x ÷ 取系统DPI缩放率 () × 100
y = y ÷ 取系统DPI缩放率 () × 100
.子程序 取系统DPI缩放率, 整数型
.局部变量 DPI百分比
DPI百分比 = 取数值zc项 (3, “Control Panel\Desktop\WindowMetrics\AppliedDPI”, )
.判断开始 (DPI百分比 = 96)
DPI百分比 = 100
.判断 (DPI百分比 = 120)
DPI百分比 = 125
.判断 (DPI百分比 = 144)
DPI百分比 = 150
.默认
DPI百分比 = 0
.判断结束
返回 (DPI百分比)
|
|