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

2025-02-11 03:30:03

推荐回答（2个）

回答1：

.版本 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：

如果你会调用dll的话

原型：
int WINAPI icePub_saveSubScreenJpg(char * jpgFile,int startX,int startY,int endX,int endY))
输入：jpgFile 屏幕图像文件名
startX 左上角x坐标
startY 左上角y坐标
endX 右下角x坐标
endY 右下角y坐标
输出：

VB sample 代码：
Private Declare Function icePub_saveSubScreenJpg Lib "icePubDll.dll" (ByVal jpgFile As String, ByVal startX As Integer,ByVal startY As Integer,ByVal endX As Integer,ByVal endY As Integer) As Integer

Dim str1 As String
Dim a2 As Integer

str1 = App.Path + "\1.jpg"
a2 = icePub_saveScreenJpg(str1,627,211,700,300)

最新问答

学校宿舍寝室里面如果地震应该怎么办？

退伍老兵原单位给缴了几年养老社保后,现在又补缴九年的养老金,但还有十年没给？

我想找一些关于俱乐部的英语海报？拜托各位大神

321不锈钢与304区别

微信诈骗可以起诉吗

每次洗脸后，脸都紧绷绷的，怎么回事