- •Занятие №5. Рисунки в пользовательских формах.
- •Рисунки.
- •Практическая работа №5-1 «Внедрение рисунка»
- •Присваивание объектам свойств будем производить программно.
- •Тестирование и отладка программ.
- •Окно редактирования кода с окном сообщения об ошибке.
- •Окно редактирования кода с указанной ошибкой
- •Практическая работа №5-3 «Работа с рисунком»
Окно редактирования кода с окном сообщения об ошибке.
Нажмите на кнопку Debug (Отладка) и отладчик укажет, в какой строке у вас ошибка.
Окно редактирования кода с указанной ошибкой
Исправьте ошибку и нажмите на стандартной панели инструментов на кнопку (Продолжение).
Тексты программ для кнопок CommandButton2, CommandButton3, CommandButton4, CommandButton5:
Объект |
Программа |
CommandButton2 (Сдвинь рисунок вправо) |
Private Sub CommandButton2_Click() Image1.PictureAlignment = 4 End Sub |
CommandButton4 (Измени цвет фона и формы) |
Private Sub CommandButton4_Click() Image1.BackColor = &HFF80FF UserForm2.BackColor = RGB(64, 0, 0) End Sub |
CommandButton3 (Мозаика) |
Private Sub CommandButton3_Click() Image1.PictureTiling = True End Sub |
CommandButton5 (Измени рисунок флага и надпись) |
Private Sub CommandButton5_Click() Label1.Caption = "Флаг Англии" Label1.Font.Size = 14 Label1.Font.Name = "Arial Black" UserForm2.Image1.Picture = LoadPicture("C:\FlgEng.gif") End Sub |
Практическая работа №5-3 «Работа с рисунком»
1. В редакторе MS Paint создайте рисунки:
|
|
|
цв1.bmp |
цв2.bmp |
цв3.bmp |
2. Сохраните рисунки в своей папке или на диске C:\цв1.bmp, C:\цв2.bmp, C:\цв3.bmp
3 . В Excel создайте экранную форму и назовите ее Цветок. Внедрите в созданную форму рисунок и четыре кнопки. Кнопки назовите «Сцена1», «Сцена2», «Сцена3». «ВЫХОД». Используя свойства объектов, отформатируйте созданную форму. Форма может иметь вид:
4. Тексты программ для кнопок:
Объект |
Программа |
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 |
ВНИМАНИЕ!!!
Правильно описывайте путь к файлам, которые внедряются программно в форму.
5.Запишите процедуру вызова данной формы и назовите ее Цветок:
Public Sub Цветок()
UserForm1.Show
End Sub
На листе Excel вставьте Рисунок-Картинка и назначьте ей макрос Цветок:
П роверьте работоспособность Кнопки-Рисунка. При ее нажатии должна появляться форма «Цветок». При нажатии на кнопки: «Сцена1», «Сцена2» и «Сцена3» рисунок в форме меняется.
При нажатии на кнопку «ВЫХОД» форма скрывается с листа.
7. Сохраните Вашу работу.