How to crop an image in vb.net?

Question

The image can be anything. It can be jpg, png, anything.

Load it.

Crop it. Say removing first 100 pixels from the left.

Save to the same file

Answer 1

Region "Image Cropping"

Dim cropX As Integer
Dim cropY As Integer
Dim cropWidth As Integer
Dim cropHeight As Integer

Dim oCropX As Integer
Dim oCropY As Integer
Dim cropBitmap As Bitmap

Public cropPen As Pen
Public cropPenSize As Integer = 1 '2
Public cropDashStyle As Drawing2D.DashStyle = Drawing2D.DashStyle.Solid
Public cropPenColor As Color = Color.Yellow
Private Sub RotateBtn_Click(sender As System.Object, e As EventArgs) Handles RotateBtn.Click

    ' RotateImage(PreviewPictureBox.Image, offset:=, angle:=90)
    crobPictureBox.Image.RotateFlip(RotateFlipType.Rotate270FlipNone)
    'PreviewPictureBox.Image.RotateFlip(RotateFlipType.Rotate270FlipNone)
    '(45, PreviewPictureBox.Image)
End Sub
Private Sub crobPictureBox_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles crobPictureBox.MouseDown
    Try

        If e.Button = Windows.Forms.MouseButtons.Left Then

            cropX = e.X
            cropY = e.Y

            cropPen = New Pen(cropPenColor, cropPenSize)
            cropPen.DashStyle = DashStyle.DashDotDot
            Cursor = Cursors.Cross

        End If
        crobPictureBox.Refresh()
    Catch exc As Exception
    End Try
End Sub
Dim tmppoint As Point
Private Sub crobPictureBox_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles crobPictureBox.MouseMove
    Try

        If crobPictureBox.Image Is Nothing Then Exit Sub

        If e.Button = Windows.Forms.MouseButtons.Left Then

            crobPictureBox.Refresh()
            cropWidth = e.X - cropX
            cropHeight = e.Y - cropY
            crobPictureBox.CreateGraphics.DrawRectangle(cropPen, cropX, cropY, cropWidth, cropHeight)
        End If
        ' GC.Collect()

    Catch exc As Exception

        If Err.Number = 5 Then Exit Sub
    End Try

End Sub

Private Sub crobPictureBox_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles crobPictureBox.MouseUp
    Try
        Cursor = Cursors.Default
        Try

            If cropWidth < 1 Then
                Exit Sub
            End If

            Dim rect As Rectangle = New Rectangle(cropX, cropY, cropWidth, cropHeight)
            Dim bit As Bitmap = New Bitmap(crobPictureBox.Image, crobPictureBox.Width, crobPictureBox.Height)

            cropBitmap = New Bitmap(cropWidth, cropHeight)
            Dim g As Graphics = Graphics.FromImage(cropBitmap)
            g.InterpolationMode = Drawing2D.InterpolationMode.HighQualityBicubic
            g.PixelOffsetMode = Drawing2D.PixelOffsetMode.HighQuality
            g.CompositingQuality = Drawing2D.CompositingQuality.HighQuality
            g.DrawImage(bit, 0, 0, rect, GraphicsUnit.Pixel)
            ' g.DrawImage(bit, 0, 0, rect,GraphicsUnit.Pixel)
            PreviewPictureBox.Image = cropBitmap

        Catch exc As Exception
        End Try
    Catch exc As Exception
    End Try
End Sub