Создание проекта "Фотоальбом" на языке VBA

 Создание проекта  «Фотоальбом» на VBA

Цель: закрепление пройденного материала по созданию пользовательской формы; вставки надписей, полей, кнопок и картинки в пользовательскую форму; программирование кнопок пользовательской формы; проверка работы пользовательской формы.

Задание 1 .

Создайте и оформите проект, показывающий по нажатию одной кнопки  фото города  с надписью (например, «Париж – город- мечта»)». Задание предполагает создание фотоальбома из 4 фотографий.  

Вид приложения представлен на рисунке 1.

Рисунок 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 = vbBlue TextBox1.Font.Size = 20 TextBox1.BackColor = vbCyan TextBox1.TextAlign = fmTextAlignCenter End 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 = vbBlack TextBox1.BackColor = vbYellow TextBox1.TextAlign = fmTextAlignCenter End 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 = vbRed TextBox1.BackColor = vbBlue TextBox1.TextAlign = fmTextAlignCenter End 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 = vbBlue TextBox1.BackColor = vbBlack TextBox1.Font.Size = 18 TextBox1.TextAlign = fmTextAlignCenter End Sub

End Sub