Der Visual Basic 6 Programmiersprache ( VB6 ) nicht enthalten eine integrierte Steuerung für die Umwandlung BMP -Dateien in andere Bildformate. Der Export von BMP-Datei zum GIF-Format muss der Programmierer die Größe der BMP-Datei bestimmen , Speicher für das Bild und laden Sie die BMP -Datei. Da das GIF -Format unterstützt nur 8 -Bit-Auflösung Bilder , müssen Sie die Bildauflösung vor dem Speichern der GIF-Datei , um eine BMP-Bilddatei zum GIF -Format zu exportieren einzustellen. Anleitung
1

Klicken Sie auf die Schaltfläche "Start" in Windows und wählen Sie " Microsoft Visual Basic " aus der " Alle Programme "-Menü.
2

Klicken Sie auf " Datei "," öffnen " und öffnen Sie den Visual Basic-Programm , aus dem Sie eine BMP-Bilddatei zum GIF -Format zu exportieren .
3

Fügen Sie den folgenden Code nach " Global " ; Zeile in Ihrem Programm :

private Sub mnuconvertBMPtoGIF_Click () Dim tmpimage Wie imgdesDim tmp2image Wie imgdesDim rcode Wie LongDim vbitcount Wie LongDim Farben Wie LongDim BDAT Wie BITMAPINFOHEADERDim bmp_fname Wie StringDim gif_fname Wie StringConst CR_TSDDIFF = 3

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

rcode = bmpinfo ( bmp_fname , BDAT ) If ( rcode <> NO_ERROR ) ThenMsgBox "Keine Datei " , 0, " ; Fehler "Exit SubEnd Wenn

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

rcode = allocimage ( tmpimage , bdat.biWidth , bdat.biHeight , vbitcount ) Wenn ( rcode <> NO_ERROR ) ThenMsgBox "Nicht genügend Speicher ", 0, "Fehler " Exit SubEnd Wenn

rcode = LoadBMP ( bmp_fname , tmpimage ) If ( rcode <> NO_ERROR ) Thenfreeimage tmpimage 'Free Bild auf errorMsgBox "Keine Datei " , SubEnd 0 , "Fehler " Exit Wenn

( vbitcount = 24 ) = Thenrcode allocimage ( tmp2image , bdat.biWidth , bdat.biHeight , 8 ) If ( rcode = NO_ERROR ) Thencolors = 256reduction_mode = CR_TSDDIFFrcode = convertrgbtopalex (Farben, tmpimage , tmp2image , reduction_mode ) freeimage tmpimagecopyimgdes tmp2image , tmpimageEnd IfEnd Wenn

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

freeimage tmpimage

End Sub
4

Klicken Sie auf " Datei" und dann auf "Speichern" , um die BMP in GIF -Export-Funktion hinzufügen, in Ihrem Programm.
< br >