开启辅助访问 切换到宽版

精易论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

用微信号发送消息登录论坛

新人指南 邀请好友注册 - 我关注人的新帖 教你赚取精币 - 每日签到


求职/招聘- 论坛接单- 开发者大厅

论坛版规 总版规 - 建议/投诉 - 应聘版主 - 精华帖总集 积分说明 - 禁言标准 - 有奖举报

查看: 5053|回复: 24
打印 上一主题 下一主题
收起左侧

[易语言纯源码] 画板截图软件

[复制链接]
跳转到指定楼层
楼主
发表于 2021-4-7 14:09:15 | 只看该作者 |只看大图 回帖奖励 |倒序浏览 |阅读模式   广西壮族自治区南宁市
分享源码
界面截图:
是否带模块: 调用了模块
备注说明: -
使用画板截图!
  
窗口程序集名保 留  保 留备 注
窗口程序集_窗口1   
变量名类 型数组备 注
程_截图起点X整数型  
程_截图起点Y整数型  
程_截图终点X整数型  
程_截图终点Y整数型  
截到图片字节集  

子程序名返回值类型公开备 注
_窗口1_创建完毕  
置托盘图标 ( #托盘图标, “截图软件”)
如果真 (zc热键 (窗口1.取窗口句柄 (), 标签1.取窗口句柄 (), 1, #F1键 ) ≠ 0)
zc热键 (窗口1.取窗口句柄 (), 标签1.取窗口句柄 (), 1, #F2键 )
信息框 (“ctrl+F1为截取指定屏幕位置,ctrl+F2为直接截图桌面保存至桌面!”, 0 + 64, , )

子程序名返回值类型公开备 注
_标签1_反馈事件整数型 
参数名类 型参考可空数组备 注
参数一整数型
参数二整数型
截到图片 = 快照 (, , )
如果 (参数一 = 33001)
窗口1.宽度 = 取屏幕宽度 ()
窗口1.高度 = 取屏幕高度 ()
画板1.高度 = 取屏幕高度 ()
画板1.宽度 = 取屏幕宽度 ()
画板1.底图 = 截到图片
窗口1.位置 = #最大化激活
窗口1.可视 = 真
如果 (参数一 = 33002)
如果 (写到文件 (取特定目录 ( #系统桌面 )“\截取指定屏幕”“.jpg”, 截到图片))
信息框 (“保存图片成功”, 0, , )
信息框 (“保存到桌面失败”, 0, , )





子程序名返回值类型公开备 注
_画板1_鼠标左键被按下逻辑型 
参数名类 型参考可空数组备 注
横向位置整数型
纵向位置整数型
功能键状态整数型
变量名类 型静态数组备 注
点击反馈整数型 
画板2.可视 = 真
如果 (点击反馈 = 0)
时钟1.时钟周期 = 1
程_截图起点X = 横向位置
程_截图起点Y = 纵向位置
点击反馈 = 1
如果 (点击反馈 = 1)
时钟1.时钟周期 = 0
点击反馈 = 0
弹出菜单 (保存, 横向位置, 纵向位置)





子程序名返回值类型公开备 注
_画板2_鼠标左键被按下逻辑型 
参数名类 型参考可空数组备 注
横向位置整数型
纵向位置整数型
功能键状态整数型
变量名类 型静态数组备 注
点击反馈整数型 
如果 (点击反馈 = 0)
时钟1.时钟周期 = 1
点击反馈 = 1
如果 (点击反馈 = 1)
时钟1.时钟周期 = 0
点击反馈 = 0
弹出菜单 (保存, 横向位置, 纵向位置)





子程序名返回值类型公开备 注
_时钟1_周期事件  
变量名类 型静态数组备 注
画板1的坐标精易_坐标 
画板1的坐标 = 窗口_取坐标 (画板1.取窗口句柄 ())
程_截图终点X = 画板1的坐标.横
程_截图终点Y = 画板1的坐标.纵
画板2.可视 = 真
画板2.宽度 = 取绝对值 (程_截图起点X - 程_截图终点X)
画板2.高度 = 取绝对值 (程_截图起点Y - 程_截图终点Y)
如果 (程_截图终点X > 程_截图起点X 程_截图起点Y > 程_截图终点Y)
画板2.左边 = 程_截图起点X
画板2.顶边 = 程_截图终点Y
画板2.底图 = 图片_取图片区域 (截到图片, 程_截图起点X, 程_截图终点Y, 画板2.宽度, 画板2.高度)
如果 (程_截图终点X < 程_截图起点X 程_截图起点Y > 程_截图终点Y)
画板2.左边 = 程_截图终点X
画板2.顶边 = 程_截图终点Y
画板2.底图 = 图片_取图片区域 (截到图片, 程_截图终点X, 程_截图终点Y, 画板2.宽度, 画板2.高度)
如果 (程_截图终点X < 程_截图起点X 程_截图起点Y < 程_截图终点Y)
画板2.左边 = 程_截图终点X
画板2.顶边 = 程_截图起点Y
画板2.底图 = 图片_取图片区域 (截到图片, 程_截图终点X, 程_截图起点Y, 画板2.宽度, 画板2.高度)
如果 (程_截图终点X > 程_截图起点X 程_截图起点Y < 程_截图终点Y)
画板2.左边 = 程_截图起点X
画板2.顶边 = 程_截图起点Y
画板2.底图 = 图片_取图片区域 (截到图片, 程_截图起点X, 程_截图起点Y, 画板2.宽度, 画板2.高度)






子程序名返回值类型公开备 注
_保存到桌面_被选择  
写到文件 (取特定目录 ( #系统桌面 )“\截取指定屏幕”“.jpg”, 画板2.底图)
子程序名返回值类型公开备 注
_保存到指定目录_被选择  
通用对话框1.类型 = 1
通用对话框1.过滤器 = “图片文件(.jpg)|*.jpg”
通用对话框1.初始目录 = 取运行目录 ()
通用对话框1.默认文件后缀 = “.jpg”
如果 (通用对话框1.打开 ())
写到文件 (通用对话框1.文件名, 画板2.底图)
信息框 (“保存失败!”, 0 + #警告图标, , )

子程序名返回值类型公开备 注
_退出截图_被选择  
时钟1.时钟周期 = 0
画板2.高度 = 0
画板2.宽度 = 0
画板1.清除 (, , , )
画板2.清除 (, , , )
画板2.可视 = 假
窗口1.可视 = 假
子程序名返回值类型公开备 注
_关闭截图软件_被选择  
窗口1.销毁 ()
子程序名返回值类型公开备 注
_窗口1_托盘事件  
参数名类 型参考可空数组备 注
操作类型整数型
如果真 (操作类型 = 3)
弹出菜单 (操作类型o, 取鼠标水平位置 (), 取鼠标垂直位置 ())

子程序名返回值类型公开备 注
_退出截图2_被选择  
_退出截图_被选择 ()
子程序名返回值类型公开备 注
_关闭截图软件2_被选择  
_关闭截图软件_被选择 ()


i支持库列表   支持库注释   
shellEx扩展功能支持库一
shell操作系统界面功能支持库


沙发
发表于 2021-4-7 14:20:32 | 只看该作者   重庆市重庆市
回复 支持 反对

使用道具 举报

结帖率:100% (1/1)
板凳
发表于 2021-4-7 14:26:23 | 只看该作者   浙江省宁波市
支持开源, 感谢分享!~
回复 支持 反对

使用道具 举报

签到天数: 3 天

地板
发表于 2021-4-7 16:32:10 | 只看该作者   湖南省永州市

支持开源, 感谢分享!~
回复 支持 反对

使用道具 举报

结帖率:63% (5/8)
地下
发表于 2021-4-7 17:26:31 | 只看该作者   河北省承德市
辛苦了,拜读
回复 支持 反对

使用道具 举报

签到天数: 26 天

6
发表于 2021-4-8 01:30:03 | 只看该作者   浙江省绍兴市
路过围观一下,顺便帮顶
回复 支持 反对

使用道具 举报

结帖率:100% (3/3)

签到天数: 13 天

7
发表于 2021-4-8 02:26:48 | 只看该作者   广东省深圳市
666666666666666666666666
回复 支持 反对

使用道具 举报

结帖率:80% (8/10)

签到天数: 1 天

8
发表于 2021-4-8 20:50:43 | 只看该作者   广西壮族自治区来宾市
回复 支持 反对

使用道具 举报

结帖率:96% (50/52)

签到天数: 9 天

9
发表于 2021-4-9 01:04:40 | 只看该作者   广东省潮州市
在此留名,以后多多交流哦~
回复 支持 反对

使用道具 举报

头像被屏蔽
结帖率:100% (1/1)
10
发表于 2021-4-9 09:26:17 | 只看该作者   河南省平顶山市
源码呢?我还要画界面?
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则 致发广告者

发布主题 收藏帖子 返回列表

sitemap| 易语言源码| 易语言教程| 易语言论坛| 易语言模块| 手机版| 广告投放| 精易论坛
拒绝任何人以任何形式在本论坛发表与中华人民共和国法律相抵触的言论,本站内容均为会员发表,并不代表精易立场!
论坛帖子内容仅用于技术交流学习和研究的目的,严禁用于非法目的,否则造成一切后果自负!如帖子内容侵害到你的权益,请联系我们!
防范网络诈骗,远离网络犯罪 违法和不良信息举报QQ: 793400750,邮箱:[email protected]
网站简介:精易论坛成立于2009年,是一个程序设计学习交流技术论坛,隶属于揭阳市揭东区精易科技有限公司所有。
Powered by Discuz! X3.4 揭阳市揭东区精易科技有限公司 ( 粤ICP备12094385号-1) 粤公网安备 44522102000125 增值电信业务经营许可证 粤B2-20192173

快速回复 返回顶部 返回列表