Foxtable(狐表)用户栏目专家坐堂 → 图片大小


  共有2636人关注过本帖平板打印复制链接

主题:图片大小

帅哥哟,离线,有人找我吗?
qaz17909
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:779 积分:8895 威望:0 精华:0 注册:2017/1/26 14:38:00
图片大小  发帖心情 Post By:2021/4/10 8:20:00 [只看该作者]

将一个大小为71k的原图(像素为600*800)用如下代码缩小后,新图的大小反而变大为819k(像素为500*667),通过属性发现是位深度发生变化由24变大为32,可否设置该值使图片大小变小?
Dim file As String = "d:\test.jpg"
Dim img As image = getImage(file)
Dim bmp As new bitmap(img, 500, 500 * (img.height / img.width))
bmp.save("d:\缩略图.jpg")

 回到顶部