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

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. Збережіть проект у власній папці.