Рисование точек и автоматическое соединение их линиями - VB

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

Помогите пожалуйста осуществить программу. Необходимо чтобы при нажатии на поле появлялась точка, при следующем клике появлялась еще одна и соединялась линией с предыдущей и т.д.

Решение задачи: «Рисование точек и автоматическое соединение их линиями»

textual
                            Листинг программы 
                        

                            Private flg As Boolean
 
Private Xm As Single
Private Ym As Single
 
 
Private Sub Form_Click()
 
        If Not flg Then
           Me.PSet (Xm, Ym), QBColor(12)
           flg = True
        Else
           Me.Line -(Xm, Ym), QBColor(12)
        End If
 
End Sub
 
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
 
        Xm = X
        Ym = Y
 
End Sub
                        

Оцени полезность:

13 голосов , оценка 4.154 из 5

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