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

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

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

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

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 из 5

Похожие ответы