Практична робота 6
«Об’єкти та їх властивості.
Встановлення значень властивості»
Завдання
1. Доробити форму,
створену на практичній роботі 5, щоб за допомогою кнопок змінювався колір
написів і видимість рисунка. Також необхідно передбачити повернення форми у
первинний вид.
Аналіз проекту
Необхідно створити код процедури, яка обробляє подію
Click для кнопки Змінити колір при цьому колір напису Label1 повинен
змінитися на синій (властивість Forecolor = vbblue), а колір
напису Label2 – на червоний (властивість Forecolor = vbred).
Подія Click для кнопки Змінити видимість повинна змінити
властивість Visible рисунку imgСмайл щоб рисунок став невидимим
(властивість Visible = False). Клацання миші в будь-якій частині
форми (подія Click) повинна привести форму у первинний вид (написи
чорного кольору (властивість Forecolor = vbblack), рисунок
видимий (властивість Visible = True)).
Хід роботи
1. Двічі клацніть на кнопці Змінити
колір. У результаті відкривається вікно коду VBA у якому автоматично
створюється порожня процедура із заголовком Private
Sub cmdColor_Click() і
завершенням End Sub.
2.
Усередині процедури введіть наступний текст:
Private Sub cmdColor_Click()
Label1.Forecolor = vbblue
Label2.Forecolor = vbred
End Sub
3.
Аналогічно, клацнувши по кнопці Змінити видимість, створимо наступну
процедуру:
Private Sub cmdVisible_Click()
imgSmile.Visible = False
End Sub
4.
Для повернення форми у первинний вид двічі клацніть на будь-якому вільному
місці форми й уведіть наступний текст процедури:
Label1.Forecolor = vbblack
Label2.Forecolor = vbblack
imgSmile.Visible = True
5. Запустіть програму на виконання,
клацнувши на вільному місці форми, а потім на кнопці Run (або натисніть
клавішу F5).
6. Проаналізуйте працездатність
програми.
7.
Збережіть документ у файлі Практ1_3.doc у своїй папці.