Newbie graphic question

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

I have a simple problem that I just cannot figure out. I have a picturebox on a form that displays an image. I would like a red dot to appear on the picture when the user clicks on a certain location. here is the code that is not working

dim gr as graphic

Private Sub global5_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMov
gr = PictureBox1.CreateGraphic
gr.DrawEllipse(New Pen(Color.Red), e.X, e.Y, 3, 3
End Su

thank
mik
 
Try this instead:

Private Sub global5_MouseMove(ByVal sender As Object, ByVal e As
System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMove
gr = Graphics.FromImage(PictureBox1.Image)
gr.DrawEllipse(New Pen(Color.Red), e.X, e.Y, 3, 3)
PictureBox1.Refresh()
End Sub

Mike_Deck said:
I have a simple problem that I just cannot figure out. I have a
Click to expand...
picturebox on a form that displays an image. I would like a red dot to
appear on the picture when the user clicks on a certain location. here is
the code that is not working:
dim gr as graphics

Private Sub global5_MouseMove(ByVal sender As Object, ByVal e As
Click to expand...
System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMove
 
You must handle MouseDown not MouseMove
-----Original Message-----
I have a simple problem that I just cannot figure out. I
Click to expand...
have a picturebox on a form that displays an image. I
would like a red dot to appear on the picture when the
user clicks on a certain location. here is the code that
is not working:
dim gr as graphics

Private Sub global5_MouseMove(ByVal sender As Object,
Click to expand...
ByVal e As System.Windows.Forms.MouseEventArgs) Handles
MyBase.MouseMove
 
Back
Top