Results 1 to 6 of 6

Thread: How to draw a thick arrow in picturebox in vb.net

Threaded View

  1. #1

    Thread Starter
    Addicted Member
    Join Date
    Jun 2011
    Posts
    137

    How to draw a thick arrow in picturebox in vb.net

    Hello I have here a problem with drawing on the picture.
    Draw a picture on well but it's drawing a thin line and I need a thicker thickness of at least 4.5.

    But I'd like to draw arrow and not line.

    Need a simple arrows with no gradient and a much smaller and thinner.
    Approximately 4.5 thickness used on the image.

    I need normal arrow like in the picture i want to draw arrow anywhere on the image in the picturebox inside like in the paint.

    Or make a bold line of the same code which I gave.
    I'new for graphics so do not ask to me how ?

    Here's an example of what I need.





    how do i do that ?


    So far, I have only this code.
    Here is the code:

    Code:
      Private Sub PictureBox1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseMove
            If _Previous IsNot Nothing Then
                If PictureBox1.Image Is Nothing Then
                    Dim bmp As New Bitmap(PictureBox1.Width, PictureBox1.Height)
                    Using g As Graphics = Graphics.FromImage(bmp)
                        g.Clear(Color.White)
                    End Using
                    PictureBox1.Image = bmp
                End If
                Using g As Graphics = Graphics.FromImage(PictureBox1.Image)
                    g.DrawLine(Pens.Red, _Previous.Value, e.Location)
                End Using
                PictureBox1.Invalidate()
                _Previous = e.Location
            End If
        End Sub
     
        Private _Previous As System.Nullable(Of Point) = Nothing
        Private Sub pictureBox1_MouseDown(ByVal sender As Object, ByVal e As MouseEventArgs) Handles PictureBox1.MouseDown
            _Previous = e.Location
            PictureBox1_MouseMove(sender, e)
        End Sub
    
    Private Sub PictureBox1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseUp
            _Previous = Nothing
        End Sub
    Any help would benefit me.
    Last edited by polas; Oct 14th, 2013 at 11:56 AM.

Tags for this Thread

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  



Click Here to Expand Forum to Full Width