Проект 8.
Построение списка с использованием пользовательского типа данных и функции Print. Проекту присвоено имя Pro8.
При разработке проекта создаются следующие формы:
1. Загрузочная форма Form800, которая отличается от формы Form100 проекта Pro1 только значением Caption = Построение списка с использованием пользовательского типа данных и функции Print (для метки Label801);
2. frmSPISOK801 с Caption = Список группы; содержит ЭУ Command801 c Caption = Обзор и Command802 c Caption = Очистить.
Форма frmSPISOK801 имеет следующий вид:
Проект имеет следующий состав процедур:
1) модуль процедур общего назначения под именем Mod1
Attribute VB_Name = "Mod1"
Type Student
FIO As String * 50
NZ As Long
End Type
Public Students(30) As Student 'Фамилия имя отчество
Public NG As Integer 'Номер группы
Public KS As Integer 'Количество студентов
Sub Main()
Dim i As Integer
NG = InputBox("Введите № группы")
KS = InputBox("Укажите количество студентов")
For i = 1 To KS
Students(i).FIO = InputBox("Введите Ф.И.О." & _
Str(i) & "-го студента")
Students(i).NZ = InputBox("Введите номер зачетки " & _
Str(i) & "-го студента")
Next i
frmSPISOK801.Form_Load
frmSPISOK801.Show
End Sub
2) процедуры обработки событий форм
' Процедуры обработки событий формы Form800
Private Sub Command801_Click()
Mod1.Main
End Sub
Private Sub Command802_Click()
End
End Sub
Private Sub Form_Load()
End Sub
' Процедуры обработки событий формы frmSPISOK801
Private Sub Command801_Click()
Print Spc(25); "Список группы "; Mod1.NG
Print Spc(15); "Ф.И.О"; Tab(51); "№ ЗАЧЕТКИ"
For i = 1 To Mod1.KS
Print Students(i).FIO; Tab(51); Students(i).NZ
Next i
End Sub
Private Sub Command802_Click()
Cls
End Sub
Public Sub Form_Load()
End Sub
Проект 11.
Построение многографного документа на основе электронной таблицы при использовании OLE-технологии. Проекту присвоено имя Pro11.
При разработке проекта создаются следующие формы:
1. Загрузочная форма Form1100, которая отличается от формы Form100 проекта Pro1 только значением Caption = Построение многографного документа на основе электронной таблицы при использовании OLE-технологии (для метки);
2. Form1101 с Caption =Работа с электронной таблицей; содержит следующие ЭУ:
а) Text1 c Text = Опись товаров склада;
б) лист Excel OLE1 со свойствами AutoActivate = 3 – Automatic, Class = Excel.Sheet.8, UpdateOptions = 0 – Automatic.
Для вставки листа Excel в форму Form1101 выполнить следующие действия: 1) открыть форму, 2) щелкнуть на панели ToolBox по OLE, 3) вставить лист Exsel из списка объектов в форму, 4) щелкнуть по листу правой кнопкой мыши и из списка выбрать команду “изменить”, 5) установить требуемую ширину столбцов и дать им названия.
Форма Form1101 имеет следующий вид:
Проект имеет следующий состав процедур:
1) модуль процедур общего назначения под именем Mod1
Attribute VB_Name = "Mod1"
'СОЗДАНИЕ МНОГОГРАФНОГО ДОКУМЕНТА НА ОСНОВЕ
'ЭЛЕКТРОННОЙ ТАБЛИЦЫ И OLE-ТЕХНОЛОГИИ
Option Explicit
Sub Main()
MsgBox"После открытия листа Excel Вы можете работать в обычном режиме электронной таблицы"
Load Form1101
Form1101.OLE1.DoVerb 'Открытие объекта
Form1101.Show
End Sub
2) процедуры обработки событий форм
' Процедуры обработки событий формы Form1100
Private Sub Command1101_Click()
Mod1.Main
End Sub
Private Sub Command1102_Click()
End
End Sub