Задание подпрограмм обработки событий в среде VBA

Все действия программа, разрабатываемая в среде VBA, выполняет в ответ на различные события. События могут быть как внешними, например нажатие кнопки пользователем, так и внутренними, возникающими при выполнении программы.

Разработка нашей простейшей программы будет завершена, если мы зададим подпрограмму – процедуру обработки нажатия командной кнопки, по которой будет вычислена сумма двух чисел.

Исходная информация для программы – слагаемые – вводится в поля, образованные элементами интерфейса TextBox. Доступ к содержимому осуществляется при помощи обращения к свойству Text, т.е., чтобы использовать число, введенное в поле ввода объекта Text1, следует написать Text1.Text. Заметим, что по умолчанию содержимое этого поля имеет тип “строка”, и для использования его как числа следует произвести преобразование при помощи функции VAL().

Подпрограмма обработки записывается в так называемом окне кода. Для открытия этого окна и записи подпрограммы дважды нажмите кнопку мыши на объекте (произведите “DubleCick”).

В окне кода автоматически появятся первая и последняя строки подпрограммы обработки – оператор заголовка.

Private Sub Command1_Click()

End Sub

Подпрограмма обработки нажатия кнопки мыши совершает вычисление суммы чисел из полей ввода Text1 и Text2, помещает значение в поле Label (переустанавливая значение свойства Captoin), затем изменяет заголовок формы. Приведенные ниже две строки, которые и составляют собственно подпрограмму обработки, размещаются между приведенными выше операторами Sub и End Sub.

Label1.Caption = Val(Text1.Text) + Val(Text2.Text)

Form1.Caption = "Работа выполнена"

Следует принять за правило не записывать самому (вручную) операторы начала и конца подпрограмм обработки событий. Это за нас быстрее и, что более важно, абсолютно правильно сделает система VBA.

Из рассмотренного примера следует, что свойство Caption можно задавать как при разработке программы, так и изменять его динамически во время выполнения программы. Заметим, что это относиться не ко всем свойствам объектов.

 

Запуск программы на выполнение

Для выполнения программы следует нажать кнопку Start (треугольник острием направо)на панели инструментов. Для прекращения работы программы и возвращения в среду разработки следует нажать кнопку End (небольшой квадрат) на панели инструментов или стандартную кнопку закрытия окна на главной форме выполняемой программы.