Функция

LoadResPicture

Синтаксис

LoadResPicture(index, format)

Загружает растр, значок или курсор из файла ресурсов (.res). Используйте эту функцию для упрощения локализации Ваших приложений, так как хранение данных, подлежащих локализации, в одном месте (ресурсе) упрощает их перевод. Кроме того, сохранение растров, значков и курсоров в ресурсах существенно сокращают время загрузки формы, т. к. они загружаются в этом случае по мере необходимости, а не все сразу во время загрузки формы Form.

Параметры

Замечания

Для добавление в ресурс любых данных, необходимо воспользоваться специальным мастером. В меню "Модули" выбираем "Менеджер Модулей", находим в списке "VB6 Resource Editor", дважды кликаем на нём и жмём "Ок". Затем находим на панели инструментов значок в виде зелёного кубика и кликаем по нему. В появившемся окне жмём на иконку с необходимым нам типом добавляемого ресурса, например на "Picture", добавляем желаемое изображение и ОБЯЗАТЕЛЬНО сохраняем ресурс.

Пример использования

'Пример загрузки изображения из ресурса:
Private Sub Form_Load()
  Picture = LoadResPicture(101, vbResBitmap)
End Sub

'Где 101, это индефикатор загружаемого ресурса, а
'vbResBitmap - тип, соответствует изображению.

'Если необходимо переносить в ресурсе например дополнительный
'файл, то необходимо создать ресурс типа "CUSTOM" и добавить любой файл.

'Пример сохранения файла из файла ресурсов:
Private Sub Form_Load()
  Dim arrData() As Byte
  arrData = LoadResData(101, "CUSTOM")
  Open "c:\temp.res" For Binary Access Write As #1
    Put #1, , arrData
  Close
End Sub

'Также можно хранить в файле ресурсов строковые таблицы,
'например если необходимо сделать у программы многоязычный
'интерфейс. В редакторе ресурсов создаём строковую таблицу
'и добавляем в неё любые данные.

'Пример вывода строки из строковой таблицы файла ресурса.
Private Sub Form_Load()
  MsgBox LoadResString(101)
End Sub

Дополнительная информация

Категория: Функции ввода данных

Еще функции: Choose, IIf, InputBox, LoadPicture, LoadResData, LoadResPicture, LoadResString, MsgBox, Switch

Логин:

Пароль:

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