vb-gdi+-进行压缩

在 VB 中使用 GDI+ 进行压缩，可以使用如下的代码：

' 定义压缩质量
Dim quality As Long = 50

' 加载原始图片
Dim originalImage As New Bitmap("original.jpg")

' 创建压缩后的图片
Dim compressedImage As New Bitmap(originalImage.Width, originalImage.Height)

' 创建 GDI+ 绘图对象
Dim g As Graphics = Graphics.FromImage(compressedImage)

' 设置压缩质量
Dim encoderParameters As New EncoderParameters(1)
encoderParameters.Param(0) = New EncoderParameter(Encoder.Quality, quality)

' 获取 JPEG 编码器
Dim codecInfo As ImageCodecInfo = ImageCodecInfo.GetImageEncoders().FirstOrDefault(Function(c) c.FormatID = ImageFormat.Jpeg.Guid)

' 将原始图片绘制到压缩后的图片上
g.DrawImage(originalImage, New Rectangle(0, 0, originalImage.Width, originalImage.Height))

' 保存压缩后的图片
compressedImage.Save("compressed.jpg", codecInfo, encoderParameters)

' 释放资源
g.Dispose()
originalImage.Dispose()
compressedImage.Dispose()

在上述代码中，首先定义了压缩质量，然后加载原始图片，创建压缩后的图片，创建 GDI+ 绘图对象，并设置压缩质量。接着获取 JPEG 编码器，并将原始图片绘制到压缩后的图片上。最后保存压缩后的图片，并释放资源。