Drawing Line in a Picture

[V(ery) Basic]

Here's the code:

Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

Static LineStarted As Boolean, PrevX As Single, PrevY As Single

If LineStarted Then
    Picture1.Line (X, Y)-(PrevX, PrevY)
Else
    Picture1.PSet (X, Y), vbBlack  
    PrevX = X
    PrevY = Y
End If
LineStarted = Not(LineStarted)
End Sub

Here you click twice on the picture:
Once for the beginning of the line (where it draws a dot
for reference)

And a second time at the other side of the line

Hope it helps,

Bye!

Me

[Edited by V(ery) Basic on 04-22-2000 at 07:17 AM]