易语言图片源码

‘壹’ 求个易语言全屏寻找图片并点击的源码。

源码：
.版本 2

.程序集 窗口程序集1

.子程序 _按钮1_被单击
.局部变量 图片缓冲, 坐标型
.局部变量 图片, 文本型

' 网络下载一个 超级模块7.1
图片 ＝ 这里写图片路径
图片缓冲 ＝ 识图3.精确找图 (图片)
.如果 (图片缓冲.x ＞ 0 或 图片缓冲.y ＞ 0)
信息框 (“找到图片” ＋ 图片, 0, )
.否则
信息框 (“没有找到图片” ＋ 图片, 0, )
.如果结束

‘贰’ 恳求易语言指定坐标截图程序源码

.版本 2
.支持库 eImgConverter

.程序集 窗口程序集1

.子程序 __启动窗口_创建完毕
.局部变量 图片, 字节集
.局部变量 文件名, 文本型
.局部变量 文件号, 整数型

画板1.底图 ＝ 快照 (, , )
画板1.复制 (0, 0, 526, 395, 画板2, 0, 0, ) ' 宽度自己定，高度也自己定。
图片 ＝ 画板2.取图片 (, )
.判断开始 (读配置项 (取运行目录 () ＋ “\截图配置.ini”, “保存时”, “文件号”, ) ＝ “”)
文件号 ＝ 1
.判断 (读配置项 (取运行目录 () ＋ “\截图配置.ini”, “保存时”, “文件号”, ) ≠ “”)
文件号 ＝ 到整数 (读配置项 (取运行目录 () ＋ “\截图配置.ini”, “保存时”, “文件号”, )) ＋ 1
.默认

.判断结束
文件名 ＝ “jietu” ＋ 到文本 (文件号) ＋ “.jpg”
写到文件 (取运行目录 () ＋ “\” ＋ 文件名, 图片)
转换到JPG (取运行目录 () ＋ “\” ＋ 文件名, 取运行目录 () ＋ “\” ＋ 文件名, 假, 100, 真, 0)
写配置项 (取运行目录 () ＋ “\截图配置.ini”, “保存时”, “文件号”, 到文本 (文件号))
销毁 ()

前面的写配置项是为了记录截图次数，防止文件名重复。
文件存放的路径可以自己定。
记得启动窗口中要放两个足够大的画板，画板2的宽度和高度要和截图的高、宽度相同，两个画板都要 自动重画=真 ，启动窗口要 可视=假 画面才流畅。
还有要记得添加支持库：图像格式转换支持库。

‘叁’ 易语言帮我做一个软件（图片浏览） 实现打开图片、上一张图片、下一张图片就好。（发源码）

我的思路是枚举文件然后加入数组,最后设置个变量就好了。
.版本
2.支持库
EThread
.
程序集
窗口程序集1.程序集变量
图片组,
字节集,
,
"0".程序集变量
当前图片,
整数型.程序集变量
图片张数,
整数型.程序集变量
下一张,
整数型
.
子程序
__启动窗口_创建完毕
时钟1.时钟周期
＝
1000当前图片
＝
1加入成员
(图片组,
#图片1)加入成员
(图片组,
#图片2)图片张数
＝
取数组成员数
(图片组)
.子程序
子程序_图片轮换
下一张
＝
当前图片
＋
1.如果真
(下一张
＝
图片张数
＋
1)
下一张
＝
1
当前图片
＝
图片张数.如果真结束
.如果
(当前图片
＝
图片张数)
当前图片
＝
1.否则
当前图片
＝
当前图片
＋
1.如果结束
图片框1.图片
＝
图片组
[当前图片]
.子程序
_时钟1_周期事件
启动线程
(&子程序_图片轮换,
,
)