How do i Draw line from one point to another

Question

1.00/5 (1 vote)

See more:

VB

Sub Drawline(Routeindex As Integer, cityindex As Integer)
 NumRoutes = NumRoutes + 1

Load Route(Routeindex)
With Route(Routeindex)
        .X1 = DB(cityindex) + NumRoutes
        .Y1 = DB(cityindex)  + NumRoutes
        .X2 = DB - NumRoutes
        .Y2 = DB - NumRoutes
        .Visible = True

End With


End Sub

Posted 21-Jun-13 18:10pm

SDDMAJORWORK

Add a Solution

Comments

Ron Beyer 22-Jun-13 0:14am

Please clarify your question. What are you drawing on? What platform are you using (WinForms, WPF, ASP, WebForms, etc). What are the X and Y values (pixels, miles, kilometers)?

1 solution

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

bhuvamehul · Answer 1 · 2013-07-08T00:03:00

If you are using vb.net and you want to draw line in picturebox control using mouse then

VB

Dim startpoint As Point
   Dim endpoint As Point
   Dim flag As Boolean = False
   Private Sub PictureBox1_MouseDown(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseDown
       startpoint = New Point(e.X, e.Y)
       flag = True

   End Sub


   Private Sub PictureBox1_MouseMove(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseMove
       If flag Then
           Dim g As Graphics = PictureBox1.CreateGraphics()
           endpoint = New Point(e.X, e.Y)
           g.Clear(Color.White)
           g.DrawLine(Pens.Black, startpoint, endpoint)
       End If
   End Sub

   Private Sub PictureBox1_MouseUp(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseUp
       flag = False
   End Sub

If you want to draw line on form window then use

VB

me

instead of

VB

picturebox1

and use form events instead of picturebox mouse events.