Наши проекты:
Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту |
||
ПРАВИЛА | FAQ | Помощь | Поиск | Участники | Календарь | Избранное | RSS |
[3.12.153.79] |
|
Сообщ.
#1
,
|
|
|
В сети много примеров конвертации BMP в ICO, а мне надо наоборот. Т.е. мне нужно из ICO в PictureBox получить BMP в PictureBox (32бита/цвет). Прозрачность теряется, становится нулевым значением по умолчанию.
Нашёл такой код, но в моей задаче он не работает (что не так?): Public Function IconToPicture(ByVal hicon As Long) As StdPicture If hicon = 0 Then Exit Function Dim oNewPic As Picture Dim tPicConv As PictDesc Dim IGuid As GUID With tPicConv .cbSizeofStruct = Len(tPicConv) .PicType = vbPicTypeIcon .hImage = hicon End With With IGuid .Data1 = &H7BF80980 .Data2 = &HBF32 .Data3 = &H101A .Data4(0) = &H8B .Data4(1) = &HBB .Data4(2) = &H0 .Data4(3) = &HAA .Data4(4) = &H0 .Data4(5) = &H30 .Data4(6) = &HC .Data4(7) = &HAB End With OleCreatePictureIndirect tPicConv, IGuid, True, oNewPic Set IconToPicture = oNewPic End Function |
Сообщ.
#2
,
|
|
|
PaintPicture тоже не помогает, она же должна выдавать BMP на выходе...
|