7.4. Составление программного кода

Переход к редактору программного кода для открытой формы осуществляется по клавише F7, возврат в окно дизайнера форм – Shift + F7. В окне редактирования программного кода (рис. 15) слева представлен список объектов, справа – список возможных событий для выбранного объекта. Чтобы написать код для обработки конкретного события, например, щелчка мыши на элементе управления, нужно выбрать объект и событие для него (щелчок мыши Click), а затем ввести текст соответствующей процедуры. Например, для реализации командной кнопки Выход по щелчку левой кнопки мыши в процедуру обработки события Click можно включить команду End (см. рис. 15).

Все начальные установки для инициализации формы обычно записывают в процедуре обработки события Initialize.

Рис. 15. Вид окна редактора программного кода

Если какие-то события (например, двойной щелчок мыши) для объекта в программе не реализованы, соответствующие действия пользователя будут проигнорированы.

Взаимодействие с элементами управления, в том числе ввод и вывод данных с использованием формы, выполняется следующим образом.

Для элемента управления Label (надпись):

Вывод заданного текста в надпись:

Имя_надписи.Caption = "Текст"

Пример: Фамилия.Caption = "Иванов С.Н.".

Очистка надписи:

Имя_надписи.Caption = "" '(пара кавычек, внутри ничего нет)

Вывод значения переменной в надпись:

Имя_надписи.Caption = Имя_переменной

Примеры: Значение_x.Caption = x

Значение_x.Caption = Format(x, "#0.00") 'Вывод в заданном формате с двумя десятичными знаками

Для элемента управления TextBox (текстовое поле):

Присвоение переменной значения, введенного в текстовое поле, т. е. извлечение информации из окна ввода:

Имя_переменной = Имя_TextBox.Text

Пример для строковой переменной: fam = Фамилия.Text.

Пример для числовой переменной: z = Val(Число_z.Text).

Вывод в текстовое поле значения переменной, в том числе при установке значения переменной по умолчанию:

Имя_TextBox.Text = Имя_переменной

Примеры: Число_z.Text = z, Число_z.Text = Format(z, "#0.00").

Очистка текстового поля:

Имя_TextBox.Text = "" '(пара кавычек, внутри ничего нет)

Рассмотренные свойства Caption для надписи и Text для текстового поля являются основными свойствами этих элементов управления и предполагаются по умолчанию. Поэтому при записи команд их можно опускать, например:

Фамилия.Caption = "Иванов С.Н." равнозначно Фамилия = "Иванов С.Н.",

z = Val(Число_z.Text) равнозначно z = Val(Число_z).

Для помещения фокуса клавиатуры, т. е. установки курсора на требуемый объект, применяется инструкция Имя_объекта.SetFocus.

7.5. Создание пользовательского приложения с использованием формы

В качестве примера разработки приложения с использованием формы рассмотрим процесс создания простой игры с названием «Угадай число». Суть игры: компьютер «загадывает» целое случайное число в определенном диапазоне. Играющий должен угадать это число. Программа должна информировать о том, угадано число или нет, а также о количестве попыток. На первом этапе разработки приложения создадим форму с необходимыми элементами управления, на втором – программный код.