- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 能不能编一个能压缩照片的小程序？ 程序 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=67164)
-- 发布时间：2015/4/19 15:38:00
-- 能不能编一个能压缩照片的小程序？ 程序
能不能编一个能压缩照片的小程序？
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:压缩.zip |
写了半天还是不成功，请大师帮忙指导写一下！
-- 发布时间：2015/4/19 16:13:00
--
http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=64575&skin=0
-- 发布时间：2015/4/19 16:54:00
--
Dim tpath As String = ProjectPath & "处理数据\\毕业照片(姓名证书编号命名)\\"
For Each File As String In FileSys.GetFiles(tpath)
Dim img As image = getImage(file)
Dim bmp As new bitmap(img, 160, 120 * (img.height / img.width))
bmp.save(ProjectPath & "处理数据\\毕业照片(姓名证书编号命名压缩)\\")
bmp.Dispose
Next
此主题相关图片如下：20150419.jpg
这是怎么回事？请大师指点！