Самоучитель VBA



         

Практика



Для заполнения базы данных на рабочем листе с помощью редактора пользовательских форм создадим диалоговое окно Регистрация туристов фирмы "Эх, прокачу!" (рис. У7.1).

Рис. У7.1. Диалоговое окно Регистрация туристов фирмы "Эх, прокачу!"

Рис. У7.2. База данных о туристах на рабочем листе

Рис. У7.3. Пояснительное текстовое поле, появляющееся при выборе переключателя О программе

При инициализации диалогового окна программа проверяет, есть ли заголовки у полей создаваемой базы данных о регистрации туристов. Если этих заголовков нет, то программа автоматически создает их, снабжая примечаниями, имеющими пояснительный текст о содержании полей (рис. У7.2). Выбор переключателя о программе приведет к отображению на экране текстового поля с пояснениями к данной программе. Снятие этого флажка удаляет данное поле (рис. У7.3). Обратите внимание, что у окна приложения пользовательское имя Регистрация. База данных туристов.

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

UserForm Initialize

  1. Активизирует диалоговое окно.

  2. Назначает клавише <Esc> функцию кнопки Отмена, а Клавише <Enter> - Вычислить.

  3. Назначает кнопкам вычислить, отмена и переключателю о программе всплывающие подсказки.

  4. Закрепляет первую строку так, чтобы она всегда отображалась на экране.

  5. Создает заголовки полей базы данных, если они еще не были созданы.

  6. Устанавливает начальное значение переключателя 0 программе.

  7. Заполняет раскрывающийся список.

    Устанавливает текст заголовка окна приложения.

Нажатие кнопки вычислить запускает на выполнение процедуру

CommandButton1_Click

  1. Определяет номер первой пустой строки в базе данных о регистрации туристов, куда будет введена новая запись.

  2. Считывает данные из диалогового окна.

    Вводит их в первую пустую строку.

Нажатие кнопки Отмена запускает на выполнение процедуру

CommandButton2_Click

Закрывает диалоговое окно. Устанавливает заголовок приложения, используемый по умолчанию, т. е. удаляет пользовательский заголовок приложения, созданный при активизации формы.

SpinButtonl_Change

Вводит значение в поле продолжительность тура.

<


Содержание  Назад  Вперед