Я программирую в системе VBA»
7. Настроить шрифт надписи, для чего найти в окне Properties свойство Font и щелчком на кнопке-построителе открыть диалоговое окно «Шрифт». В диалоговом окне задать размер шрифта – 18 пунктов и начертание шрифта – жирный.
8. Установить цвет шрифта надписи. Цвет шрифта определяется свойством ForeColor. Для изменения цвета шрифта найти это свойство в окне Properties. Затем в поле справа от свойства ForeColor выбрать раскрывающую стрелку. В результате этих действий открывается цветовая палитра, аналогичная палитре для свойства BackColor. В открывшейся палитре перейти на вкладку Palette и выбирать на ней цвет шрифта (в данном проекте – синий).
На этом настройку свойств первой надписи можно считать завершённой.
9. Создать на экранной форме с помощью Панели элементов две экранные кнопки – CommandButton1иCommandButton2. Для кнопки CommandButton1 в окне Properties найти свойство Caption и ввести следующее содержимое текста: «Сведения об авторе». На кнопке CommandButton2 создать текст, состоящий из одного слова: «Выход».
Для обеих кнопок с помощью свойства Font установить размер шрифта, равный 14 пунктам. Цвет шрифта мы в данном случае не менять - он останется черным.
10. Ниже экранных кнопок поместить надпись, которая по умолчанию получает имя Label2. Эта надпись будет содержать сведения о разработчике приложения.
11. Затем для данной надписи провести настройку ее свойств. Для свойства Caption установить содержание: «Программу разработал …» (вместо многоточия ставим фамилию и инициалы студента, выполняющего данную работу). Для свойства Font указать размер шрифта, равный 16 пунктам, и жирное начертание. Используя свойство ForeColor, задать цвет шрифта надписи – красный.
Задать ещё одно свойство данной надписи. Эта надпись, согласно условиям задания, по умолчанию должна быть невидимой. Для этого в окне Properties находим свойство Visible и устанавливаем для него значение False.
На этом работа по созданию и настройке графического интерфейса пользователя в данном проекте завершена. Получившийся в результате проведённой работы пользовательский интерфейс должен соответствовать рис.1.
Рис. 1
Следующим этапом в работе над проектом является написание программного кода. В данном проекте активными объектами, которые реагируют на программные события, являются две экранные кнопки. Для них нужно написать процедуры, описывающие их реакции на различные внешние воздействия.
Для того чтобы открыть окно кода для какого-либо объекта, достаточно дважды щёлкнуть его мышью. Основным программным событием, на которое должен реагировать любой объект в системе VBA, считается одиночный щелчок левой кнопкой мыши.
12. Дважды щёлкнем мышью на экранной кнопке CommandButton1, и в результате откроется окно кода с заготовкой для процедуры, соответствующей этой кнопке. Данная заготовка выглядит следующим образом:
Private Sub CommandButton1_Click()
End Sub
Первая строка этой заготовки является заголовком процедуры. В заголовке пишутся служебное слово Sub (сокращение от Subroutine, что по-английски означает подпрограмма) и собственное имя процедуры. Собственное имя процедуры состоит из имени объекта, для которого она пишется, и название события, на которое должен реагировать этот объект. Между этими двумя частями собственного имени процедуры ставится символ подчёркивания. В данном случае имя объекта CommandButton1, а название события – Click (по-английски так называется одиночный щелчок мышью). В нижней строке заготовки стоит команда End Sub – конец процедуры. Между ними может быть размещен текст самой процедуры.
13. Описать действие, которое превращает невидимый ранее объект (нижнюю надпись Label2) в видимый. Для этого нужно изменить значение свойства Visible с False (объект не виден) на True (объект виден), или, иначе говоря, присвоить свойству Visible новое значение. Оператор (команда языка Visual Basic), который выполняет это действие, называется оператором присваивания.
Синтаксис данного оператора следующий. Сначала указывается полное имя изменяемого свойства, которое состоит из имени объекта и собственного имени свойства. Имя объекта и имя свойства отделяются друг от друга с помощью точки. Таким образом, полное имя свойства в данном случае будет: Label2.Visible. Затем указывается операция присваивания, которая обозначается в языке Visual Basic знаком равенства. После знака равенства указывается новое значение, которое присваивается этому свойству.
Таким образом, целиком оператор, делающий невидимую ранее надпись видимой, будет выглядеть следующим образом:
Label2.Visible = True
Этот оператор должен быть записан в пустой строке, находящейся между заголовком и концом процедуры. В целом же процедура, описывающая реакцию на щелчок левой кнопкой мыши, будет выглядеть таким образом:
Private Sub CommandButton1_Click()
Label2.Visible = True
End Sub
Но на этом работа с объектом CommandButton1 ещё не завершена.
Для данной экранной кнопки необходимо написать ещё одну процедуру. Вторая процедура должна при двойном щелчке на кнопке CommandButton1 делать надпись Label2 со сведениями об авторе снова невидимой.
14. Для того чтобы создать вторую процедуру, выполните следующие действия. В окне кода в правой верхней его части находится вспомогательное текстовое поле. В нем содержится список программных событий, на которые может реагировать данный объект. По умолчанию в списке указано событие Click (одиночный щелчок левой кнопкой мыши). В текстовом поле справа от названия события имеется направленная вниз треугольная стрелка. Щёлкнув по этой стрелке, можно увидеть весь список программных событий, на которые может реагировать данный объект. В этом списке щелчком мыши выбираем событие DblClick (двойной щелчок левой кнопкой мыши), а окне кода появляется шаблон для второй процедуры. Этот шаблон имеет следующий вид: