Построение ломанной кривой через процедуры 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д