以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  图片处理  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=58545)
--  作者：arthurshoe
--  发布时间：2014/10/18 21:59:00
--  图片处理
项目里面的产品图片比较大（2M），怎么在上传图片文件的时候，压缩原来的文件并生成一个类似于缩略图小一点图片(50K).
 这样在用listview时加载图片是显示缩略图，双击的时候才显示全图。。
--  作者：有点甜
--  发布时间：2014/10/19 9:19:00
--  

 你可以用类似代码缩小图片

 

Dim file As String = "d:\\test.jpg"
Dim img As image = getImage(file)
Dim bmp As new bitmap(img, img.width / 20, img.height / 20)
bmp.save("d:\\缩略图.jpg")
bmp.Dispose

 
--  作者：arthurshoe
--  发布时间：2014/10/19 15:24:00
--  
谢谢！
--  作者：kylin
--  发布时间：2014/10/19 20:48:00
--  
以下是引用有点甜在2014-10-19 9:19:00的发言：

 你可以用类似代码缩小图片

 

Dim file As String = "d:\\test.jpg"
Dim img As image = getImage(file)
Dim bmp As new bitmap(img, img.width / 20, img.height / 20)
bmp.save("d:\\缩略图.jpg")
bmp.Dispose

 

收藏！