Студопедия.Орг Главная | Случайная страница | Контакты | Мы поможем в написании вашей работы!  
 

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



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





Дата публикования: 2014-12-28; Прочитано: 193 | Нарушение авторского права страницы | Мы поможем в написании вашей работы!



studopedia.org - Студопедия.Орг - 2014-2024 год. Студопедия не является автором материалов, которые размещены. Но предоставляет возможность бесплатного использования (0.007 с)...