目录图片格式批量转换器

易语言 2020-08-21 19:19:13

目录图片格式批量转换器

提示:将左侧的文件,转换为指定的格式。

.计次循环首 (列表框1.取项目数 (), i)
透明标签1.标题 = “开始转换第” + 到文本 (i) + “张图片...”
.如果真 (组合框1.现行选中项 = 0)
转换到JPG (列表框1.取项目文本 (i - 1), 编辑框1.内容 + 到文本 (i) + “.jpg”, 假, 75, 真, 0)
.如果真结束
.如果真 (组合框1.现行选中项 = 1)
转换到BMP (列表框1.取项目文本 (i - 1), 编辑框1.内容 + 到文本 (i) + “.bmp”)
.如果真结束
.如果真 (组合框1.现行选中项 = 2)
转换到TIF (列表框1.取项目文本 (i - 1), 编辑框1.内容 + 到文本 (i) + “.tif”, 假)
.如果真结束
.如果真 (组合框1.现行选中项 = 3)
转换到PNG (列表框1.取项目文本 (i - 1), 编辑框1.内容 + 到文本 (i) + “.png”, 24)
.如果真结束
.如果真 (组合框1.现行选中项 = 4)
转换到PPM (列表框1.取项目文本 (i - 1), 编辑框1.内容 + 到文本 (i) + “.ppm”, 真)
.如果真结束
.如果真 (组合框1.现行选中项 = 5)
转换到PGM (列表框1.取项目文本 (i - 1), 编辑框1.内容 + 到文本 (i) + “.pgm”, 真)
.如果真结束
.如果真 (组合框1.现行选中项 = 6)
转换到PBM (列表框1.取项目文本 (i - 1), 编辑框1.内容 + 到文本 (i) + “.pbm”)
.如果真结束
.如果真 (组合框1.现行选中项 = 7)
转换到PCX (列表框1.取项目文本 (i - 1), 编辑框1.内容 + 到文本 (i) + “.pcx”)
.如果真结束
.如果真 (组合框1.现行选中项 = 8)
转换到PIC (列表框1.取项目文本 (i - 1), 编辑框1.内容 + 到文本 (i) + “.pic”)
.如果真结束
.如果真 (组合框1.现行选中项 = 9)
转换到SGI (列表框1.取项目文本 (i - 1), 编辑框1.内容 + 到文本 (i) + “.sgi”)
.如果真结束
进度条1.位置 = 进度条1.位置 + 1
.计次循环尾 ()
透明标签1.标题 = “所有文件格式转换完成...”