II. Практическая часть
1.Модули и функции
На простом примере несложно показать, как взаимодействуют модули, макросы и программы на VB. Отдельные подпрограммы следует хранить в модулях. Стандартный модуль создается исключительно по желанию разработчика. Программист сам решает, какие программы в нем разместить. Стандартный модуль может служить двум целям: созданию подпрограмм и функций общего доступа и возможности копирования набора подпрограмм как единого блока. Использование модулей показано на нескольких примерах. Допустим, необходимо создать программу и обеспечить к ней постоянный доступ пользователя. Для этого надо выполнить следующие действия:
Выбрать вкладку «Модули» и нажать кнопку «Создать» (Рис.1.1).
Рис.1.1 Модули
Ввести в окно модуля текст программы.
Эта программа позволяет выводить на экран каждую минуту окно с сообщением. Она будет работать до тех пор, пока пользователь не нажмет в модальном окне кнопку Cancel.
Нажать кнопку «Save» и сохраните модуль (я назвал его Таймер).
Перейти на вкладку «Макросы» и нажать кнопку «Создать».
Выбрать из списка в новом макросе макрокоманду «ЗапускПрограммы» (Рис. 1.2) , а в качестве ее аргумента задайте имя функции Taimer1() Для этого можно использовать построитель выражений (Рис. 1.3).
Рис
1.2 Запуск макроса
Рис 1.3 Построитель выражений
Закрыть окно макроса, сохранив макрос (я также назвал его Таймер).
На вкладке макросов есть кнопка Запуск. Теперь, если запустить макрос Таймер, будет выполнена функция Taimer1().
Рассмотрим текст программы. Инструкция Dim обозначает создание новых переменных. Переменные и их тип рекомендуется описывать в начале программы. У нас переменных две:
otvet - номер кнопки, нажатой в окне диалога;
MyTime - число секунд.
Системная переменная Timer хранит число секунд, прошедших с начала текущих суток. Цикл While условие ... Wend довольно часто используется в VB. Он работает, пока выполняется условие. Оператор If условие Then ... End lf позволяет выводить окно диалога, только когда разница между текущим временем и временем, зафиксированным в переменной MyTime, превысит 60 секунд. Для создания окна диалога используется функция MsgBox() с тремя аргументами: текстом сообщения в окне, системной константой для выбора вида кнопок и текстом для заголовка окна. Константа vbOKCancel указывает на то, что в окне должны быть две кнопки: ОК и Cancel. Такая конструкция очень удобна, когда надо организовать диалог с пользователем и позволить ему что-нибудь отменить. Кнопки в окне диалога нумеруются, начиная с единицы, и, когда пользователь нажимает кнопку, функция возвращает ее порядковый номер. У таких программ есть свои особенности. Во-первых, во время их выполнения для пользователя включается режим ожидания - указатель мыши приобретает вид песочных часов и доступ к Access блокируется. Во-вторых, такая программа должна быть оформлена именно как функция (Function), а не как подпрограмма (Sub). При этом функция не обязана возвращать какое-либо значение. Подвожу итоги. Программу, написанную на VB, можно запустить несколькими способами. Во-первых, разрешается использовать ее как обработчик событий. Когда событие происходит, программа выполняется. Этот способ обсуждался на страницах книги. Во-вторых, программу можно запустить через макрос, а точнее, с помощью макрокоманды ЗапускПрограммы. В качестве ее аргумента используется имя функции Visual Basic. А сам макрос запускается кнопкой на вкладке Макросы или командой из главного меню Сервис => Макрос => Выполнить макрос. В-третьих, программы можно запускать в окне редактора Visual Basic.