Обрезка прямоугольника из большего размера

Question

Я использую вариант кода, который я нашел в другом вопросе stackoverflow, чтобы обрезать прямоугольник из большего изображения в указанном месте. Но каждый раз, когда он посевается, он получает правильную ширину и высоту, но изображение отображается черным.

How to crop an image in vb.net?

* лицо предопределенный объект прямоугольник.

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 

Answer 1

Вы создаете свой Graphics объект из OriginalImage. Вам нужно создать его с вашего CropImage.

Кроме того, вам не нужно звонить grp.Dispose(), потому что блок Using сделает это за вас.

Исправленный код:

Using OrignalImage = Image.FromFile("C:\fileName.jpg") 
Using CropImage = New Bitmap(face.Width, face.Height) 
    Using grp = Graphics.FromImage(CropImage) 
     grp.DrawImage(
      OrignalImage, 0, 0, 
      face, GraphicsUnit.Pixel) 
    End Using 
    CropImage.Save("C:\newfile.jpg") 
End Using 
End Using