Пункт меню Файл/Загрузить

Текст обработчика событий для пункта меню Файл/Загрузить:

Private Sub Load_Click()

'Чтение из файла

Dim n As Integer, i As Integer

'Очистка формы и PictureBox

'от возможной предыдущей информации

Cls

Picture1.Cls

'Открываем файл для чтения

Open "C:\Stud\5101\Menu_graf\data.txt" For Input As #1

'Считываем из файла количество точек

Input #1, n

Print "n="; n

'Выделяем память под массивы

ReDim x(0 To n)

ReDim y(0 To n)

'Считываем значения координат

'и одновременно для контроля выводим их на форму

For i = 0 To n

Input #1, x(i), y(i)

Print x(i), y(i)

Next i

'Закрытие файла

Close #1

'Делаем доступным пункт меню "Построение графика"

Grafic.Enabled = True

End Sub