Ako exportovať BMP GIF vo VB6

Basic 6 programovací jazyk Visual ( VB6 ) neobsahuje vstavanou reguláciou pre konverziu BMP súborov do iných formátov súborov . Export do súboru BMP do formátu GIF vyžaduje programátor určiť veľkosť súboru BMP , alokovať pamäť pre obraz a načítať súbor BMP . Vzhľadom k tomu , formát GIF podporuje iba 8 - bitové rozlíšenie obrazu , budete musieť nastaviť rozlíšenie obrazu pred uložením súboru vo formáte GIF , aby bolo možné exportovať súbor obrázku BMP do formátu GIF . Pokyny dovolená 1

Kliknite na tlačidlo " Štart " vo Windows a vyberte " Microsoft Visual Basic " z menu " Všetky programy " .
2

Kliknite na " súbor " , " Otvoriť " a otvorte Visual Basic program , z ktorého chcete exportovať súbor obrázku BMP do formátu GIF .
3

Pridajte nasledujúci kód po " Global " , riadok v programe :

Private Sub mnuconvertBMPtoGIF_Click ( ) Dim tmpimage ako imgdesDim tmp2image ako imgdesDim RCODE ako LongDim vbitcount ako LongDim farby ako LongDim BDAT ako BITMAPINFOHEADERDim bmp_fname ako StringDim gif_fname ako StringConst CR_TSDDIFF = 3

bmp_fname = " test.bmp " gif_fname = " test.gif "

rcode = bmpinfo ( bmp_fname , BDAT ) Ak je ( rcode < > NO_ERROR ) ThenMsgBox " Žiadny súbor " , 0 , " , Error " Exit SubEnd Ak

vbitcount = bdat.biBitCountIf ( vbitcount > = 16 ) Thenvbitcount = 24End Ak

rcode = allocimage ( tmpimage , bdat.biWidth , bdat.biHeight , vbitcount ) je - li ( rcode < > NO_ERROR ) ThenMsgBox " Nedostatok pamäte " , 0 , " Error " Exit SubEnd Ak

rcode = loadbmp ( bmp_fname , tmpimage ) Ak je ( rcode < > NO_ERROR ) Thenfreeimage tmpimage " Voľný obraz na errorMsgBox " Žiadny súbor " , 0 , " Error " Exit SubEnd Ak

( vbitcount = 24 ) Thenrcode = allocimage ( tmp2image , bdat.biWidth , bdat.biHeight , 8 ) Ak je ( rcode = NO_ERROR ) Thencolors = 256reduction_mode = CR_TSDDIFFrcode = convertrgbtopalex ( farby , tmpimage , tmp2image , reduction_mode ) FreeImage tmpimagecopyimgdes tmp2image , tmpimageEnd IfEnd Ak

rcode = savegifex ( gif_fname , tmpimage , 8 , 0 )

FreeImage tmpimage

End Sub
4

Kliknite na " Súbor " a potom " Uložiť " pridať BMP do GIF exportné funkcie vo vašom programe .

• Predchádzajúca strana: Ako vytvoriť Visual Basic program pomocou if else 
• Ďalšia strana: Ako mám vykonať MouseClick udalosti pomocou jazyka Visual Basic ?