End Sub. Первая строка процедуры должна обязательно содержать зарезервированное слово Sub и имя процедуры, которое состоит из наименования объекта Command1 и

End Sub

End Sub

Первая строка процедуры должна обязательно содержать зарезервированное слово Sub и имя процедуры, которое состоит из наименования объекта Command1 и наименования события Click, разделённых знаком подчёркивания. Private – обозначает то, что данная процедура доступна только для модуля Form1. Последняя строка процедуры содержит зарезервированные слова End Sub. Обратите внимание, что курсор расположен между первой и последней строками процедуры.

Нажмите клавишу Tab и наберите на клавиатуре выражение следующего содержания:

Text1.Visible = True

В этом выражении использован оператор присвоения – знак равно. Свойству Visible объекта Text1 присваивается значение True – истина. При этом объект следует отделить от его свойства точкой. Такая запись позволяет обеспечить видимость текстового поля.

Общий вид процедуры обработки события нажатия на клавишу «Восстановить»:

Private Sub Command1_Click()

Text1.Visible = True

Самостоятельно создайте процедуру обработки события нажатия на клавишу «Удалить». Программный код этой процедуры должен выглядеть следующим образом:

Private Sub Command2_Click()

Text1.Visible = False

Проверьте результаты программирования в режиме интерпретации.

Приведённые выше примеры демонстрируют технологию создания процедур обработки событий. По своей структуре функции схожи с процедурами. Однако имеют ряд существенных отличий:

─ функции всегда возвращают значения, процедуры никогда;

─ первая строка функции начинается с зарезервированного слова Function, за которым следует её наименование;

─ последняя строка функции завершается фразой End Function;

─ функция не связана с обработкой событий и может быть вызвана из процедуры.

В арсенале Visual Basic содержится много стандартных функций, использование которых облегчает работу программиста, так как для вызова функции достаточно указать её имя. Рассмотрим на конкретных примерах использование функций.

Используя кнопку Label (Метка), расположенную на панели элементов, отобразите в правом верхнем углу формы (над текстовым полем) прямоугольник. Этот элемент управления будет использоваться для отображения системной даты. Установите для его свойства Caption значение пробел, а для свойства BorderStyle значение 1- Fixed Single как указано на рис. 26.

Рис. 26. Свойства элемента управления.

Откройте Окно формы, если оно закрыто. Установите указатель на кнопку «Восстановить». Двойным щелчком по кнопке мыши откройте Редактор кода. Введите в тело процедуры обработки текущего события выражение вызова стандартной функции Date: Label1.Caption = Date. Функция Date всегда возвращает системную дату, которая присваивается свойству Caption объекта Label1. Теперь процедура будет выглядеть следующим образом:

Private Sub Command1_Click()

Text1.Visible = True

Label1.Caption = Date

Дата добавления: 2014-12-27