Source code : How to Crop and save Image in VB.NET

 How to Crop and save Image in VB.NET
(ScreenShot)
*********************************************
 'code from here
Imports System.Drawing
Imports System.Drawing.Imaging
Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim ofd As OpenFileDialog = New OpenFileDialog()
        ofd.Title = "Please select a image to open"
        ofd.Filter = ("Image Files | *.jpg; *.bmp")
        ofd.ShowDialog()
        Dim img As Image = New Bitmap(ofd.FileName)
        PictureBox1.Image = img


    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        End
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim rotateImage As Image = New Bitmap(PictureBox1.Image)
        rotateImage.RotateFlip(RotateFlipType.Rotate90FlipNone)
        PictureBox1.Image = rotateImage
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Try
            Dim sfd As SaveFileDialog = New SaveFileDialog()
            sfd.Filter = "Image File(*.bmp, *.jpg)| *.bmp;*.jpg"
            If sfd.ShowDialog = DialogResult.OK Then
                If sfd.FileName.EndsWith("bmp") Then
                    PictureBox1.Image.Save(sfd.FileName, ImageFormat.Bmp)

                Else
                    PictureBox1.Image.Save(sfd.FileName, ImageFormat.Jpeg)
                End If
                sfd.Dispose()
            End If

        Catch ex As Exception
            MessageBox.Show(ex.Message, "ERROR", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub
End Class
***************** End Project ***********************

Comments

Popular posts from this blog

Complete Python Database Project with sqlite3

System sound recorder using NAudio dll with complete code

Complete StopWatch in Java with source code