Convertir un BMP en GIF
Emile
-
21 mars 2001 à 18:38
cs_slobberbone Messages postés 19 Date d'inscription jeudi 2 octobre 2003 Statut Membre Dernière intervention 21 juillet 2005 - 17 févr. 2004 à 10:52
cs_slobberbone Messages postés 19 Date d'inscription jeudi 2 octobre 2003 Statut Membre Dernière intervention 21 juillet 2005 - 17 févr. 2004 à 10:52
1 réponse
cs_slobberbone
Messages postés
19
Date d'inscription
jeudi 2 octobre 2003
Statut
Membre
Dernière intervention
21 juillet 2005
17 févr. 2004 à 10:52
17 févr. 2004 à 10:52
Dim strNomFichier As String
Dim strFichierFullPath As String = "C:\Documents and Settings\Alex\Mes documents\Mes images\test.bmp"
Public Sub Convertir()
Dim Convertisseur As New System.Drawing.Bitmap(strFichierFullPath)
Dim NouvelleExtension As String = ".gif"
Dim strNouveauFichier As String = String.Concat("C:\Documents and Settings\Alex\Mes documents\Mes images\test1.gif")
'Vérification si le fichier existe déja
If NouvelleExtension = Extension Or IO.File.Exists(strNouveauFichier) Then
MsgBox("Le fichier existe déjà. Choissisez un autre format d'image.", MsgBoxStyle.Critical, "Erreur lors de la création du fichier.")
'Si le fichier existe déja, la procédure ne se poursuit pas
Exit Sub
End If
'Convertir le fichier en un autre format selon l'extension cible
Select Case NouvelleExtension
Case ".gif"
Convertisseur.Save(strNouveauFichier, System.Drawing.Imaging.ImageFormat.Gif)
End Select
'Libère les ressources utilisées par Convertisseur
Convertisseur.Dispose()
voilà en esperant que ca t'aide!
c pas optimisé du tout mais c l'idée
c une partie d'un code convertissant une image en differents types d'où le "select case" !!!!
Alex
:)
Dim strFichierFullPath As String = "C:\Documents and Settings\Alex\Mes documents\Mes images\test.bmp"
Public Sub Convertir()
Dim Convertisseur As New System.Drawing.Bitmap(strFichierFullPath)
Dim NouvelleExtension As String = ".gif"
Dim strNouveauFichier As String = String.Concat("C:\Documents and Settings\Alex\Mes documents\Mes images\test1.gif")
'Vérification si le fichier existe déja
If NouvelleExtension = Extension Or IO.File.Exists(strNouveauFichier) Then
MsgBox("Le fichier existe déjà. Choissisez un autre format d'image.", MsgBoxStyle.Critical, "Erreur lors de la création du fichier.")
'Si le fichier existe déja, la procédure ne se poursuit pas
Exit Sub
End If
'Convertir le fichier en un autre format selon l'extension cible
Select Case NouvelleExtension
Case ".gif"
Convertisseur.Save(strNouveauFichier, System.Drawing.Imaging.ImageFormat.Gif)
End Select
'Libère les ressources utilisées par Convertisseur
Convertisseur.Dispose()
voilà en esperant que ca t'aide!
c pas optimisé du tout mais c l'idée
c une partie d'un code convertissant une image en differents types d'où le "select case" !!!!
Alex
:)