Private Function CropPattern(ByVal intCrpX As Integer, ByVal intCrpY As Integer, ByVal intCrpW As Integer, ByVal intCrpH As Integer, _ ByVal bmpSource As Bitmap) As Bitmap Dim bmpCropBitmap1 As Bitmap Dim rect As Rectangle = New Rectangle(intCrpX, intCrpY, intCrpW, intCrpH) bmpCropBitmap1 = New Bitmap(intCrpW, intCrpH) Dim g As Graphics = Graphics.FromImage(bmpCropBitmap1) g.InterpolationMode = Drawing2D.InterpolationMode.HighQualityBicubic g.PixelOffsetMode = Drawing2D.PixelOffsetMode.HighQuality g.CompositingQuality = Drawing2D.CompositingQuality.HighQuality g.DrawImage(bmpSource, 0, 0, rect, GraphicsUnit.Pixel) g.Dispose() Return bmpCropBitmap1 End Function
Bitmap
g.DrawImage
Image
g.DrawImage(CType(bmpSource, Image), 0, 0, rect, GraphicsUnit.Pixel)
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)