多个图片拖放修改后保存求助

菠萝菠萝菠 · 发表于 2023-1-8 21:41:10

小白一枚，从贴吧里东拼西凑拼起来的
多个文件拖放到多个图片框里后，可以统一处理图片像素，然后保存到桌面或者指定文件夹
感觉是卡到最后保存那边弄的不对了。还有批量处理像素那边的图片框，麻烦帮我检查一下这样写对吗
不胜感激

窗口程序集名	保留	保留	备注
窗口程序集_启动窗口
变量名	类型	数组	备注
图片框数组	图片框	0
集_默认宽度	整数型
集_默认高度	整数型

子程序名	返回值类型	公开	备注
__启动窗口_创建完毕

拖放对象1.注册拖放控件 (_启动窗口.取窗口句柄 ())

子程序名	返回值类型	公开	备注
_拖放对象1_得到文件
参数名	类型	参考	可空	数组	备注
接收到的文件路径	文本型

变量名	类型	静态	数组	备注
分割路径组	文本型		0
图片框_复制	图片框
i	整数型
图片框层次	整数型
图片框左边	整数型

如果真 (取数组成员数 (图片框数组) ＞ 0)

计次循环首 (取数组成员数 (图片框数组), i)

图片框数组 [i].销毁 ()

计次循环尾 ()

计次循环首 (取数组成员数 (图片框数组), )

删除成员 (图片框数组, 1, )

计次循环尾 ()

分割路径组＝分割文本 (接收到的文件路径, #换行符, )

计次循环首 (取数组成员数 (分割路径组), i)

复制窗口组件 (图片框1, 图片框_复制)

加入成员 (图片框数组, 图片框_复制)

图片框_复制.顶边＝图片框1.高度 × 图片框层次

如果真 (i ％ 5 ＝ 0)

图片框层次＝图片框层次＋ 1

图片框_复制.左边＝图片框1.宽度 × 图片框左边

图片框左边＝图片框左边＋ 1

如果真 (图片框左边＝ 5)

图片框左边＝ 0

图片框_复制.可视＝真

图片框_复制.图片＝读入文件 (分割路径组 [i])

集_默认宽度＝图片_取宽度 (图片框_复制.图片)

集_默认高度＝图片_取高度 (图片框_复制.图片)

编辑框2.内容＝到文本 (集_默认高度)

计次循环尾 ()
' _启动窗口.高度＝图片框1.高度 × (图片框层次＋ 1) ＋ 40
' _启动窗口.宽度＝图片框1.宽度 × 5 ＋ 20

子程序名	返回值类型	公开	备注
_编辑框1_内容被改变

如果真 (选择框1.选中且编辑框1.可有焦点 ())

编辑框2.内容＝到文本 (到整数 (编辑框1.内容) × 集_默认高度 ÷ 集_默认宽度)

子程序名	返回值类型	公开	备注
_编辑框2_内容被改变

如果真 (选择框1.选中且编辑框2.可有焦点 ())

编辑框1.内容＝到文本 (到整数 (编辑框2.内容) × 集_默认宽度 ÷ 集_默认高度)

子程序名	返回值类型	公开	备注
_按钮1_被单击

图片框1.图片＝图片_缩放 (图片框1.图片, 到整数 (编辑框1.内容), 到整数 (编辑框2.内容), 真)

子程序名	返回值类型	公开	备注
_按钮2_被单击

写到文件 (取特定目录 (3) ＋ “\” ＋取随机数 (0, 99) ＋ “.jpg”, 图片框1.图片)

i支持库列表	支持库注释
edroptarget	拖放支持库
shell	操作系统界面功能支持库

.版本 2<br />
.支持库 edroptarget<br />
.支持库 shell<br />
<br />
.程序集 窗口程序集_启动窗口<br />
.程序集变量 图片框数组, 图片框, , "0"<br />
.程序集变量 集_默认宽度, 整数型<br />
.程序集变量 集_默认高度, 整数型<br />
<br />
.子程序 __启动窗口_创建完毕<br />
<br />
拖放对象1.注册拖放控件 (_启动窗口.取窗口句柄 ())<br />
<br />
.子程序 _拖放对象1_得到文件<br />
.参数 接收到的文件路径, 文本型<br />
.局部变量 分割路径组, 文本型, , "0"<br />
.局部变量 图片框_复制, 图片框<br />
.局部变量 i, 整数型<br />
.局部变量 图片框层次, 整数型<br />
.局部变量 图片框左边, 整数型<br />
<br />
.如果真 (取数组成员数 (图片框数组) ＞ 0)<br />
    .计次循环首 (取数组成员数 (图片框数组), i)<br />
        图片框数组 <i>.销毁 ()<br />
    .计次循环尾 ()<br />
    .计次循环首 (取数组成员数 (图片框数组), )<br />
        删除成员 (图片框数组, 1, )<br />
    .计次循环尾 ()<br />
.如果真结束<br />
<br />
分割路径组 ＝ 分割文本 (接收到的文件路径, #换行符, )<br />
.计次循环首 (取数组成员数 (分割路径组), i)<br />
    复制窗口组件 (图片框1, 图片框_复制)<br />
    加入成员 (图片框数组, 图片框_复制)<br />
<br />
    图片框_复制.顶边 ＝ 图片框1.高度 × 图片框层次<br />
    .如果真 (i ％ 5 ＝ 0)<br />
        图片框层次 ＝ 图片框层次 ＋ 1<br />
    .如果真结束<br />
<br />
    图片框_复制.左边 ＝ 图片框1.宽度 × 图片框左边<br />
    图片框左边 ＝ 图片框左边 ＋ 1<br />
    .如果真 (图片框左边 ＝ 5)<br />
        图片框左边 ＝ 0<br />
    .如果真结束<br />
<br />
    图片框_复制.可视 ＝ 真<br />
    图片框_复制.图片 ＝ 读入文件 (分割路径组 <i>)<br />
    集_默认宽度 ＝ 图片_取宽度 (图片框_复制.图片)<br />
    集_默认高度 ＝ 图片_取高度 (图片框_复制.图片)<br />
    编辑框2.内容 ＝ 到文本 (集_默认高度)<br />
<br />
.计次循环尾 ()<br />
' _启动窗口.高度 ＝ 图片框1.高度 × (图片框层次 ＋ 1) ＋ 40<br />
' _启动窗口.宽度 ＝ 图片框1.宽度 × 5 ＋ 20<br />
<br />
<br />
<br />
.子程序 _编辑框1_内容被改变<br />
<br />
.如果真 (选择框1.选中 且 编辑框1.可有焦点 ())<br />
    编辑框2.内容 ＝ 到文本 (到整数 (编辑框1.内容) × 集_默认高度 ÷ 集_默认宽度)<br />
.如果真结束<br />
<br />
<br />
.子程序 _编辑框2_内容被改变<br />
<br />
.如果真 (选择框1.选中 且 编辑框2.可有焦点 ())<br />
    编辑框1.内容 ＝ 到文本 (到整数 (编辑框2.内容) × 集_默认宽度 ÷ 集_默认高度)<br />
.如果真结束<br />
<br />
<br />
<br />
<br />
.子程序 _按钮1_被单击<br />
<br />
图片框1.图片 ＝ 图片_缩放 (图片框1.图片, 到整数 (编辑框1.内容), 到整数 (编辑框2.内容), 真)<br />
<br />
<br />
.子程序 _按钮2_被单击<br />
<br />
写到文件 (取特定目录 (3) ＋ “\” ＋ 取随机数 (0, 99) ＋ “.jpg”, 图片框1.图片)