1
clic en el botón " Inicio" de Windows y seleccione " Microsoft Visual Basic " en el menú "Todos los programas " .
2
Click " archivo "," abrir " y abra el programa de Visual Basic desde el que desea exportar un archivo de imagen BMP al formato GIF.
3
Agregue el código siguiente después de" Global " , la línea en su programa :
Private Sub mnuconvertBMPtoGIF_Click () tmpimage As imgdesDim tmp2image Como imgdesDim rcode Como LongDim vbitcount Como colores LongDim Como LongDim BDAT Como BITMAPINFOHEADERDim bmp_fname Como StringDim gif_fname Como StringConst CR_TSDDIFF = 3
< p > bmp_fname = " test.bmp " gif_fname = " Test.gif "
rcode = bmpinfo ( bmp_fname , BDAT ) Si ( rcode < > NO_ERROR ) ThenMsgBox " No archivo" , 0, " , Error " Exit SubEnd Si
vbitcount = bdat.biBitCountIf ( vbitcount > = 16 ) = Thenvbitcount 24End Si
rcode = allocimage ( tmpimage , bdat.biWidth , bdat.biHeight , vbitcount ) Si ( rcode < > NO_ERROR ) " memoria insuficiente " ThenMsgBox , 0, "Error" Exit SubEnd Si
rcode = loadbmp ( bmp_fname , tmpimage ) Si ( rcode < > NO_ERROR ) Thenfreeimage tmpimage "imagen gratis en errorMsgBox " No archivo " , 0 , salida " Error " SubEnd Si
Si ( vbitcount = 24 ) = Thenrcode allocimage ( tmp2image , bdat.biWidth , bdat.biHeight , 8 ) If ( rcode = NO_ERROR ) Thencolors = 256reduction_mode = CR_TSDDIFFrcode = convertrgbtopalex ( colores, tmpimage , tmp2image , reduction_mode ) FreeImage tmpimagecopyimgdes tmp2image , tmpimageEnd IfEnd Si
rcode = savegifex ( gif_fname , tmpimage , 8 , 0 )
< p > FreeImage tmpimage
End Sub
4 Haga clic en " archivo", luego "Guardar " para agregar el BMP a GIF función de exportación en su programa.