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
(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
Post a Comment