crop an image from picture box with mouse event

Question

hi all i m making a window application in C# and i want crop an image in circle form from picture box with mouse event. can any one help me ... thanks in advance.

Ritesh Singh · Answer

Hi all For the time being you can follow this link. http://forums.devx.com/showthread.php?t=160827

Babita shivade · Answer

ok thanks.. if i m getting answer for this problem then i will tell you. thanks again.

Manath Pathana · Answer

Sorry this question I'm not search yet. But if I have free time I will search for you. If you can do or search it Don't forget tell me. I want to know too. OK?

Babita shivade · Answer

hi... Thank you very much for helping me.... i want to ask one think this code is crop a image in rectangular form. do you have any idea about circle cropping. in which i can crop a image in circular form and save it as also in circular form .... if you have idea about it plz help me.. thanks again.

Manath Pathana · Answer

oh dear Sorry I am not sure in C# code. but you can go to website http://www.developerfusion.com/tools/convert/vb-to-csharp/ for convert from VB.Net code to C# code. If you still can not do please reply to me. I will try do it for you. Good Luck.

Babita shivade · Answer

hi thank you very much........... but i need this code in C# language can u help me.... thanks again.............

Manath Pathana · Answer

Hi If you want create this application I can help you. please write code below. Normal 0 false false false EN-US X-NONE X-NONE /* Style Definitions */ table.MsoNormalTable {mso-style-name:Table Normal; mso-tstyle-rowband-size:0; mso-tstyle-colband-size:0; mso-style-noshow:yes; mso-style-priority:99; mso-style-qformat:yes; mso-style-parent:; mso-padding-alt:0in 5.4pt 0in 5.4pt; mso-para-margin-top:0in; mso-para-margin-right:0in; mso-para-margin-bottom:10.0pt; mso-para-margin-left:0in; line-height:115%; mso-pagination:widow-orphan; font-size:11.0pt; font-family:Calibrisans-serif; mso-ascii-font-family:Calibri; mso-ascii-theme-font:minor-latin; mso-fareast-font-family:Times New Roman; mso-fareast-theme-font:minor-fareast; mso-hansi-font-family:Calibri; mso-hansi-theme-font:minor-latin;} Imports System.Drawing Imports System.Drawing.Imaging Public Class frmMain Inherits System.Windows.Forms.Form Dim cropBitmap As Bitmap Dim cropX As Integer Dim cropY As Integer Dim cropWidth As Integer Dim cropHeight As Integer Public cropPen As Pen Public cropPenSize As Integer = 2 Public cropDashStyle As Drawing2D.DashStyle = Drawing2D.DashStyle.Solid Public cropPenColor As Color = Color.Aquamarine Public c As Cursors Private Sub btnOpen_Click(ByVal sender As System.Object ByVal e As System.EventArgs) Handles btnOpen.Click Try Dim openDLG As New OpenFileDialog openDLG.Filter = Image Files (*.bmp *.gif *.jpg)|*.bmp;*.gif;*.jpg If openDLG.ShowDialog = DialogResult.OK Then p.Image = Image.FromFile(openDLG.FileName True) End If Catch exc As Exception MessageBox.Show(exc.Message  Error MessageBoxButtons.OK MessageBoxIcon.Error) End Try End Sub Private Sub btnCrop_Click(ByVal sender As System.Object ByVal e As System.EventArgs) Handles btnCrop.Click Try If cropWidth MessageBox.Show(You need to first select what portion of the image to crop.  No cropping Cordinates! MessageBoxButtons.OK MessageBoxIcon.Error) Exit Sub End If Dim bit As Bitmap = New Bitmap(p.Image p.Width p.Height) cropBitmap = New Bitmap(cropWidth cropHeight) Dim g As Graphics = Graphics.FromImage(cropBitmap) g.DrawImage(bit 0 0 rect GraphicsUnit.Pixel) pbCrop.Image = cropBitmap Catch exc As Exception MessageBox.Show(exc.Message  Error MessageBoxButtons.OK MessageBoxIcon.Error) End Try End Sub Private Sub btnSave_Click(ByVal sender As System.Object ByVal e As System.EventArgs) Handles btnSave.Click Try If pbCrop.Image Is Nothing Then MessageBox.Show(You have not edited the original image. There is no new image to save.  Error MessageBoxButtons.OK MessageBoxIcon.Information) Exit Sub End If Dim saveDLG As SaveFileDialog = New SaveFileDialog saveDLG.Filter = Image Files (*.bmp *.gif *.jpg)|*.bmp;*.gif;*.jpg If saveDLG.ShowDialog = DialogResult.OK Then If saveDLG.FileName.EndsWith(bmp) Then pbCrop.Image.Save(saveDLG.FileName ImageFormat.Bmp) ElseIf saveDLG.FileName.EndsWith(gif) Then pbCrop.Image.Save(saveDLG.FileName ImageFormat.Gif) Else pbCrop.Image.Save(saveDLG.FileName ImageFormat.Jpeg) End If saveDLG.Dispose() End If Catch exc As Exception MessageBox.Show(exc.Message  Error MessageBoxButtons.OK MessageBoxIcon.Error) End Try End Sub Private Sub p_MouseUp(ByVal sender As Object ByVal e As System.Windows.Forms.MouseEventArgs) Handles p.MouseUp Try Cursor = c.Default Catch exc As Exception MessageBox.Show(exc.Message  Error MessageBoxButtons.OK MessageBoxIcon.Error) End Try End Sub Private Sub p_MouseMove(ByVal sender As Object ByVal e As System.Windows.Forms.MouseEventArgs) Handles p.MouseMove Try If p.Image Is Nothing Then Exit Sub If e.Button = MouseButtons.Left Then p.Refresh() cropWidth = e.X - cropX cropHeight = e.Y - cropY p.CreateGraphics.DrawRectangle(cropPen cropX cropY cropWidth cropHeight) End If GC.Collect() Catch exc As Exception If Err.Number = 5 Then Exit Sub MessageBox.Show(exc.Message  Error MessageBoxButtons.OK MessageBoxIcon.Error) End Try End Sub End Class