Visual Basic 6 programmeringsspråk ( VB6 ) inte innehåller en inbyggd kontroll för att konvertera BMP-filer till andra bildformat . Exporten av en BMP -fil till GIF -formatet kräver att programmeraren att bestämma storleken på den BMP-fil , allokera minne för bilden och ladda BMP-fil . Eftersom GIF format stöder endast 8 - bitars upplösning , måste du justera bildens upplösning innan du sparar GIF-fil för att exportera en BMP -bildfil till GIF -format . Instruktioner
1
Klicka på "Start " -knappen i Windows och välj " Microsoft Visual Basic " från " Alla program " -menyn .
2
Klicka " File "," Open " och öppna Visual Basic-program som du vill exportera en BMP -bildfil till GIF -format . Addera 3
Lägg till följande kod efter " Global " , line i ditt program :
Private Sub mnuconvertBMPtoGIF_Click ( ) Dim tmpimage Som imgdesDim tmp2image Som imgdesDim RCODE Som LongDim vbitcount Som LongDim färger som LongDim BDAT As BITMAPINFOHEADERDim bmp_fname Som StringDim gif_fname Som StringConst CR_TSDDIFF = 3 bilder
bmp_fname = " test.bmp " gif_fname = " test.gif "
RCODE = bmpinfo ( bmp_fname , BDAT ) Om ( RCODE < > NO_ERROR ) ThenMsgBox " No file " , 0 , " , Fel " Exit SubEnd Om
vbitcount = bdat.biBitCountIf ( vbitcount > = 16 ) Thenvbitcount = 24End Om
RCODE = allocimage ( tmpimage , bdat.biWidth , bdat.biHeight , vbitcount ) Om ( RCODE < > NO_ERROR ) ThenMsgBox " Otillräckligt minne " , 0 , " Fel " Exit SubEnd Om
RCODE = loadbmp ( bmp_fname , tmpimage ) Om ( RCODE < > NO_ERROR ) Thenfreeimage tmpimage " Gratis bild på errorMsgBox " No file " , 0 , " Fel " Exit SubEnd Om
p Om ( vbitcount = 24 ) Thenrcode = allocimage ( tmp2image , bdat.biWidth , bdat.biHeight , 8 ) Om ( RCODE = NO_ERROR ) Thencolors = 256reduction_mode = CR_TSDDIFFrcode = convertrgbtopalex ( färger, tmpimage , tmp2image , reduction_mode ) freeimage tmpimagecopyimgdes tmp2image , tmpimageEnd IfEnd Om
RCODE = savegifex ( gif_fname , tmpimage , 8 , 0 ) katalog
freeimage tmpimage
End Sub
4
Klicka på " File" och sedan " Spara " för att lägga till BMP till GIF exportfunktion i ditt program .
Addera
