Функция LoadIcon

Declare Function LoadIcon Lib "user32" Alias "LoadIconA" (ByVal hInstance As Long, ByVal lpIconName As String) As Long

LoadIcon загружает указанный значок из секции ресурсов исполняемого файла. Данная функция замещена функцией LoadImage. Функция LoadIcon загружает значок из секции ресурсов только в том случае, если он не был загружен ранее; иначе функция возвратит дескриптор загруженного значка. Функция ищет ресурс наилучшим образом соответствующий данному дисплею. Значок может быть цветным или монохромным. Функция LoadIcon загружает значок только в случае, если его размер соответствует стандартным метрикам SM_CXICON и SM_CYICON(функция GetSystemMetrics). Используйте функцию LoadImage для загрузки значков другого размера

Возвращаемое значение

В случае ошибки функция возвращает 0 (используйте GetLastError для получения кода ошибки). В успешном случае функция возвращает дескриптор указанного значка

Параметры

hInstance

Дескриптор приложения, исполняемый модуль которого содержит загружаемый значок

lpIconName

Строка с завершающим нулевым символом, содержащая имя загружаемого из секции ресурсов значка. Кроме того, данный параметр может в младшем слове содержать идентификатор ресурса, а в старшем нулевое значение. Для создания такого значения можно использовать макрос MAKEINTRESOURCE. Для использования одного из предопределенных значков, в параметре hInstance указывается NULL, а в параметре lpIconName одно из следующих значений

Пример

' Смотри также пример apiform.zip

' Отобразим системный значок вопроса
Dim objhandle As Long  ' дескриптор значка
Dim di As Long

' Получим встроенный значок вопроса
objhandle = LoadIcon(0, IDI_QUESTION)
' Выводим его на Picture1
di = DrawIcon(Picture1.hdc, 7, 7, objhandle)

Смотри также

Категория