Создание проекта Фотоальбом на языке VBA
Создание проекта «Фотоальбом» на VBA
Цель: закрепление пройденного материала по созданию пользовательской формы; вставки надписей, полей, кнопок и картинки в пользовательскую форму; программирование кнопок пользовательской формы; проверка работы пользовательской формы.
Задание 1 .
Создайте и оформите проект, показывающий по нажатию одной кнопки фото города с надписью (например, «Париж – город- мечта»)». Задание предполагает создание фотоальбома из 4 фотографий.
Вид приложения представлен на рисунке 1.
Рисунок SEQ Рисунок \* ARABIC 1
Ход работы:
Создание интерфейса:
Запустите VBA, начните новый проект и разместите на форме четыре элемента управления Image, пять кнопок (CommandButton), одну надпись(Label), текстовое поле (TextBox) .
Рисунок 2
Внимательно проанализируйте представленный ниже программный код, а затем наберите его.
Private Sub CommandButton1_Click()
Image1.Visible = True
Image2.Visible = False
Image3.Visible = False
Image4.Visible = False
TextBox1.Text = "Париж"
TextBox1.ForeColor = vbBlueTextBox1.Font.Size = 20
TextBox1.BackColor = vbCyanTextBox1.TextAlign = fmTextAlignCenterEnd Sub Private Sub CommandButton2_Click()
Image1.Visible = False
Image2.Visible = True
Image3.Visible = False
Image4.Visible = False
TextBox1.Font.Size = 18
TextBox1.Text = "Афины"
TextBox1.ForeColor = vbBlackTextBox1.BackColor = vbYellowTextBox1.TextAlign = fmTextAlignCenterEnd Sub
Private Sub CommandButton3_Click()
Image2.Visible = False
Image1.Visible = False
Image3.Visible = True
Image4.Visible = False
TextBox1.Font.Size = 20
TextBox1.Text = "Мадрид"
TextBox1.ForeColor = vbRedTextBox1.BackColor = vbBlueTextBox1.TextAlign = fmTextAlignCenterEnd Sub
Private Sub CommandButton5_Click()
End Private Sub CommandButton4_Click()
Image2.Visible = False
Image1.Visible = False
Image4.Visible = True
Image3.Visible = False
TextBox1.Text = "Лондон"
TextBox1.ForeColor = vbBlueTextBox1.BackColor = vbBlackTextBox1.Font.Size = 18
TextBox1.TextAlign = fmTextAlignCenterEnd Sub
End Sub