图像格式转换GDIPlus内存中图片格式批量转换

保存目录 ＝ 编辑框_目标路径.内容
新图片格式 ＝ 组合框_格式.现行选中项 ＋ 1
JPG质量 ＝ 到整数 (组合框_质量.内容)
新图片扩展名 ＝ 组合框_格式.取项目文本 (组合框_格式.现行选中项)
新图片扩展名 ＝ 子文本替换 (新图片扩展名, “图片”, “”, , , 真)
新图片扩展名 ＝ 到小写 (新图片扩展名)
.如果真 (超级列表框1.取表项数 () ＝ 0)
信息框 (“请添加要转换的图片”, 位或 (#信息图标, #确认钮), )
返回 ()
.如果真结束
.如果真 (保存目录 ＝ “”)
信息框 (“请选择保存目录”, 位或 (#信息图标, #确认钮), )
返回 ()
.如果真结束
.如果真 (取文本右边 (保存目录, 1) ≠ “”)
保存目录 ＝ 保存目录 ＋ “\”
.如果真结束
连续赋值 (0, 转换成功数量, 转换失败数量)
连续赋值 (真, 工具条1.禁止, 分组框1.禁止)
处理事件 ()
批量转换 ()
信息框 (“转换完成,转换成功:” ＋ 到文本 (转换成功数量) ＋ “,转换失败:” ＋ 到文本 (转换失败数量), 位或 (#信息图标, #确认钮), , )