Для нашей программы требуется создать две процедуры, и они связаны с событиями, возникающими в процессе выполнения программы. Первая процедура должна при нажатии на кнопку Сообщение отобразить нужное сообщение, а вторая – завершить выполнение программы, когда кто-нибудь щелкнет на кнопке ОК.
§ Щелкните дважды по кнопке OK. В появившемся при этом окне программного кода появится заготовка процедуры. Первой строкой созданного программного кода будет Private Sub CommandButton2_Click().
В любой VBA-процедуре первая строка программного кода определяет тип процедуры (в данном случае это процедура типа Sub, то есть подпрограмма) и имя процедуры. Private и Sub относятся к ключевым словам VBA, то есть к словам и символам, которые являются частью языка VBA. В данном случае VBA предлагает для процедуры имя CommandButton2_Click, которое представляет собой комбинацию имени кнопки и типа события.
Последней строкой автоматически генерируемого программного кода будет End Sub.
Такой строкой должны заканчиваться все процедуры типа Sub. Эта строка сообщает VBA о том, что выполнение процедуры завершено.
|
|
Для выполнения первой процедуры (закрытия формы) необходимо прописать программный код в этой заготовке:
Unload Me
Оператор Unload убирает указанный объект из памяти. Здесь это объект с именем Me, имеющим в VBA специальный смысл. В данном случае оно означает форму и весь ее программный код.
§ Создайте обработчик события для кнопки «Сообщение», для чего дважды щелкните по созданной кнопке и пропишите код:
Dim ima As String
ima=TextBox1.Text
Label2.Caption=ima & ", привет! Сегодня " & Format(Now, «dddddd, hh ч. mm мин.»)
Вторая процедура, которая должна отображать на экране сообщение, чуть сложнее первой. Первая из напечатанных строк
Dim ima As String
создает переменную с именем ima и определяет ее как строковую, что означает последовательность текстовых символов.
Вторая строка данной переменной присваивает строковое значение, введенное в элемент TextBox1 (текстовое окно может «читать» только текстовое значение). Третья строка выводит сообщение в расположенную на форме метку Label2, для чего устанавливает свойству Caption программно-строковое значение. Функция Format выдает дату и время.