O Basic 6 linguagem de programação Visual ( VB6 ) não inclui um built-in de controle para a conversão de arquivos BMP para outros formatos de imagem . A exportação de um arquivo BMP para o formato GIF exige que o programador para determinar o tamanho do arquivo BMP, alocar memória para a imagem e carregar o arquivo BMP . Como o formato GIF suporta imagens com resolução de apenas 8 bits , você precisa ajustar a resolução da imagem antes de salvar o arquivo GIF para exportar um arquivo de imagem BMP para o formato GIF. Instruções
1
Clique no botão " Iniciar" do Windows e selecione " Microsoft Visual Basic " no menu "Todos os Programas " .
2
Clique " arquivo "," abrir " e abra o programa Visual Basic a partir do qual você deseja exportar um arquivo de imagem BMP para o formato GIF.
3
Adicione o seguinte código após " Global " , a linha em seu programa :
Private Sub mnuconvertBMPtoGIF_Click () tmpimage Dim imgdesDim tmp2image Como imgdesDim rcode Como LongDim vbitcount Como cores LongDim Como LongDim bdat Como BITMAPINFOHEADERDim bmp_fname Como StringDim gif_fname Como StringConst CR_TSDDIFF = 3
bmp_fname = " test.bmp " gif_fname = " Test.gif "
rcode = bmpinfo ( bmp_fname , bdat ) Se ( rcode < > NO_ERROR ) ThenMsgBox "No arquivo " , 0, " ; Erro "Exit SubEnd Se
vbitcount = bdat.biBitCountIf ( vbitcount > = 16) Thenvbitcount = 24End Se
rcode = allocimage ( tmpimage , bdat.biWidth , bdat.biHeight , vbitcount ) Se ( rcode < > NO_ERROR ) ThenMsgBox " memória insuficiente" , 0, "Erro " Exit SubEnd Se
rcode = loadbmp ( bmp_fname , tmpimage ) Se ( rcode < > NO_ERROR ) Thenfreeimage tmpimage "imagem livre em errorMsgBox " No arquivo ", 0 ," Erro "Exit SubEnd Se
Se ( vbitcount = 24) Thenrcode = allocimage ( tmp2image , bdat.biWidth , bdat.biHeight , 8) Se ( rcode = NO_ERROR ) Thencolors = 256reduction_mode = CR_TSDDIFFrcode = convertrgbtopalex ( cores , tmpimage , tmp2image , reduction_mode ) FreeImage tmpimagecopyimgdes tmp2image , tmpimageEnd IfEnd Se
rcode = savegifex ( gif_fname , tmpimage , 8, 0)
FreeImage tmpimage
End Sub
4
Clique em " Arquivo", depois em "Salvar" para adicionar a função de exportação para BMP GIF em seu programa.
< br >
