VB.NET - Convertire un file immagine Bitmap in Gif (Codice)

 

Private Sub ConvertiFileBmpToFilePng(ByVal FileBMP As String)

        'Creo un oggetto di tipo Immagine Bitmap che contrrà l'immagine da convertire

        Dim ImgBMP As New Bitmap(FileBMP)

        'Prendo il nome del file cancello le ultime quattro caratteri .bmp e inserisco .gif

        Dim FileGIF As String = Strings.Left(FileBMP, Len(FileBMP) - 4) & ".gif"

        'Ora salvo il file GIF

        ImgBMP.Save(FilePNG, System.Drawing.Imaging.ImageFormat.Gif)

        'Distruggo lo spazzio di memoria occupato in precedenza, Dealloco la memoria dell'oggetto ImgBTMP

        ImgBMP.Dispose()

End Sub

By ImaginSystems & Queen Gin