简单鼠标选区截图，不需要画笔什么的

易语言血洗

.版本 2
.支持库 spec

.程序集 窗口程序集_启动窗口

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



.子程序 _按钮1_被单击
.局部变量 a, 精易_坐标
.局部变量 x1, 整数型
.局部变量 y1, 整数型
.局部变量 x2, 整数型
.局部变量 y2, 整数型
.局部变量 t, 字节集

延迟 (2000)
a ＝ 鼠标_记位 ()
x1 ＝ a.横
y1 ＝ a.纵
编辑框1.内容 ＝ “起点坐标：（” ＋ 到文本 (x1) ＋ “，” ＋ 到文本 (y1) ＋ “）”
编辑框2.内容 ＝ “起点记位成功”
延迟 (2000)
a ＝ 鼠标_记位 ()
x2 ＝ a.横
y2 ＝ a.纵
编辑框3.内容 ＝ “终点坐标：（” ＋ 到文本 (x2) ＋ “，” ＋ 到文本 (y2) ＋ “）”
编辑框4.内容 ＝ “终点记位成功”
.如果真 (x2 － x1 ＝ 0)
    信息框 (“，与第二点重合，请重新选择第二点”, 0, , )
    延迟 (2000)
    a ＝ 鼠标_记位 ()
    x2 ＝ a.横
    y2 ＝ a.纵
    编辑框3.内容 ＝ “终点坐标：（” ＋ 到文本 (x2) ＋ “，” ＋ 到文本 (y2) ＋ “）”
    编辑框4.内容 ＝ “终点记位成功”

.如果真结束
t ＝ 图片_屏幕区域截图 (x1, y1, x2 － x1, y2 － y1)
图片框1.图片 ＝ t
剪辑板_置图片 (t)


我觉得这样截图更快点，可以根据自己个人习惯改以下延迟时间，或者设为隐藏只粘贴图片。

易正易则

感谢分享，消灭零回复

南风窗

分享快乐哈。

横扫天下无敌手

1111111111111111111111111111

横扫天下无敌手

111111111111111111111111

516c

学习学习，看看是不是想要的

paul405

新人，不晓得模块是啥，丢失模块什么意思

易语言血洗

paul405 发表于 2019-3-18 20:41
新人，不晓得模块是啥，丢失模块什么意思

既然来精益论坛了，别的可以不会，精易模块要知道吧。

vcx

回复下载不花钱

sxc928

看看有没有用