Dim Xn, Yn, R
Private Sub Form_Load()
Форма1.Комманда1.Caption = "Добавить линию"
Форма1.Комманда1.Default = True
Форма1.Комманда2.Caption = "Удалить линию"
Форма1.Комманда2.Enabled = False
Форма1.Комманда3.Caption = "Загрузить линию"
Форма1.Комманда3.Enabled = False
End Sub
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If R = 1 Then
Xn = X
Yn = Y
Комманда1.Caption = "Удерживайте клавишу"
R = 2
End If
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If R = 2 Then Комманда1.Caption = "Отпустите в конце"
End Sub
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Open App.Path & "\sav.txt" For Output As 1 ' запоминаем координаты в файл
Print #1, Xn, Yn, X, Y
Close #1
Форма1.Line (Xn, Yn)-(X, Y)
Комманда1.Caption = "линия добавлена"
Комманда1.Enabled = False
Комманда2.Enabled = True
End Sub
Private Sub Комманда1_Click()
If R = 0 Then
R = 1
Комманда1.Caption = "Нажмите на начало"
End If
End Sub
Private Sub Комманда2_Click()
Форма1.Cls
Комманда2.Enabled = False
Комманда3.Enabled = True
End Sub
Private Sub Комманда3_Click()
Dim Xk, Yk
Open App.Path & "\sav.txt" For Input As 1
Input #1, Xn, Yn, Xk, Yk
Close #1
Kill App.Path & "\sav.txt"
Форма1.Line (Xn, Yn)-(Xk, Yk)
Комманда3.Caption = "линия загружена"
End Sub