Сообщество Чайников

Вопрос

Можно ли получить рисунок из ListImage как Dim Img() As Byte ?

Ответ

dim Bitmapinfo as BITMAPINFO,
dim outBuff as byte*65535
hDCdskbuff=GetDC(hWindowWnd);
hSecondBitmap =(HBITMAP)LoadBitmap(GetModuleHandle(0),MAKEINTRESOURCE(IDB_BITMAP1));
'GetModuleHandle(0) тоже самое что и hInstance

GetDIBits(hDCdskbuff,hSecondBitmap,0,128,outBuff,&Bitmapinfo,DIB_RGB_COLORS);

Функция копирует с указанного контекста в байтовый массив, есть и обратная функция.

Ivan R