用vb.net切片jpg

时间:2009-12-14 22:20:39

标签: vb.net image

由于我没有任何图像编辑软件,我将使用vb.net水平切片图像。有人可以帮我开始吗?

1 个答案:

答案 0 :(得分:2)

在下面的代码中,首先加载图像,然后使用新的宽度和高度创建一个新图像,从中抓取Graphics对象,最后将旧图像绘制到新图像上。我们使用旧图像的尺寸将旧图像绘制到新图像上,但由于新图像较小,其余部分将不在画布上。

    Private Shared Sub CropImage(ByVal inputImagePath As String, ByVal outputImagePath As String, ByVal newHeight As Integer)
    Using oldImage = System.Drawing.Image.FromFile(inputImagePath)
        Using NewImage As New System.Drawing.Bitmap(oldImage.Width, newHeight)
            Using G = Graphics.FromImage(NewImage)
                G.DrawImage(oldImage, 0, 0, oldImage.Width, oldImage.Height)
                NewImage.Save(outputImagePath, System.Drawing.Imaging.ImageFormat.Jpeg)
            End Using
        End Using
    End Using
End Sub