Главная Случайная страница Контакты | Мы поможем в написании вашей работы! | ||
|
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 | Нарушение авторского права страницы | Мы поможем в написании вашей работы!