П4. Примеры проектов vb Проект 1.
Рассмотрим создание проекта, иллюстрирующего использование стандартных окон диалога для ввода и вывода данных. Создание проекта осуществляется в следующей последовательности:
1) войти в VB, выбрать режим New / Standard Exe; откроется окно редактора с заготовкой формы;
2) в окне свойств установить значения следующих свойств формы:
Name = Form100, Appearance = 1 – 3D (светлосерый фон поля формы), BackColor = ButtonFace (не выделение тоном кнопок и полей относительно поля формы), BorderStyle = 2 – Sizable (рамка для поля формы), Caption = Начало-Окончание, DrawMode = 13 –CopyPen, DrawWidth = 0 – Solid, Enabled – True, FillStyle = 1 – TransParent, Visible = True;
вставить в форму следующие элементы управления:
а) Label со следующими значениями свойств (установить в окне свойств): Name = Label101, BackColor = ButtonFace, BackStyle = 1 – Opague, Caption = Построение простого списка с использованием стандартного диалога, DataFormat = General, Visible = True;
б) две командные кнопки со следующими свойствами: Name = cmdCommand101, Caption = Начало и N ame = cmdCommand102, Caption = Окончание – соответственно для 1-й и 2-й кнопки (значения остальных свойств аналогичны свойствам других ЭУ);
4) в главном меню выбрать пункт Project, а в нем – Project Properties; в открывшемся диалоговом окне присвоить проекту имя Pro1;
5) открыть вкладку General (Общее) и выбрать Form100 из списка Startup Object, нажать ОК;
6) дважды щелкнуть по Form100, в открывшемся окне редактора набрать следующий текст:
' Процедуры обработки событий формы Form100
Private Sub Command101_Click()
Mod1.Main
End Sub
Private Sub Command102_Click()
End
End Sub
7) выполнить предварительное сохранение проекта и загрузочной формы под соответствующими именами, например Pro1.vbp и Form100.frm;
8) в главном меню выбрать пункт Project, а в нем – AddForm; установить для новой формы значения следующих свойств: Name = frmSPISOK101, Appearance = 1 – 3D, BackColor = ButtonFace, BorderStyle = 2 – Sizable, Caption = Простой список, FillStyle = 1 – TransParent, Visible = False;
вставить в форму следующие ЭУ:
а) текстовое поле со следующими значениями свойств (установить в окне свойств): Name = txtZAGOLOVOK, BackColor = WindowBackground (белый фон текстового поля), BorderStyle = 1 – FixedSingle (рамка), DataFormat = General, Enabled = True, MultiLine = False (одна строка), Text = (пусто);
б) простой список со следующими свойствами: Name = lstGrup, BackColor = WindowBackground, Enabled = True, ItemData = (пусто), List = (пусто), Sorted = False, Style = 0 – Standart, Visible = True;
в) метку со свойствами: Name = Label1, BackColor = ButtonFace, BackStyle = 1 – Opague, BorderStyle = 0 – None, Caption = Для перехода в другое поле Tab, Visible = True;
9) дважды щелкнуть по frmSPISOK101, в открывшемся окне редактора набрать следующий текст:
' Процедуры обработки событий формы frmSPISOK101
Public Sub Form_Load()
txtZAGOLOVOK_Change
End Sub
Public Sub txtZAGOLOVOK_Change()
txtZAGOLOVOK.Text = "Список группы " & Str(Mod1.NG)
End Sub
cохранить форму под именем frmSPISOK101.frm;
10)в главном меню выбрать пункт View, а в нем – Code;
11) в открывшемся окне набрать следующий текст:
' СОЗДАНИЕ ПРОСТОГО СПИСКА С ИСПОЛЬЗОВАНИЕМ СТАНДАРТНОГО ДИАЛОГА
Public NG As Integer 'Номер группы
Public KS As Integer 'Количество студентов
Sub Main()
Dim FIO(50) As String * 100 'Фамилия имя отчество
Dim i As Integer
NG = InputBox("Введите № группы")
KS = InputBox("Укажите количество студентов")
For i = 1 To KS
FIO(i) = InputBox("Введите Ф.И.О." & _
Str(i) & "-го студента")
Next i
frmSPISOK101.Form_Load
For i = 1 To KS
frmSPISOK101.lstGrup.AddItem FIO(i)
Next i
frmSPISOK101.Show
End Sub
12) в окне свойст указать имя модуля Mod1 и сохранить его, например под именем P1mod1.bas; выполнить окончательное сохранение проекта.
При запуске проекта на выполнение сначала появится загрузочная форма, имеющая следующий вид:
После щелчка на кнопке Начало будут последовательно открываться окна стандартного диалога, в которых сначала указывается общее количество элементов списка (количество студентов), а затем фамилия и инициалы каждого студента. После ввода данных по всем студентам появится форма, содержащая построенный список и имеющая следующий вид:
После закрытия данной формы остается загрузочная форма, при щелке на кнопке Окончание которой завершается выполнение проекта.