Πώς να εξαγάγετε ΚΠΔ σε εικόνες GIF σε VB6

Το Basic 6 γλώσσα προγραμματισμού Visual ( VB6 ) δεν περιλαμβάνουν ενσωματωμένο έλεγχο για τη μετατροπή αρχείων BMP σε άλλες μορφές εικόνας . Η εξαγωγή ενός αρχείου BMP σε μορφή GIF απαιτεί τον προγραμματιστή να καθορίσει το μέγεθος του αρχείου BMP , την εκχώρηση μνήμης για την εικόνα και να φορτώσετε το αρχείο BMP . Δεδομένου ότι η μορφή GIF υποστηρίζει εικόνες υψηλής ανάλυσης μόνο 8 - bit , θα πρέπει να ρυθμίσετε την ανάλυση της εικόνας πριν από την αποθήκευση του αρχείου GIF για να εξαγάγετε ένα αρχείο εικόνας BMP σε μορφή GIF . Οδηγίες
Η

1 Κάντε κλικ στο κουμπί " Έναρξη " των Windows και επιλέξτε "Microsoft Visual Basic" από το μενού " Όλα τα προγράμματα " . 2

Κάντε κλικ στο " File "," Open " και ανοίξτε το πρόγραμμα της Visual Basic από την οποία θέλετε να εξαγάγετε ένα αρχείο εικόνας BMP σε μορφή GIF .
εικόνων 3

Προσθέστε τον ακόλουθο κώδικα μετά το" Global " ? γραμμή στο πρόγραμμά σας :

Private Sub mnuconvertBMPtoGIF_Click ( ) Dim tmpimage Όπως imgdesDim tmp2image Όπως imgdesDim rcode Όπως LongDim vbitcount Όπως LongDim χρώματα Όπως LongDim BDAT Όπως BITMAPINFOHEADERDim bmp_fname Όπως StringDim gif_fname Όπως StringConst CR_TSDDIFF = 3

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

rcode = bmpinfo ( bmp_fname , BDAT ) Αν ( rcode <> NO_ERROR ) ThenMsgBox " Δεν υπάρχει αρχείο " , 0 " ? Error "Έξοδος SubEnd Αν

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

rcode = allocimage ( tmpimage , bdat.biWidth , bdat.biHeight , vbitcount ) Αν ( rcode <> NO_ERROR ) ThenMsgBox " Η μνήμη δεν επαρκεί " , 0 , " Σφάλμα " Έξοδος SubEnd Αν

rcode = loadbmp ( bmp_fname , tmpimage ) Αν ( rcode <> NO_ERROR ) Thenfreeimage tmpimage « Δωρεάν εικόνα για errorMsgBox " Δεν υπάρχει αρχείο " , 0 , " Σφάλμα "Έξοδος SubEnd Αν

Αν ( vbitcount = 24 ) Thenrcode = allocimage ( tmp2image , bdat.biWidth , bdat.biHeight , 8 ) Αν ( rcode = NO_ERROR ) Thencolors = 256reduction_mode = CR_TSDDIFFrcode = convertrgbtopalex ( χρώματα , tmpimage , tmp2image , reduction_mode ) FreeImage tmpimagecopyimgdes tmp2image , tmpimageEnd IfEnd Αν

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

FreeImage tmpimage

End Sub
Η

4 Κάντε κλικ στο " Αρχείο " και στη συνέχεια " Save" για να προσθέσετε το BMP να GIF λειτουργία εξαγωγής στο πρόγραμμά σας .


εικόνων