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


         

Практика



Трус, Балбес и Бывалый построили небольшой магазинчик "Придорожный лопух, 24 часа" у деревне Неелово на трассе Москва—Санкт-Петербург. Работу в магазинчике они разбили на две смены по 12 часов. В начале очередной недели они вместе составляют график своего дежурства на неделю, в котором подсчитывается число рабочих смен каждого компаньона. Через месяц они решили автоматизировать процесс создания расписания. С этой целью они разработали приложение, процесс создания которого обсуждается ниже.

В редакторе форм создадим диалоговое окно магазин придорожный лопух, 24 часа (рис. У13.1).

Кроме этого, в любом графическом редакторе, например Paint, создадим файл ball.bmp с изображением красного шара и фоном рисунка того же цвета, что и цвет диалогового окна.

Расписание составляется очень просто:

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

    Рис. У13.1. Диалоговое окно Магазин Придорожный лопух, 24 часа

  • Для более наглядного представления надписи, соответствующие сменам с О до 12 часов, имеют белый цвет фона, а надписи, соответствующие сменам с 12 до 24 часов, — желтый цвет фона.

    Рис. У13.2. Заполнение диалогового окна

    Магазин Придорожный лопух, 24 часа

  • Ввод имени дежурного в смену производится перемещением указателя на надпись соответствующей смены и щелчком кнопкой мыши. Программа автоматически вставляет имя дежурного в надпись смены (рис. У13.2).

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

  • Подсчет числа рабочих смен каждого из компаньонов производится нажатием на кнопку ок.

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

    UserForm Initialize

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

    2. Очищает все надписи и задает свойства элементов управления Image .

      Устанавливает тип границы и цвет фона надписей.

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

    CommandButtonl Click

    Производит расчет числа рабочих смен компаньонов.

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

    CommandButton2 Click

    Закрывает диалоговое окно.

    От Labell Click до Label4_Click

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

    От Labels Click до Label18 Click

    Вводит имя кандидата в дежурные в надпись соответствующей смены.

    <

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