Oggi vi voglio mettere a disposizione una funzione che passato il percorso di un file immagine Bitmap la converte in Jpeg.

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 .png

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

        'Ora salvo il file PNG

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

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

        ImgBMP.Dispose()

End Sub

By ImaginSystems & Queen Gin