Page 65 - 6735

У прикладі UserForm14 показано використання елемента
керування Image (картинка), яка призначена для виведення
довільного растрового зображення на форму (рис. 2.18). Основна
властивість – Picture, якій слід присвоїти результат функції
LoadPicture, що завантажує растрове зображення з файлу.

Private Sub UserForm_Initialize()
'з об'єктом Image1
With Image1
.Picture = LoadPicture("d:\WINDOWS\Паркет.bmp")
'завантажити картинку
.PictureSizeMode = fmPictureSizeModeClip 'розмір
картинки
.PictureTiling = True 'замостити
.PictureAlignment = fmPictureAlignmentCenter
'вирівнювання
End With
End Sub

Рисунок 2.18 – Елемент керування Image

65