如何将图片转换为指定象素大小的图片？

梦幻倩影发布于 2016-10-30 14:53， 2642 次点击

想将图片保存在SQL的字段中，有些图片太大，想在上传前进行缩小处理，如何将图片转换为指定象素大小的图片？

2 回复

梦幻倩影2016-10-30 16:00

        Dim bitmap As Bitmap = bitmap.FromFile(wjm1)
        i = 80  '缩小百分比
        Dim image As New Bitmap(bitmap, bitmap.Width * i / 100, bitmap.Height * i / 100)
        image.Save("d:\3.jpg")
        bitmap.Dispose()

祝凯迪2016-10-31 03:57

用命令调用imagemagic，不知道是不是有些旁门左道 http://www.