Visual Basic, .NET, ASP, VBA, VBScript
 
  Справочники  
  Справочник по Windows API Справочник по Visual Basic  
     
  Функция 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.

Замечания

Функция распознает следующий форматы файлов: bitmap (.bmp), icon (.ico), cursor (.cur), run-length encoded (.rle), metafile (.wmf), enhanced metafiles (.emf), GIF (.gif) и JPEG (.jpg). Для очистки объекта от рисунка, необходимо вызвать LoadPicture без параметров.
Возможные установки для параметра Size:

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

 
     
  VBNet online (всего: 52050)  
 

Логин:

Пароль:

Регистрация, забыли пароль?


В чате сейчас человек
 
     
  VBNet рекомендует  
   
     
  Лучшие материалы  
 
ActiveX контролы (112)
Hitman74_Library (36119)
WindowsXPControls (20739)
FlexGridPlus (19374)
DSMAniGifControl (18295)
FreeButton (15157)
Примеры кода (546)
Parol (18027)
Passworder (9299)
Screen saver (7654)
Kerish AI (5817)
Folder_L (5768)
Статьи по VB (136)
Мое второе впечатление... (11236)
VB .NET: дорога в будущее (11161)
Основы SQL (9225)
Сообщения Windows в Vi... (8788)
Классовая теория прогр... (8619)
 
     
Техническая поддержка MTW-хостинг | © Copyright 2002-2011 VBNet.RU | Пишите нам