Практическая работа №5-1 «Внедрение рисунка»

В этом примере рассмотрим внедрение объекта Image и применение свойств к этому объекту.

1. Создайте экранную форму.

2. Внедрите в созданную форму четыре объекта Image . Не обращайте внимание на месторасположение и размер внедренных первоначально объектов Image. Свойства этих объектов будут установлены по умолчанию.

Но при этом постарайтесь придерживаться размеров формы и расположение пояснительных надписей к рисункам. Эти значения присвойте через окно свойств.

Свойство	Значение
Форма
Width	435
Height	350
Caption	Свойства объектов
Надпись «Рисунок 1»
Left	55
Width	85
Height	12
Top	12
Надпись «Рисунок 2»
Left	240
Width	85
Height	12
Top	12
Надпись «Рисунок 3»
Left	55
Width	85
Height	12
Top	150
Надпись «Рисунок 4»
Left	240
Width	85
Height	12
Top	150
Кнопка «Свойства объекта Image»
Left	55
Width	145
Height	40
Top	270
Кнопка «Выход»
Left	250
Width	130
Height	40
Top	270

Присваивание объектам свойств будем производить программно.

3. Используя свойства объектов, разместите рисунки, так как показано в форме:

   • В первом случае изображение пропорционально масштабируется так, чтобы целиком заполнить область объекта.

   • Во втором случае масштабирование непропорциональное.

   • В третьем случае рисунок размещается произвольно.

   • В четвертом случае область объекта покрывается мозаикой из рисунков.

   • Во всех четырех случаях применим различные эффекты отображения объекта.

   • Изменим фон Рисунка1 и Рисунка 3.

Во всех четырех случаях рисунок выравнивается по верхнему левому краю.

Четыре примера размещения рисунка

Программа на кнопку «Свойства объекта Image»

Private Sub CommandButton1_Click()

Rem Размещение объектов от левого края формы

Image1.Left = 25

Image2.Left = 225

Image3.Left = 25

Image4.Left = 225

Rem Размещение объектов от верхнего края формы

Image1.Top = 30

Image2.Top = 30

Image3.Top = 170

Image4.Top = 170

Rem Ширина объектов

Image1.Width = 160

Image2.Width = 160

Image3.Width = 160

Image4.Width = 160

Rem Высота объектов

Image1.Height = 85

Image2.Height = 85

Image3.Height = 85

Image4.Height = 85

Rem Согласование размера рисунка и размера объекта

Image1.PictureSizeMode = 3

Image2.PictureSizeMode = 1

Image3.PictureSizeMode = 0

Image4.PictureSizeMode = 0

Rem Размножение рисунка по всей поверхности объекта

Image4.PictureTiling = True

Rem Изменение цвета фона у двух объектов

Image1.BackColor = RGB(100, 100, 100)

Image3.BackColor = RGB(100, 50, 100)

Rem Применение эффектов к объектам

Image1.SpecialEffect = 1

Image2.SpecialEffect = 2

Image3.SpecialEffect = 3

Image4.SpecialEffect = 6

End Sub

4. Создайте кнопку на листе Excel для вывода формы на экран.

5. Сохраните свою работу.