Bildausschnitt auslesen

1
2
3
4
5
6
7
8
9
10
11
12
13
14

''' <summary>
''' Diese Funktion gibt einen bestimmten Ausschnitt aus einem Bild zurück
''' </summary>
''' <param name="SourceImage">Das Bild aus dem der Ausschnitt gelesen werden soll</param>
''' <param name="Region">Die Position, Größe und Breite des Ausschnitts</param>
Public Function GetPicturePart(ByVal SourceImage As Image, ByVal Region As Rectangle) As Bitmap
    Dim ImagePart As Bitmap = New Bitmap(Region.Width, Region.Height)
    Using G As Graphics = Graphics.FromImage(ImagePart)
        Dim TargetRect As Rectangle = New Rectangle(0, 0, Region.Width, Region.Height)
        Dim SourceRect As Rectangle = Region
        G.DrawImage(SourceImage, TargetRect, SourceRect, GraphicsUnit.Pixel)
    End Using
    Return ImagePart
End Function