Лабораторная работа: Изучение возможностей создания MDI-приложений (multiple document interface)

Добавляем в проект пункт меню «Сохранить все» (для MDI – формы).

Для события save_Clickпишем код:

Private Sub save_Click()

Dim FNamber As Integer

Dim adress As String

Dim i As Integer

Dim k As Integer

FNamber = FreeFile()

adress = InputBox("Введите адрес файла, в котором сохранится информация", "Сохранить как", "E:\student.txt")

Open adress For Random Access Write As FNamber Len = Len(arr(i))

Do

If i = col Then: Exit Do

k = i + 1

Put #FNamber, k, arr(i)

i = i + 1

Loop

Close FNamber

End Sub

Запускаем приложение (рис.4,5)

Рис.4 Сохранение данных в файл

Рис.5 Текстовый файл с данными о студенте

Задание 3.

Запишите данные в рабочий ЛИСТ 1 приложения EXCELинтегрированного пакета MSOFFICE.

Добавляем в проект пункт меню «Экспортировать в Excel» (для MDI – формы). Подключаем к VisualBasic 6.0 библиотеку объектов Excel. Для этого открываем меню «Проект» → «Информация». Выбираем MicrosoftExcel 11.0 ObjectLibrary.

Для события Excel_Click записываем код:

Private Sub Excel_Click()

Dim appl As New Excel.Application