Polyline Help.

I am using Polyline to draw a line to the screen. What i want to do is plot 2 points, for example, the user would click at one point on the screen, then at another spot on the screen. i would like to draw from the first point to the second point, but instead of stopping at the second point, continue drawing a line to the end of the screen along the same direction as the 2 points that were plotted


drawing a straight horizontal line or vertical line would be easy to continue on because you just increase the size of the x or y respectively, but what about when its diagonal?

I hope this was clear...

come on i know somebody knows this.

Go onto my website, and grab the sounds corny zip, and look at the maze editor. Then let me know what you need.

Hi AAG
here is some code using a picture box and Line method. Am sure u can adapt for ur conditions
Regards
Stuart

VB Code:

Dim fbooDrawLine As Boolean
Dim lsngPoint1X As Single
Dim lsngPoint1Y As Single
Dim lsngPoint2X As Single
Dim lsngPoint2Y As Single
 
Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If fbooDrawLine Then
        lsngPoint2X = X
        lsngPoint2Y = Y
        Picture1.Line (lsngPoint1X, lsngPoint1Y)-(lsngPoint2X, lsngPoint2Y)
        DrawExtendedLine
        fbooDrawLine = False
    Else
        lsngPoint1X = X
        lsngPoint1Y = Y
        fbooDrawLine = True
    End If
End Sub
 
Private Sub DrawExtendedLine()
    Dim mAngle As Single
    Dim bStart As Single
    Dim lsngNewX As Single
    Dim lsngNewY As Single
 
    mAngle = (lsngPoint2Y - lsngPoint1Y) / (lsngPoint2X - lsngPoint1X)
    bStart = lsngPoint2Y
    lsngNewX = Picture1.ScaleWidth
    lsngNewY = mAngle * (lsngNewX - lsngPoint2X) + bStart
    Picture1.Line -(lsngNewX, lsngNewY)
End Sub