Visual Basic 6 programmeringssprog ( VB6 ) ikke indeholder en indbygget styring til konvertering BMP-filer til andre billedformater. Eksporten af en BMP-fil til GIF -formatet kræver, at programmøren at bestemme størrelsen af BMP-filen , allokere hukommelse for billedet, og indlæse BMP-fil . Da GIF-format understøtter kun 8-bit opløsning , er du nødt til at justere billedopløsningen før du gemmer GIF-fil med henblik på at eksportere en BMP billedfil til GIF-format . Instruktioner
1
Klik på "Start " knappen i Windows og vælg "Microsoft Visual Basic " fra " Alle programmer " menuen.
2
Klik på " File ", " Open " og åbne Visual Basic-program , hvorfra du ønsker at eksportere en BMP billedfil til GIF-format .
3
Føj følgende kode efter " Global " , linie i dit program : Hej
Private Sub mnuconvertBMPtoGIF_Click ( ) Dim tmpimage Som imgdesDim tmp2image Som imgdesDim RCODE Som LongDim vbitcount Som LongDim farver som LongDim bdat As BITMAPINFOHEADERDim bmp_fname Som StringDim gif_fname Som StringConst CR_TSDDIFF = 3 fotos
bmp_fname = " test.bmp " gif_fname = " test.gif "
RCODE = bmpinfo ( bmp_fname , bdat ) If ( RCODE < > NO_ERROR ) ThenMsgBox "Ingen fil " , 0, " , Fejl "Exit SubEnd Hvis
vbitcount = bdat.biBitCountIf ( vbitcount > = 16) Thenvbitcount = 24End Hvis
RCODE = allocimage ( tmpimage , bdat.biWidth , bdat.biHeight , vbitcount ) Hvis ( RCODE < > NO_ERROR ) ThenMsgBox " Utilstrækkelig hukommelse" , 0 , "Fejl " Exit SubEnd Hvis
RCODE = loadbmp ( bmp_fname , tmpimage ) If ( RCODE < > NO_ERROR ) Thenfreeimage tmpimage 'Free billede på errorMsgBox " Ingen fil " , 0 , "Fejl " Exit SubEnd Hvis
p Hvis ( vbitcount = 24) Thenrcode = allocimage ( tmp2image , bdat.biWidth , bdat.biHeight , 8 ) Hvis ( RCODE = NO_ERROR ) Thencolors = 256reduction_mode = CR_TSDDIFFrcode = convertrgbtopalex ( farver, tmpimage , tmp2image , reduction_mode ) FreeImage tmpimagecopyimgdes tmp2image , tmpimageEnd IfEnd Hvis
RCODE = savegifex ( gif_fname , tmpimage , 8, 0)
< p > FreeImage tmpimage
End Sub
4
Klik på " Filer" og derefter "Gem " for at tilføje BMP til GIF eksport funktion i dit program.
< br >