Как соединить точки, нарисованные на PictureBox, прямыми - VB

Формулировка задачи:

Помогите пожалуйста! Как сделать так, чтобы пользователь мышкой на PictureBox поставил несколько точек, а потом нажал на кнопку и все точки соединились прямыми?

Код к задаче: «Как соединить точки, нарисованные на PictureBox, прямыми - VB»

textual
Private Sub Command1_Click()
Dim a
Dim i As Long
a = Split(Picture1.Tag, vbLf)
For i = 0 To UBound(a) - 2
  Picture1.Line ((Split(a(i))(0)), Split(a(i))(1))-(Split(a(i + 1))(0), Split(a(i + 1))(1))
Next i
End Sub
 
Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Picture1.Tag = Picture1.Tag & X & " " & Y & vbLf
Picture1.PSet (X, Y)
End Sub

14   голосов, оценка 4.000 из 5


СОХРАНИТЬ ССЫЛКУ