bmp；jpg；gif；tiff；png；5种格式互转小程序 - 精易论坛

窗口程序集名	保留	保留	备注
窗口程序集_启动窗口
变量名	类型	数组	备注
路径	文本型

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

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

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

编辑框_图片路径.内容＝接收到的文件路径

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

图片_转换 (读入文件 (编辑框_图片路径.内容), 到整数 (编辑框_要转换的格式.内容), 编辑框_保存路径.内容, , )
编辑框_要转换的格式.内容＝ “”
编辑框_保存路径.内容＝ “”

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

编辑框_要转换的格式.内容＝ “”
编辑框_图片路径.内容＝ “”
编辑框_保存路径.内容＝ “”

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

通用对话框1.类型＝ 0

如果真 (通用对话框1.打开 ())

编辑框_图片路径.内容＝通用对话框1.文件名

子程序名	返回值类型	公开	备注
_编辑框_要转换的格式_内容被改变

路径＝编辑框_图片路径.内容

如果 (编辑框_要转换的格式.内容＝ “1”)

编辑框_保存路径.内容＝取文本左边 (路径, 倒找文本 (路径, “\”, , 假)) ＋ “转换后的” ＋ “BMP”

如果 (编辑框_要转换的格式.内容＝ “2”)

编辑框_保存路径.内容＝取文本左边 (路径, 倒找文本 (路径, “\”, , 假)) ＋ “转换后的” ＋ “JPG”

如果 (编辑框_要转换的格式.内容＝ “3”)

编辑框_保存路径.内容＝取文本左边 (路径, 倒找文本 (路径, “\”, , 假)) ＋ “转换后的” ＋ “GIF”

如果 (编辑框_要转换的格式.内容＝ “4”)

编辑框_保存路径.内容＝取文本左边 (路径, 倒找文本 (路径, “\”, , 假)) ＋ “转换后的” ＋ “TIFF”

如果 (编辑框_要转换的格式.内容＝ “5”)

编辑框_保存路径.内容＝取文本左边 (路径, 倒找文本 (路径, “\”, , 假)) ＋ “转换后的” ＋ “PNG”

如果 (编辑框_要转换的格式.内容＞ “5”)

信息框 (“一共只有5个格式，请输入1-5”, 0, , )

i支持库列表	支持库注释
edroptarget	拖放支持库

.版本 2<br />
.支持库 edroptarget<br />
<br />
.程序集 窗口程序集_启动窗口<br />
.程序集变量 路径, 文本型<br />
<br />
.子程序 __启动窗口_创建完毕<br />
<br />
拖放对象1.注册拖放控件 (_启动窗口.取窗口句柄 ())<br />
<br />
<br />
.子程序 _拖放对象1_得到文件<br />
.参数 接收到的文件路径, 文本型<br />
<br />
编辑框_图片路径.内容 ＝ 接收到的文件路径<br />
<br />
<br />
.子程序 _按钮_转换_被单击<br />
<br />
图片_转换 (读入文件 (编辑框_图片路径.内容), 到整数 (编辑框_要转换的格式.内容), 编辑框_保存路径.内容, , )<br />
编辑框_要转换的格式.内容 ＝ “”<br />
编辑框_保存路径.内容 ＝ “”<br />
<br />
.子程序 _按钮_清空_被单击<br />
<br />
编辑框_要转换的格式.内容 ＝ “”<br />
编辑框_图片路径.内容 ＝ “”<br />
编辑框_保存路径.内容 ＝ “”<br />
<br />
.子程序 _按钮_浏览_被单击<br />
<br />
通用对话框1.类型 ＝ 0<br />
.如果真 (通用对话框1.打开 ())<br />
    编辑框_图片路径.内容 ＝ 通用对话框1.文件名<br />
.如果真结束<br />
<br />
<br />
.子程序 _编辑框_要转换的格式_内容被改变<br />
<br />
路径 ＝ 编辑框_图片路径.内容<br />
.如果 (编辑框_要转换的格式.内容 ＝ “1”)<br />
    编辑框_保存路径.内容 ＝ 取文本左边 (路径, 倒找文本 (路径, “\”, , 假)) ＋ “转换后的” ＋ “BMP”<br />
.否则<br />
    .如果 (编辑框_要转换的格式.内容 ＝ “2”)<br />
        编辑框_保存路径.内容 ＝ 取文本左边 (路径, 倒找文本 (路径, “\”, , 假)) ＋ “转换后的” ＋ “JPG”<br />
    .否则<br />
        .如果 (编辑框_要转换的格式.内容 ＝ “3”)<br />
            编辑框_保存路径.内容 ＝ 取文本左边 (路径, 倒找文本 (路径, “\”, , 假)) ＋ “转换后的” ＋ “GIF”<br />
        .否则<br />
            .如果 (编辑框_要转换的格式.内容 ＝ “4”)<br />
                编辑框_保存路径.内容 ＝ 取文本左边 (路径, 倒找文本 (路径, “\”, , 假)) ＋ “转换后的” ＋ “TIFF”<br />
            .否则<br />
                .如果 (编辑框_要转换的格式.内容 ＝ “5”)<br />
                    编辑框_保存路径.内容 ＝ 取文本左边 (路径, 倒找文本 (路径, “\”, , 假)) ＋ “转换后的” ＋ “PNG”<br />
                .否则<br />
                    .如果 (编辑框_要转换的格式.内容 ＞ “5”)<br />
                        信息框 (“一共只有5个格式，请输入1-5”, 0, , )<br />
                    .否则<br />
<br />
                    .如果结束<br />
<br />
                .如果结束<br />
<br />
            .如果结束<br />
<br />
        .如果结束<br />
<br />
    .如果结束<br />
<br />
.如果结束