| |
Функция LoadPicture |
|
| |
Функция LoadPicture | | Синтаксис LoadPicture([filename], [size], [colordepth],[x,y]) | Функция служит для загрузки изображения в любой объект, поддерживающий свойство Picture. | Параметры Наименование | Описание | FileName | Необязательный. Строковая переменная, определяющая имя загружаемого графического файла. Может включать имя папки и диска. Если не указано значение файла, то функция LoadPicture загружает пустой рисунок. |
Size | Необязательный. Тип Variant. Если FileName является курсором или значком файла, то параметр определяет желаемый размер изображения. |
ColorDepth | Необязательный. Тип Variant. Если FileName является курсором или значком файла, то параметр определяет желаемую глубину цвета. |
X | Необязательный. Параметр типа Variant. Обязателен, если указан параметр Y. Если FileName является курсором или значком файла, то параметр определяет желаемую ширину. В файле, содержащем множество отдельных изображений, в случае, если изображение заданного размера не доступно, используется наилучшее приближение. Значения X и Y используются, если установлено значение vbLPCustom аргумента ColorDepth. Для значков файлов наибольшее возможное значение 255 |
Y | Необязательный Параметр типа Variant. Обязателен, если указан параметр X. Если FileName является курсором или значком файла, то параметр определяет желаемую высоту. В файле, содержащем множество отдельных изображений, используется наилучшее приближение в случае, если изображение заданного размера не доступно. Для значков файлов наибольшее возможное значение 255. |
| Замечания
| vbLPSmall=0 |
Системный значок малого размера |
| vbLPLarge=1 |
Системный значок большого размера, определяемого видеодрайвером |
| vbLPSmallShell=2 |
Значок малого размера для оболочки. Размер определяется установками кнопок Заголовок на вкладке Оформление диалогового окна Экран Панели управления |
| vbLPLargeShell=3 |
Значок большого размера для оболочки. Размер определяется установками кнопок Заголовок на вкладке Оформление диалогового окна Экран Панели управления |
| vbLPCustom=4 |
Определяемый размер, задается аргументами X и Y |
Возможные значения для параметра ColorDepth:
|
vbLPDefault=0 |
Оптимальное значение при использовании определенных файлов |
|
vbLPMonochrome=1 |
2 цвета |
|
vbLPVGAColor=2 |
16 цветов |
|
vbLPColor=3 |
256 цветов |
| Пример использования 'этот пример использует LoadPicture для загрузки рисунка в
'PictureBox и для его очистки, для запуска примера добавьте
'PictureBox на Form, поместите этот код в форму, после
'запуска приложения кликните на форме
Private Sub Form_Click ()
Dim Msg as String 'объявляем переменные
On Error Resume Next 'при ошибке не останавливаться
Height = 3990
Width = 4890 'устанавливаем размеры рисунка
'загружаем изображение курсора
Picture1.Picture = LoadPicture("PAPER.CUR", vbLPCustom, vbLPColor, 32, 32)
If Err Then
Msg = "Не могу найти .cur файл"
MsgBox Msg 'показать сообщение о ошибке
Exit Sub 'выход при ошибке
End If
Msg = "Выберите OK для удаления рисунка."
MsgBox Msg
Picture1.Picture = LoadPicture() 'очищаем picturebox
End Sub | Дополнительная информация Категория: Функции ввода данных Еще функции: Choose, IIf, InputBox, LoadPicture, LoadResData, LoadResPicture, LoadResString, MsgBox, Switch |
|
|
| |
|
|
|
|
Справочник по Visual Basic