Come esportare le BMP a GIF in VB6

Il Basic linguaggio di programmazione di Visual 6 ( VB6 ) non include un built-in di controllo per la conversione di file BMP in altri formati di immagine . L'esportazione di un file BMP al formato GIF richiede al programmatore di determinare la dimensione del file BMP , allocare memoria per l'immagine e caricare il file BMP . Dal momento che il formato GIF supporta solo immagini con risoluzione a 8 bit , è necessario regolare la risoluzione dell'immagine prima di salvare il file GIF per esportare un file di immagine BMP al formato GIF . Istruzioni
1

Fare clic sul pulsante "Start " di Windows e selezionare " Microsoft Visual Basic " del menu " Tutti i programmi " .
2

Click " File ", " Apri " e aprire il programma Visual Basic dalla quale si desidera esportare un file di immagine BMP al formato GIF .
3

Aggiungere il seguente codice dopo il " Global " , linea nel vostro programma :

private Sub mnuconvertBMPtoGIF_Click ( ) Dim tmpimage Come imgdesDim tmp2image Come imgdesDim RCODE Come LongDim vbitcount Come colori LongDim As LongDim BDAT As BITMAPINFOHEADERDim bmp_fname Come StringDim gif_fname Come StringConst CR_TSDDIFF = 3

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

RCODE = bmpinfo ( bmp_fname , BDAT ) Se ( RCODE < > NO_ERROR ) ThenMsgBox "Nessun file " , 0 , " , errore " Exit SubEnd Se

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

RCODE = allocimage ( tmpimage , bdat.biWidth , bdat.biHeight , vbitcount ) Se ( RCODE < > NO_ERROR ) ThenMsgBox "memoria insufficiente" , 0 , "Errore " Exit SubEnd Se

RCODE = LoadBMP ( bmp_fname , tmpimage ) Se ( RCODE < > NO_ERROR ) Thenfreeimage tmpimage ' immagine gratuita sui errorMsgBox "Nessun file " , 0 , "Errore " Exit SubEnd Se

( vbitcount = 24) Thenrcode = allocimage ( tmp2image , bdat.biWidth , bdat.biHeight , 8) Se ( RCODE = NO_ERROR ) Thencolors = 256reduction_mode = CR_TSDDIFFrcode = convertrgbtopalex (colori , tmpimage , tmp2image , reduction_mode ) FreeImage tmpimagecopyimgdes tmp2image , tmpimageEnd IfEnd Se

RCODE = savegifex ( gif_fname , tmpimage , 8 , 0 ) per

FreeImage tmpimage

End Sub
4

Fare clic su " File ", poi su " Salva" per aggiungere il BMP in funzione di esportazione GIF nel programma .

• Come creare un programma Visual Basic Utilizzo di un'istruzione if Else 
• Come faccio a fare un evento MouseClick utilizzando Visual Basic