bmp；jpg；gif；tiff；png；5种格式互转小程序

z1622316957

这是自己瞎琢磨的，共同学习，调用了精易模块，程序支持拖放和打开，要转换成的图像格式：1=bmp；2=jpg；3=gif；4=tiff；5=png；

  

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

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

拖放对象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 /> .如果结束

447485268

支持开源~！感谢分享

jysoft2022

感谢分享

深圳梦

支持开源~！感谢分享

283688410

谢谢开源

jtucar

支持开源~！感谢分享

brucelee0720

支持开源，感谢！

388266

好东西啊

亿万

感谢分享，很给力！~

bianyuan456

已经顶贴，感谢您对论坛的支持！