使用vb.net对jpg进行切片

Question

由于我没有任何图像编辑软件，因此我将使用vb.net对图像进行水平切片。有人能帮我开始吗？

Answer 1

在下面的代码中，首先加载图像，然后创建具有新宽度和高度的新图像，从中获取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