Cómo exportar a BMP GIF en VB6

El Basic 6 lenguaje de programación Visual (Visual Basic 6) no incluye un control integrado para la conversión de archivos BMP a otros formatos de imagen. La exportación de un archivo BMP al formato GIF requiere que el programador para determinar el tamaño del archivo BMP, asignar memoria para la imagen y cargar el archivo BMP. Dado que el formato GIF admite imágenes con una resolución única de 8 bits, es necesario ajustar la resolución de la imagen antes de guardar el archivo GIF con el fin de exportar un archivo de imagen BMP al formato GIF.

Instrucciones

1 Haga clic en el botón "Inicio" de Windows y seleccione "Microsoft Visual Basic" en el menú "Todos los programas".

2 Haga clic en "Archivo", "Abrir" y abrir el programa de Visual Basic desde el que desea exportar un archivo de imagen BMP al formato GIF.

3 Agregue el código siguiente después de la línea "global" en su programa:

Private Sub mnuconvertBMPtoGIF_Click ()
tmpimage tenue Como imgdes
tmp2image tenue Como imgdes
rcode Dim As Long
Dim vbitcount As Long
colores tenues como de largo
Dim BDAT Como BITMAPINFOHEADER
Dim como secuencia bmp_fname
gif_fname Dim como secuencia
Const CR_TSDDIFF = 3

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

rcode = bmpinfo (bmp_fname, BDAT)
Si (rcode <> NO_ERROR) A continuación,

MsgBox "No file", 0, "Error"
Exit Sub

Terminara si

vbitcount = bdat.biBitCount
Si (vbitcount> = 16) A continuación,

vbitcount = 24

Terminara si

rcode = allocimage (tmpimage, bdat.biWidth, bdat.biHeight, vbitcount)
Si (rcode <> NO_ERROR) A continuación,

MsgBox "Insufficient memory", 0, "Error"
Exit Sub

Terminara si

rcode = loadbmp (bmp_fname, tmpimage)

Si (rcode <> NO_ERROR) A continuación,

freeimage tmpimage ' Free image on error
MsgBox "No file", 0, "Error"
Exit Sub

Terminara si

Si (vbitcount = 24) A continuación,

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

Terminara si

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

tmpimage FreeImage

End Sub

4 Haga clic en "Archivo", luego "Guardar" para añadir la función de exportación BMP a GIF en su programa.