精易论坛

标题: 简单鼠标选区截图，不需要画笔什么的 [打印本页]

作者: 易语言血洗 时间: 2018-10-25 13:07
标题: 简单鼠标选区截图，不需要画笔什么的
.版本 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)

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