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

12.11.2012, 15:23. **Показов** 1531. **Ответов** 2

Author24 — интернет-сервис помощи студентам

Помогите пожалуйста осуществить программу.

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

@Catstail · 12.11.2012, 16:44

Вот это пойдет?

Visual Basic

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.11.2012, 20:53

Да! Огромное спасибо!

Diabladek
		1
	Рисование точек и автоматическое соединение их линиями 12.11.2012, 15:23. Показов 1531. Ответов 2 Метки нет (Все метки) Помогите пожалуйста осуществить программу. Необходимо чтобы при нажатии на поле появлялась точка, при следующем клике появлялась еще одна и соединялась линией с предыдущей и т.д.

Diabladek
	13.11.2012, 20:53	3
	Да! Огромное спасибо!