ХР'ишные иконки в .res файл

[anian]

Собстно, сабж...но: родным ResEdit'ом они не впихиваются.
Написал .rc'шник:

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

101 ICON DISCARDABLE   "date.ico"
102 ICON DISCARDABLE   "hware.ico"

Компильнул rc.exe, поключаю к проекту, смотрю - никаких элементов VB в нем не видит, и соответственно LoadImage() из этого файла ресурсов ничего загрузить не может.

Уважаемый непомнюкто писал, что из ресурсов LoadImage() может грузить иконки максимум 32х32, а иконки у меня 48х48...но почему VB ничего не видит?

С диска LoadImage() закружает эти иконки нормально.

[Viper]

как юзаешь то хоть?

[schalexey]

anian что сделать то хочешь? прилипить к форме как иконку? или что?
ЗЫ VB6 не поддерживает большие иконки, только через API.

[anian]

Юзаю путем создания ImageList через API
Фиг с ней, с LoadImage...что с файлом ресурсов делать-то? Шоб VB его понимал?

[AntonGV]

Вот пример. Странно в RES файл иконки загрузились 48х48, а LoadResPicture достает 32х32.

[anian]

to AntonGV:
Да, в ресурсы вообще можно запихать что угодно,а LoadResPicture больше 32х32 не понимает.

Решил пойти по немного некошерному, но простому пути:

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


'Идея Steve McMahon
Dim iAr() As Byte, sFile As String, iFile As Long
    Set cIL = New cVBALImageList
   
    cIL.IconSizeX = 48
    cIL.IconSizeY = 48
    cIL.ColourDepth = ILC_COLOR32
    cIL.Create
   
    iAr = LoadResData(2002, "ICO")
    sFile = App.Path + "\" + "m.tmp"
    iFile = FreeFile
        Open sFile For Binary Access Write Lock Read As #iFile
            Put #iFile, , iAr
        Close #iFile
            iFile = 0
    cIL.AddFromFile App.Path + "\" + "m.tmp", IMAGE_ICON
    Kill sFile

    cIL.DrawImage 1, pHware.hdc, 0, 0


В аттаче исходник класса cVBALImageList

[Alexanbar]

А какой- нибудь ExeScope или иной просмотрщик ресурсов видит в откомпилированном файле этот ресурс?

Нужно пробовать грузить иконки из ресурсов не через Vb6 -функции типа LoadResData, а той же LoadImage.

[schalexey]

anian
http://vbstreets.ru/VB/Articles/66446.aspx

посмотри тут... как раз показано как вытянуть такую иконку... В принципе можно переделать и под свои нужды

[anian]

to schalexey & Alexanbar:
Спасибо за наводки на мысль , все уложилось в одну строку:

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


hIcon = LoadImage(App.hInstance, "2001", IMAGE_ICON, 48, 48, LR_SHARED)