ТОР 5 статей:
Методические подходы к анализу финансового состояния предприятия
Проблема периодизации русской литературы ХХ века. Краткая характеристика второй половины ХХ века
Характеристика шлифовальных кругов и ее маркировка
Служебные части речи. Предлог. Союз. Частицы
КАТЕГОРИИ:
- Археология
- Архитектура
- Астрономия
- Аудит
- Биология
- Ботаника
- Бухгалтерский учёт
- Войное дело
- Генетика
- География
- Геология
- Дизайн
- Искусство
- История
- Кино
- Кулинария
- Культура
- Литература
- Математика
- Медицина
- Металлургия
- Мифология
- Музыка
- Психология
- Религия
- Спорт
- Строительство
- Техника
- Транспорт
- Туризм
- Усадьба
- Физика
- Фотография
- Химия
- Экология
- Электричество
- Электроника
- Энергетика
Задания для практического занятия и инструктаж по их выполнению. Задание №1 Разработать приложение с внедрением рисунка. В редакторе MS Paint создайте рисунки: цв1.bmp цв2.bmp цв3.bmp
Задание №1 Разработать приложение с внедрением рисунка.
- В редакторе MS Paint создайте рисунки:
| 
| 
|
| цв1.bmp | цв2.bmp | цв3.bmp |
- Сохраните рисунки в своей папке цв1.bmp, цв2.bmp, цв3.bmp
- Создайте экранную форму и назовите ее Цветок. Внедрите в созданную форму рисунок и четыре кнопки. Кнопки назовите «Сцена1», «Сцена2», «Сцена3». «ВЫХОД». Используя свойства объектов, отформатируйте созданную форму. Форма может иметь вид:
- Тексты программ для кнопок:
| Объект | Программа |
| CommandButton1 Вставить рисунок C:\цв1.bmp | Private Sub CommandButton1_Click() UserForm1.Image1.Picture = LoadPicture("C:\цв1.bmp") End Sub |
| CommandButton2 Вставить рисунок C:\цв2.bmp | Private Sub CommandButton2_Click() UserForm1.Image1.Picture = LoadPicture("C:\цв2.bmp") End Sub |
| CommandButton3 Вставить рисунок C:\цв3.bmp | Private Sub CommandButton3_Click() UserForm1.Image1.Picture = LoadPicture("C:\цв3.bmp") End Sub |
| CommandButton4 Закрыть форму | Private Sub CommandButton4_Click() UserForm1.Hide End Sub |
- Запишите процедуру вызова данной формы и назовите ее Цветок:
Public Sub Цветок()
UserForm1.Show
End Sub
- На листе Excel вставьте Рисунок-Картинка и назначьте ей макрос Цветок:
- Проверьте работоспособность Кнопки-Рисунка. При ее нажатии должна появляться форма «Цветок». При нажатии на кнопки: «Сцена1», «Сцена2» и «Сцена3» рисунок в форме меняется.
При нажатии на кнопку «ВЫХОД» форма скрывается с листа.
7. Сохраните Вашу работу, результат предъявите преподавателю.
Не нашли, что искали? Воспользуйтесь поиском: