vb.net减少图像文件大小与插值模式不工作。

点击button1后,它给我test_reduce,文件大小为4.87 MB,原文件大小为1.91 MB,InterpolationMode完全不起作用……我想用InterpolationMode将文件大小从1.91 MB减少到1 MB以下。

原图。https:/images.alphacoders.com943943148.jpg

这是我的代码

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim jpg As Image = Image.FromFile("test.jpg")
        Dim tp As Bitmap = reduce(jpg, 1920, 1080)
        jpg.Dispose()
        jpg = tp
        jpg.Save("test_reduce.jpg")
    End Sub

    Private Function reduce(ByVal img As Image, ByVal width As Integer, ByVal height As Integer) As Image
        Dim imaf As New Bitmap(width, height)
        Dim pic As Graphics = Graphics.FromImage(imaf)
        pic.InterpolationMode = Drawing2D.InterpolationMode.Bicubic
        pic.DrawImage(img, 0, 0, width, height)
        Return imaf
    End Function

解决方案:

jpg.Save("test_reduce.jpg")

改为

jpg.Save("test_reduce.jpeg", Imaging.ImageFormat.Jpeg)

给TA打赏
共{{data.count}}人
人已打赏
解决方案

在botframework v4中,如果机器人闲置5分钟,如何给用户发送消息?

2022-5-11 16:00:18

解决方案

创建PDF,每一页都是图像和SVG文件的合并。

2022-5-11 16:00:20

0 条回复 A文章作者 M管理员
    暂无讨论,说说你的看法吧
个人中心
购物车
优惠劵
今日签到
有新私信 私信列表
搜索