Главная Случайная страница Контакты | Мы поможем в написании вашей работы! | ||
|
1. В графическом редакторе Paint создайте четыре рисунка «зима», «весна, «лето», «осень» и сохраните рисунки в отдельных файлах на диске С:
2. Откройте новый проект, установите следующие объекты и измените им свойства
Объект | Свойство | Значение |
Форма | Name | frmPaint |
WindowState | 2-Maximized | |
Метка | Name | LblResult |
Caption | ||
Полоса прокрутки | Name | HsbSet |
Max | ||
Min | ||
Командные кнопки | Name | CmdWinter |
Caption | Зима | |
Name | CmdSpring | |
Caption | Весна | |
Name | CmdSummer | |
Caption | Лето | |
Name | CmdAutumn | |
Caption | Осень | |
Name | cmdExit | |
Caption | Выход |
3. Приведите свою форму в соответствие с образцом
4.
lblResult.Caption = Str(hsbSet.Value)
frmPaint.BackColor = QBColor(hsbSet.Value)
5. Такой же код набрать для обработки события Scroll для объекта HsbSet.
6. В окне кода процедуры обработки события Click набрать для объекта cmdExit
MsgBox “До свидания”,0,”Выход”
End
7. В окне кода процедуры обработки события Click набрать для объекта cmdWinter
frmPaint.Picture = LoadPicture("c:\Мои Документы\зима.bmp")
8. Самостоятельно набрать для других командных кнопок. Проверьте работу программы
Дата публикования: 2015-02-22; Прочитано: 254 | Нарушение авторского права страницы | Мы поможем в написании вашей работы!