Практична робота №4 Робота з графікою

Створення процедур обробки подій при виборі команд в пунктах меню

6. У вікні редактора коду повинен знаходитись наступний код програми:

Private Sub mnuRed_Click()
' Вибрати колір фону вікна - червоний
frmColors.BackColor = vbRed
' Встановлення прапорця
mnuRed.Checked = True
mnuBlue.Checked = False
mnuWhite.Checked = False
End Sub
Private Sub mnuBlue_Click()
' Вибрати колір фону вікна - синій
frmColors.BackColor = vbBlue
' Встановлення прапорця
mnuRed.Checked = False
mnuBlue.Checked = True
mnuWhite.Checked = False
End Sub
Private Sub mnuWhite_Click()
' Вибрати колір фону вікна - білий
frmColors.BackColor = vbWhite
' Встановлення прапорця
mnuRed.Checked = False
mnuBlue.Checked = False
mnuWhite.Checked = True
End Sub
Private Sub mnuNorm_Click()
' Встановити нормальний розмір вікна
frmColors.WindowState = 0
' Вимкнути пункт "Нормальний"
mnuNorm.Enabled = False
' Ввімкнути пункт "Максимальний"
mnuMax.Enabled = True
End Sub
Private Sub mnuMax_Click()
' Встановити максимальний розмір вікна
frmColors.WindowState = 2
' Вимкнути пункт "Максимальний"
mnuMax.Enabled = False
' Ввімкнути пункт "Нормальний"
mnuNorm.Enabled = True
End Sub
Private Sub mnuExit_Click()
End
End Sub

7. Запустіть проект і перевірте як він працює. Закрийте вікно проекту.

8. Збережіть проект у власній папці.

Створимо додаток, який дозволяє виконувати малювання на формі. В цьому додатку буде здійснюватися малювання довільної лінії, прямої лінії методом Line, кола методом Circle за допомогою лівої клавіші миші. Вибір фігури буде здійснюватися з пункту меню Малювання, яке складається з команд: Довільна лінія, Пряма лінія, Коло. Меню Малювання також повинно містити команди Очистити форму і Вихід (Рис. 14). При малюванні всіх фігур курсор миші повинен мати вигляд “Ç”. Довільна лінія повинна малюватися чорним кольором при переміщені миші з натиснутою лівою клавішею, пряма лінія – червоним кольором, коло – зеленим.

Рис. 14

Створення програми “Малювання”

1. Самостійно створіть меню, використавши такі властивості:

Caption	Name	Гарячі клавіши
Малювання	mnuDraw
Довільна лінія	mnuLine	Ctrl+L
Пряма лінія	mnuDrLine	Ctrl+D
Коло	mnuCircle	Ctrl+K
Очистити форму	mnuCls	F8
Вихід	mnuExt

Дата добавления: 2014-12-23