| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- [求助]关于图片处理，请论坛的高手们赐教！ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=37883) |
| -- 作者：gamtings -- 发布时间：2013/7/14 9:39:00 -- [求助]关于图片处理，请论坛的高手们赐教！ 各位高手，现在需要这么一个功能，请高手指点： 从某文件夹中读取一张图片，并把这张图片缩小到一定大小（如50KB），然后保存到另一文件夹中。这个代码应该如何写？
|
| -- 作者：狐狸爸爸 -- 发布时间：2013/7/14 9:49:00 -- 在painter中绘制这个图片到一个相对小的尺寸，然后另存看看: Dim p As WinForm.Painter = e.Form.Controls("Painter1") Dim g As Graphics = p.Graphics g.DrawImage(getImage("c:\\logo.jpg"),0,0,10,10) p.Repaint()p.Save("c:\\data\\abc.jpg") |
| -- 作者：gamtings -- 发布时间：2013/7/14 10:14:00 -- 老大这个是可以，但是好像没办法灵活控制转换出来的文件大小。 |
| -- 作者：狐狸爸爸 -- 发布时间：2013/7/15 8:58:00 -- 没有办法，只能精确控制尺寸，没有办法精确控制大小。 |
| -- 作者：gamtings -- 发布时间：2013/7/15 16:52:00 -- 好的，这样也可以了，影响不大，多谢老大！ |