April 16
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.
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 "No file", 0, "Error"
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 "Insufficient memory", 0, "Error"
Exit Sub
Finisci se
RCODE = LoadBMP (bmp_fname, tmpimage)
Se (RCODE <> NO_ERROR) Poi
freeimage tmpimage ' Free image on error
MsgBox "No file", 0, "Error"
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.