Problema ao carregar Imagem no Visual basic 6

0 respostas
matheustavaress12

Basicamente estou transformando uma imagem(binary/image) que esta armazenada em um campo do tipo BLOB em uma imagem do formato bitmap em um diretório para assim carrega-la em uma picture box em um Active Report, porem essa imagem não carrega e apresenta o run-time 481, caso seja uma imagem .bmp criada por exemplo no paint ou baixada da internet carregam normalmente.

Erro:

Run-time ‘481’:
Invalid picture

linhas que de código que levam ao problema.

With myStream
            .Type = adTypeBinary
            .Open
            .Write myRecord.Fields(0).Value
            .Read
            .SaveToFile "C:\tmp.bmp", adSaveCreateOverWrite
            .Close
            myRecord.Close
        End With
        'linha do erro abaixo'
        ACTVCHAMADO.ImgAssinatura.Picture = LoadPicture("C:\tmp.bmp")

Criado 12 de fevereiro de 2020
Respostas 0
Participantes 1