Построение ломанной кривой через процедуры MouseDown и MouseMove - VB

Узнай цену своей работы

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

Доброго времени суток. Если кто может помогите пожалуйста в решении таких 2-ух задач. "Необходимо построить ломанную кривую, используя процедуры MouseDown и MouseMove. У меня возникает ещё такая проблема, если на форме уже имеются какие-то координаты или линии, то при повторном проведении поверх них, будь то координаты линии или сами линии они затираются т.е. исчезают. Помогите кто может, заранее спасибо)

Решение задачи: «Построение ломанной кривой через процедуры MouseDown и MouseMove»

textual
Листинг программы
Dim x1, y1
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
x1 = X: y1 = Y
End Sub
 
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
If Line1.Visible = False Then Line1.Visible = True
Line1.x1 = x1: Line1.y1 = y1
Line1.X2 = X: Line1.Y2 = Y
End If
End Sub
 
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Line1.Visible = False
Me.Line (x1, y1)-(X, Y)
End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

13   голосов , оценка 4 из 5
Похожие ответы