Функция

LoadResData

Синтаксис

LoadResData(index, format)

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

Параметры

Замечания

При использовании функции LoadResData с ресурсами растр, значок и курсор – возвращается строка, содержащая число бит в ресурсе. При работе с этими ресурсами применяйте функцию LoadResPicture. Параметр функции Format может иметь одно из следующих значений:

1	Курсор
2	Растр
3	Значок
4	Меню
5	Диалоговое окно
6	Строка
7	Каталога шрифта
8	Шрифт
9	Таблица Акселераторов
10	Ресурс определенный пользователем
11	Группа курсоров
12	Группа значков

Для добавление в ресурс любых данных, необходимо воспользоваться специальным мастером. В меню "Модули" выбираем "Менеджер Модулей", находим в списке "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

Логин:

Пароль:

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