Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=429197&view=findpost&p=3873680 Fri, 12 Aug 2022 18:22:35 +0000 Конвертация ICO в BMP https://forum.sources.ru/index.php?showtopic=429197&view=findpost&p=3873680 BlackSun Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=429197&view=findpost&p=3873666 Fri, 12 Aug 2022 16:37:10 +0000 Конвертация ICO в BMP https://forum.sources.ru/index.php?showtopic=429197&view=findpost&p=3873666 Нашёл такой код, но в моей задаче он не работает (что не так?):

    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
]]> BlackSun Visual Basic: Общие вопросы