Question

易语言截图按顺序保，例如1.jpg被保存了就保存2.jpg，以此类推?

易语言截图按顺序保，例如1.jpg被保存了就保存2.jpg，以此类推?

Answer 1

.版本 2

.子程序 保存截图

.参数 图片, 字节集

.局部变量 A, 整数型

.计次循环首 (9999999, A)

    .判断开始 (文件是否存在 (取运行目录 () ＋ “\” ＋ 到文本 (A) ＋ “.JPG”))

    .默认

        写到文件 (取运行目录 () ＋ “\” ＋ 到文本 (A) ＋ “.JPG”, 图片)

        跳出循环 ()

    .判断结束

.计次循环尾 ()

Answer 2

界面部分：

代码部分：

 

 

 

.版本 2

.程序集 窗口程序集1.程序集变量 生成图片数据, 整数型

.子程序 _按钮1_被单击

生成图片数据 ＝ 到数值 (编辑框1.内容)子程序 ()

.子程序 子程序

.局部变量 文件目录, 文本型

.局部变量 文件名, 文本型

.局部变量 记录图片, 文本型

.局部变量 分割图片, 文本型, , "0"

.局部变量 图片数量, 整数型

 

文件目录 ＝ 取运行目录 ()

.如果真 (文件目录 ≠ “”)

    文件名 ＝ 寻找文件 (文件目录 ＋ “\*.jpg”, )

    .判断循环首 (文件名 ≠ “”)

        文件名 ＝ 寻找文件 (, )

        .如果 (文件名 ≠ “”)

            记录图片 ＝ 记录图片 ＋ 文件名 ＋ #换行符

        .否则

            记录图片 ＝ 记录图片 ＋ 文件名

        .如果结束

 

    .判断循环尾 ()

.如果真结束

分割图片 ＝ 分割文本 (记录图片, #换行符, )

图片数量 ＝ 取数组成员数 (分割图片)

.如果 (生成图片数据 ＝ 0)

    返回 ()

.否则

    图片框1.图片 ＝ 快照 (, , )

    写到文件 (取运行目录 () ＋ “\” ＋ 到文本 (图片数量 ＋ 1) ＋ “.jpg”, 图片框1.图片)

    生成图片数据 ＝ 生成图片数据 － 1

    子程序 ()

 

 

 

谢谢,请采纳

追问

生成图片数据???
不能

追答

我都没被采纳，我还告诉你个机吧毛

Answer 3

不知ls的用 计次循环是什么 ? 难道同一张图片要被保存9999999次.??!!
去掉计次循环就完美了.