Занятие № 4. Рисунки в пользовательских формах

Вопросы:

• Свойства объекта Image.
• Отладка программ.

Объект Image (рисунок)

Объект Image служит для размещения рисунка, загружаемого из графического файла.

Свойства объекта Image (рисунок)

Элемент управления Image (рисунок) создается с помощью кнопки “Рисунок”. Он используется для отображения графических файлов. В таблице перечислены некоторые свойства, используемые для управления выводом изображения. Картинку в элемент управления Image можно вставить только программным путем.

Практическая работа № 4–1 “Внедрение рисунка”

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

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

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

Рис. 1. Внедрение объектов Image в созданную форму

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

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

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

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

Измените фон у объектов с подписью “Рисунок 1” и “Рисунок 3”. Во всех четырех случаях изображение выравнивается по верхнему левому краю.

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

Программа для кнопки “Свойства объекта 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. Сохраните свою работу.