Come esportare BMP in GIF in VB6

April 16

Come esportare BMP in GIF in VB6


Il Basic 6 linguaggio di programmazione Visual (VB6) non include un controllo built-in per la conversione di file BMP in altri formati di immagine. L'esportazione di un file BMP in 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 immagini ad alta risoluzione a soli 8-bit, è necessario regolare la risoluzione dell'immagine prima di salvare il file GIF, al fine di esportare un file di immagine BMP in formato GIF.

istruzione

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

2 Fare clic su "File", "Apri" e aprire il programma di Visual Basic da cui si desidera esportare un file di immagine BMP in formato GIF.

3 Aggiungere il seguente codice dopo la linea "Global" nel programma:

Private Sub mnuconvertBMPtoGIF_Click ()
tmpimage fioco come imgdes
tmp2image fioco come imgdes
rcode Dim As Long
Dim vbitcount As Long
colori Dim As Long
Dim BDAT Come BITMAPINFOHEADER
Dim bmp_fname As String
gif_fname Dim As String
Const CR_TSDDIFF = 3

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

RCODE = bmpinfo (bmp_fname, BDAT)
Se (RCODE <> NO_ERROR) Poi

MsgBox &quot;No file&quot;, 0, &quot;Error&quot;
Exit Sub

Finisci se

vbitcount = bdat.biBitCount
Se (vbitcount> = 16) Poi

vbitcount = 24

Finisci se

RCODE = allocimage (tmpimage, bdat.biWidth, bdat.biHeight, vbitcount)
Se (RCODE <> NO_ERROR) Poi

MsgBox &quot;Insufficient memory&quot;, 0, &quot;Error&quot;
Exit Sub

Finisci se

RCODE = LoadBMP (bmp_fname, tmpimage)

Se (RCODE <> NO_ERROR) Poi

freeimage tmpimage ' Free image on error
MsgBox &quot;No file&quot;, 0, &quot;Error&quot;
Exit Sub

Finisci se

Se (vbitcount = 24) Poi

rcode = allocimage(tmp2image, bdat.biWidth, bdat.biHeight, 8)
If (rcode = NO_ERROR) Then
colors = 256
reduction_mode = CR_TSDDIFF
rcode = convertrgbtopalex(colors, tmpimage, tmp2image, reduction_mode)
freeimage tmpimage
copyimgdes tmp2image, tmpimage
End If

Finisci se

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

tmpimage FreeImage

End Sub

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