|
Le langage Visual Basic 6 de programmation ( VB6 ) ne comporte pas de contrôle intégré pour convertir des fichiers BMP à d'autres formats d'image. L'exportation d'un fichier BMP au format GIF nécessite le programmeur afin de déterminer la taille du fichier BMP, allouer de la mémoire pour l'image et chargez le fichier BMP . Comme le format GIF ne supporte que les images d'une résolution de 8 bits , vous devez régler la résolution d'image avant d'enregistrer le fichier GIF afin d'exporter un fichier image BMP au format GIF. Instructions
1 Cliquez sur le bouton "Démarrer " de Windows et sélectionnez " Microsoft Visual Basic " dans le menu " Tous les programmes" .
2 Cliquez " fichier "," ouvrir " et ouvrez le programme Visual Basic à partir de laquelle vous souhaitez exporter un fichier image BMP au format GIF.
3 Ajoutez le code suivant après " Global " ; ligne dans votre programme :
Private Sub mnuconvertBMPtoGIF_Click () de tmpimage As imgdesDim tmp2image Comme imgdesDim rcode Comme LongDim vbitcount Comme couleurs LongDim Comme LongDim BDAT Comme BITMAPINFOHEADERDim bmp_fname Comme StringDim gif_fname Comme StringConst CR_TSDDIFF = 3
bmp_fname = " test.bmp " gif_fname = " test.gif "
rcode = bmpinfo ( bmp_fname , BDAT ) Si ( rcode <> NO_ERROR ) ThenMsgBox "Aucun fichier ", 0, " ; erreur "Exit SubEnd Si
vbitcount = bdat.biBitCountIf ( vbitcount > = 16) = Thenvbitcount 24End Si
rcode = allocimage ( tmpimage , bdat.biWidth , bdat.biHeight , vbitcount ) Si ( rcode <> NO_ERROR ) ThenMsgBox " mémoire insuffisante ", 0 , "Erreur " Exit SubEnd Si
rcode = LoadBMP ( bmp_fname , tmpimage ) Si ( rcode <> NO_ERROR ) Thenfreeimage tmpimage « images sur errorMsgBox " Aucun fichier ", 0 , sortie « Error » SubEnd Si
( vbitcount = 24) = Thenrcode allocimage ( tmp2image , bdat.biWidth , bdat.biHeight , 8 ) Si ( rcode = NO_ERROR ) Thencolors = 256reduction_mode = CR_TSDDIFFrcode = convertrgbtopalex (couleurs, tmpimage , tmp2image , reduction_mode ) FreeImage tmpimagecopyimgdes tmp2image , tmpimageEnd IfEnd Si
rcode = savegifex ( gif_fname , tmpimage , 8, 0)
FreeImage tmpimage
End Sub
4 Cliquez sur "Fichier " puis "Enregistrer " pour ajouter la fonction d'exportation au format BMP GIF dans votre programme.
< br >
|
