我正在使用我在另一个 stackoverflow 问题上找到的代码变体,从指定位置的较大图像中裁剪出一个矩形。但是每次它裁剪它都会得到正确的宽度和高度,但图像显示为黑色。
*face 是一个预定义的矩形对象。
Dim OrignalImage = Image.FromFile("C:\fileName.jpg")
Dim CropImage = New Bitmap(face.Width, face.Height)
Using grp = Graphics.FromImage(OrignalImage)
grp.DrawImage(OrignalImage, OrignalImage.Width, OrignalImage.Height, face, GraphicsUnit.Pixel)
OrignalImage.Dispose()
CropImage.Save("C:\newfile.jpg")
grp.Dispose()
End Using