保存图片为JPG/GIF格式

wszjljx · 发表于 2010-2-26 19:05:34

'--------------------------
'程序作者:家新de粽子
'制作时间:2010-02-25
'--------------------------
'函数名:SaveImage
'输入参数:
'Pict(StdPicture):图象句柄
'FileName(String):保存路径
'PicType(String):保存类型
'Quality(Byte):JPG图象质量
'--------------------------

使用示例:
SaveImage Picture1.Picture , "C:\JiaXin.jpg" , ".jpg" , 80
SaveImage Picture1.Picture , "C:\JiaXin.gif" , ".gif"

SaveImage_Module.rar (1.08 KB, 下载次数: 6205)

gujin162 · 发表于 2010-2-26 23:06:52

提示: 作者被禁止或删除内容自动屏蔽

sgp_003 · 发表于 2010-5-20 08:05:27

很好用,谢谢了!

sgp_003 · 发表于 2010-5-21 15:24:27

但是压率不是很好

feixunwb · 发表于 2010-9-2 16:02:17

感谢感谢，非常感谢，嘿嘿。。

账号		自动登录	找回密码
密码			加入我们