De Visual Basic 6 programmeertaal ( VB6 ) niet beschikken over een ingebouwde controle voor het omzetten van BMP-bestanden naar andere beeldformaten . De uitvoer van een BMP- bestand naar het GIF- formaat vereist de programmeur om de grootte van het BMP-bestand bepalen , geheugen toewijzen voor het beeld en laad het BMP-bestand . Sinds het GIF-formaat ondersteunt alleen 8 - bit resolutie beelden , moet u de beeldresolutie aanpassen voordat het opslaan van het GIF-bestand om een BMP -bestand exporteren naar het GIF-formaat . Instructies
1 Klik op de knop 'Start' in Windows en selecteer " Microsoft Visual Basic " uit het menu " Alle Programma's" .
Click 2 " file "," Open " en open de Visual Basic -programma van waaruit u een BMP -bestand exporteren naar het GIF formaat .
3 Voeg de volgende code na " Global " ; lijn in uw programma : Private Sub mnuconvertBMPtoGIF_Click
( ) Dim tmpimage Zoals imgdesDim tmp2image Zoals imgdesDim rcode Zoals LongDim vbitcount Zoals LongDim kleuren Zoals LongDim BDAT Zoals BITMAPINFOHEADERDim bmp_fname Zoals StringDim gif_fname Zoals StringConst CR_TSDDIFF = 3
bmp_fname = " Test.bmp " gif_fname = " test.gif "
rcode = bmpinfo ( bmp_fname , BDAT ) Als ( rcode < > NO_ERROR ) ThenMsgBox " Geen bestand " , 0 , " ; Error " Exit SubEnd Als
vbitcount = bdat.biBitCountIf ( vbitcount > = 16 ) Thenvbitcount = 24End Als
rcode = allocimage ( tmpimage , bdat.biWidth , bdat.biHeight , vbitcount ) if ( rcode < > NO_ERROR ) ThenMsgBox " Onvoldoende geheugen " , 0 , "Fout " Exit SubEnd Als rcode = loadbmp ( bmp_fname , tmpimage ) Als ( rcode < > NO_ERROR ) Thenfreeimage tmpimage
' Gratis afbeelding op errorMsgBox " Geen bestand " , 0 , "Fout " Exit SubEnd Als
Als ( vbitcount = 24 ) Thenrcode = allocimage ( tmp2image , bdat.biWidth , bdat.biHeight , 8) Als ( rcode = NO_ERROR ) Thencolors = 256reduction_mode = CR_TSDDIFFrcode = convertrgbtopalex ( kleuren , tmpimage , tmp2image , reduction_mode ) freeimage tmpimagecopyimgdes tmp2image , tmpimageEnd IfEnd Als rcode = savegifex ( gif_fname , tmpimage , 8 , 0 ) op Twitter > freeimage tmpimage End Sub
4 Klik op " File ",
vervolgens " Opslaan " om de BMP naar GIF export-functie in uw programma toe te voegen .
< br >
|
