Still celebrating National IT Professionals Day with 3 months of free Premium Membership. Use Code ITDAY17

x
?
Solved

Paint circles on an image

Posted on 2013-12-26
5
Medium Priority
?
287 Views
Last Modified: 2013-12-27
I need to implement a work sheet for a workshop mechanics. I need to record in a car which damaged parts (As attached picture shows). What better way to do it.
Img.jpg
0
Comment
Question by:rflorencio
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 3
  • 2
5 Comments
 
LVL 75

Expert Comment

by:käµfm³d 👽
ID: 39739882
What kind of application are you building:  WinForms, WPF, web?
0
 

Author Comment

by:rflorencio
ID: 39739943
winforms
0
 
LVL 75

Expert Comment

by:käµfm³d 👽
ID: 39739947
You marked this as both VB.NET and C#. Which language are you using?
0
 

Author Comment

by:rflorencio
ID: 39739995
Vb.net, first option.
0
 
LVL 75

Accepted Solution

by:
käµfm³d   👽 earned 2000 total points
ID: 39740003
Here's one way to do it:

Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.PictureBox1.Tag = Me.PictureBox1.Image.Clone()  ' Create a copy that we can use to clear the image
    End Sub

    Private Sub PictureBox1_MouseUp(sender As Object, e As MouseEventArgs) Handles PictureBox1.MouseUp
        Dim centerPoint As Point = e.Location  ' Where did we click?

        centerPoint.Offset(-10, -10)  ' Offset the circle so that it is drawn with the center where we clicked

        Using g As Graphics = Graphics.FromImage(Me.PictureBox1.Image)  ' We need a Graphics object in order to do drawing on the image
            g.FillEllipse(Brushes.Red, New Rectangle(centerPoint, New Size(20, 20)))  ' Draw the circle
        End Using

        Me.PictureBox1.Invalidate()
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Me.PictureBox1.Image = DirectCast(Me.PictureBox1.Tag, Image).Clone()  ' Assign the copy we made above as a "clean" image. Be sure to copy it (the Clone method)!!
        Me.PictureBox1.Invalidate()
    End Sub
End Class

Open in new window


 Screenshot
0

Featured Post

Create CentOS 7 Newton Packstack Running Keystone

A bug was filed against RDO for the installation of Keystone v3. This guide is designed to walk you through the configuration for using Keystone v3 with Packstack. You will accomplish this using various repos and the Answers file.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Creating an analog clock UserControl seems fairly straight forward.  It is, after all, essentially just a circle with several lines in it!  Two common approaches for rendering an analog clock typically involve either manually calculating points with…
The article shows the basic steps of integrating an HTML theme template into an ASP.NET MVC project
In this video you will find out how to export Office 365 mailboxes using the built in eDiscovery tool. Bear in mind that although this method might be useful in some cases, using PST files as Office 365 backup is troublesome in a long run (more on t…
In this video, Percona Director of Solution Engineering Jon Tobin discusses the function and features of Percona Server for MongoDB. How Percona can help Percona can help you determine if Percona Server for MongoDB is the right solution for …

661 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question