以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  请问:是否有办法批量修改图片的尺寸大小?  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=48064)
--  作者：飞天
--  发布时间：2014/3/22 12:04:00
--  请问:是否有办法批量修改图片的尺寸大小?
是否有办法批量修改图片的尺寸大小?
--  作者：Bin
--  发布时间：2014/3/22 14:44:00
--  
Dim img As image=getimage("C:\\Users\\foxtable1\\Desktop\\123.png")
Dim newImage As Image = new Bitmap(40, 40)
Dim g As Graphics = Graphics.FromImage(newImage)
g.DrawImage(img , new Rectangle(0, 0, 40, 40))
g.Dispose()
newImage.Save("C:\\Users\\foxtable1\\Desktop\\111.jpg")