Dim file As String = "d:\test.jpg"
Dim img As image = getImage(file)
Dim bmp As bitmap
If img.width > 600 Then
If 600 * (img.height / img.width) > 338 Then
bmp = new bitmap(img, 600*(338/(600*(img.height/img.width))), 338)
Else
bmp = new bitmap(img, 600, 600 * (img.height / img.width))
End If
End If
bmp.save("d:\缩略图.jpg")
bmp.Dispose
执行该语句后,原图 大小是 325 KB,生成的缩略图却变成 617 KB,请问这个要怎么让缩略图大小变小?
原图
此主题相关图片如下:timg (1).jpg
缩略图
此主题相关图片如下:testjpg
[此贴子已经被作者于2019/8/16 0:02:38编辑过]