И снова LoadIcon

[NIC]

Я "прикрутил" к проекту ресурс файл с иконкой 32 бита.
А как её теперь достать оттуда.Т.е. загрузить и получить хэндл.
Пробовал так:

Код: Выделить всё

hIcon = LoadIcon(App.hInstance, "101")

и так

Код: Выделить всё

hIcon = LoadIcon(App.hInstance, 101)


хотя в MSDN написано

Pointer to a null-terminated string that contains the name of the icon resource to be loaded

Через LoadImage-тоже пробовал.Ни как не получаеться. Возвращает 0.

В файле ресурса иконка имеет имя 101.
Она там одна.

[alibek]

Что-то у меня сомнения насчет правильности размещения топика.

Но для начала покажи декларации.

[jangle]

hIcon = LoadIcon(App.hInstance, "#101") - так правильно

А вобще это вопрос новичка, а не профи

[NIC]

alibek сорри ,был в трезвом уме когда размещал.
Может по запарке в этот раздел "закинул",случайно.
Невнимательность с моей стороны.
Наверно нужно перенести.

[alibek]

Ок, тогда переношу.

NIC, tag_warning

[NIC]

jangle всё равно hIcon=0
GetLastError тоже 0

Код: Выделить всё

hIcon = LoadIcon(App.hInstance, "#101")

[HiSER]

Декларируй так:

Код: Выделить всё

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


Используй так:

Код: Выделить всё

hIcon = LoadIcon(App.hInstance, 101)

[NIC]

Декларирую

Код: Выделить всё

lpIconName As Long

Использую 101 не получаеться.
И 1 пробовал,короче по всякому.
Как будто заколдованная иконка

[HiSER]

После компиляции будет работать.

[Igor_123]

В файле ресурса иконка имеет имя 101.
Она там одна.

я наверное делаю что-то не так:
скачал и распаковал
запустил ВБ6 и стандартный проект
добавил распакованный файл, пытаюсь посмотреть редактором ресурсов что там, а он пустой! Она там есть эта иконка???

добавил на форму пикчербокс, в рес-файл - иконку и заменил лоадикон на:

Код: Выделить всё

Set Picture1.Picture = LoadResPicture(101, vbResIcon)

в боксе появилась иконка

[NIC]

Я скачал файл.
Распаковал.
Открыл ресторатором. Имя ресурса 123.res
Иконка на месте. (6 32-х битных иконок)

[NIC]

HiSER
Да,после компиляции работает.
Наверное ресурс добавляеться только после компиляции.

[Igor_123]

я смотрел Visual Basic 6 Resource Editor'ом

[NIC]

Он его не загружает.

[Igor_123]

а LoadIcon будет работать со скомпилированной программой

[jangle]

jangle всё равно hIcon=0
GetLastError тоже 0

Код: Выделить всё

hIcon = LoadIcon(App.hInstance, "#101")

Учи матчасть и тогда все будет получаться

[NIC]

Параметр задекларирован как Long.Соответственно я ему и передаю номер идентификатора в младшем слове двойного слова.И всё работает.
Jangle а где можно почитать про этот параметр.
А то "каша" получаеться.
MSDN - описание параметра прочёл.В декларации MSDN этот параметр вроде как строковый. В API вьювере он ANY.
Насколько я понимаю можно передавать и строку,указав,что это номер
#101 (как String),либо просто ID номер 101 (как Long).
Я правильно мыслю?

[alibek]

Во-первых, покажи наконец декларацию функции.
Во-вторых, покажи, как ты устанавливаешь загруженную иконку.

[NIC]

После компиляции иконка отображаеться.
(я уже постил)

Код: Выделить всё

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

Код: Выделить всё

Set Tray = New TrayIconAndBalloon
Tray.hwnd = hwnd
hIcon = LoadIcon(App.hInstance, 101)
Tray.Icon = hIcon
Tray.add

+класс работы с иконкой TrayIconAndBalloon

[pancer]

Почему-то не работает... Даже без трея - просто в заголовок окна не загружается.

Код: Выделить всё


hIcon = LoadIcon(App.hInstance, 101)
MsgBox hIcon
Me.Icon = hIcon


Msgbox показывает цифру (не ноль).
Сразу после этого выдаёт run-time error '424'
Object required.

Что я делаю не правильно?

[Lumen]

Property Icon As StdPicture

А LoadIcon у нас что возвращает? Правильно, Long. Вот и вылетает ошибка...
Вот почитай: Корректная установка иконки приложения

[pancer]

Угу... Спасибо, вопрос снят.