Experts Exchange Solution brought to you by
"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.
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
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
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)!!
Open in new window
Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.
From novice to tech pro — start learning today.
Premium members can enroll in this course at no extra cost.