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

         

Цель урока



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

Конструируя данное приложение, вы узнаете на практике, что такое:

Передача информации между элементами управления при обработке события Click

Управление видимостью рисунков

Управление цветом элементов управления



Практика



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

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

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

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

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

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



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

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

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

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

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

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

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

UserForm Initialize

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

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

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

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

CommandButtonl Click

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

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

CommandButton2 Click

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

От Labell Click до Label4_Click

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

От Labels Click до Label18 Click

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

<
' Переменные уровня модуля

Dim Имя As String

Dim Надписи(1 То 2, 1 То 7) As Object

Private Sub CommandButtonl_Click()

Dim Смены_1, Смены_2, Смены_3 As Integer

Смены_1 = 0

Смены_2 = 0

Смены_3 = 0

For i = 1 То 2

For j = 1 То 7

If Надписи(i, j).Caption = Label1.Caption Then Смены_1 = Смены_1 + 1

If Надписи(i, j).Caption = Label2.Caption Then Смены_2 = Смены_2 + 1

If Надписи(i, j).Caption = Label3.Caption Then Смены_3 = Смены_3 + 1

Next j

Next i

TextBoxl.Text = CStr(Смены_1)

TextBox2.Text = CStr(Смены_2)

TextBoxS.Text = CStr(Смены_3)

End Sub

'

Private Sub CommandButton2_Click()

UserForml.Hide End Sub

' Процедуры считывания имени дежурного из группы Компаньоны

'

Private Sub Labell_Click ()

Имя = Label1.Caption Действие True, False, False

End Sub

'

Private Sub Label2_Click() Имя = Label2.Caption Действие False, True, False

End Sub

'

Private Sub Label3_Click()

Имя = Labels.Caption

Действие False, False, True

End Sub

'

Private Sub Label4_Click()

Имя = Label4.Caption Действие False, False, False

End Sub

'

' Процедуры ввода имени дежурного

'

Private Sub Label5_Click() Labels.Caption = Имя

End Sub

'

Private Sub Label6_Click0 Label6.Caption = Имя

End Sub

Private Sub Label7_Click() Label7.Caption = Имя

End Sub

Private Sub Label8_Click() Labels.Caption = Имя

End Sub

Private Sub Label9_Click() Label9.Caption = Имя

End Sub

Private Sub Labell0_Click() Labell0.Caption = Имя

End Sub

Private Sub Labelll_Click() Labelll.Caption = Имя

End Sub '

Private Sub Labell2_Click() Labell2.Caption = Имя

End Sub '

Private Sub Labell3__Click ()

Labell3.Caption = Имя

End Sub

'

Private Sub Labell4_Click() Labell4.Caption = Имя

End Sub

'

Private Sub Labell5_Click() Label15.Caption = Имя

End Sub

'

Private Sub Labell6_Click() Labell6.Caption = Имя

End Sub

'

Private Sub Labell7_Click() Labell7 .Caption = Имя

End Sub

Private Sub Labell8_Click() LabellS.Caption = Имя

End Sub



'

Private Sub UserForm_Initialize()

'

' Инициализация диалогового окна

Dim i, j As Integer

Set Надписи(1, 1) = Label5

Set Надписи(2, 1} = Label6

Set Надписи(1, 2) = Label7

Set Надписи(2, 2) = Label8

Set Надписи(1, 3) = Label9

Set Надписи(2, 3) = Labell0

Set Надписи(1, 4) = Label11

Set Надписи(2, 4) = Labell2

Set Надписи(1, 5) = Label13

Set Надписи(2, 5) = Label14

Set Надписи(1, 6) = Labell5

Set Надписи(2, 6) = Labell6

Set Надписи(1, 7) = Labell7

Set Надписи(2, 7) = Label18

'

With Label4

.Caption = ""

.BorderStyle = fmBorderStyleSingle

End With

With Imagel

.Picture = LoadPicture("ball.bmp")

.BorderStyle = fmBorderStyleNone

.PictureSizeMode = fmPictureSizeModeZoom

.PictureAlignment = fmPictureAlignmentTopLeft

.Visible = False

End With

'

With Image2

.Picture = LoadPicture("ball.bmp")

.BorderStyle = fmBorderStyleNone

.PictureSizeMode = fmPictureSizeModeZoom

.PictureAlignment = fmPictureAlignmentTopLeft

.Visible = False

End With

'

With Image3

.Picture = LoadPicture("ball.bmp")

.BorderStyle = fmBorderStyleNone

.PictureSizeMode = fmPictureSizeModeZoom

.PictureAlignment = fmPictureAlignmentTopLeft

.Visible = False

End With

'

For i = 1 To 2 For j = 1 To 7

With Надписи(i, j)

.Caption = ""

.BorderStyle = fmBorderStyleNone Select Case i Case 1

.BackColor = vbWhite Case 2

.BackColor = vbYellow End Select

End With

Next j

Next i

'

End Sub

Sub Действие(Flagl, Flag2, Flag3 As Boolean)

'

' Процедура, устанавливающая отображение или скрытие рисунков

'

Imagel.Visible = Flagl

Image2.Visible = Flag2

Image3.Visible = Flag3

End Sub




Самостоятельное задание



Разработать приложение, которое позволит составить расписание рабочих смен Труса, Балбеса и Бывалого в магазинчике "Придорожный лопух, 24 часа" на текущий месяц. При создании приложения надо помнить, что разные месяцы имеют разное число дней и программа при инициализации диалогового окна должна отображать только то количество надписей, отводимых под смены, сколько их имеется в текущем месяце.



СОСТАВЛЕНИЕ РАСПИСАНИЯ


УРОК 13. ТЕМА: СОСТАВЛЕНИЕ РАСПИСАНИЯ

ЦЕЛЬ УРОКА

ПРАКТИКА

САМОСТОЯТЕЛЬНОЕ ЗАДАНИЕ

Урок 13.

Тема: Составление расписания