Oggi vi voglio mettere a disposizione una funzione che passato il percorso di un file immagine Bitmap la converte in Jpeg.
Private
Sub ConvertiFileBmpToFileJpg(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 .jpg
Dim FileJPG As String = Strings.Left(FileBMP,
Len(FileBMP) - 4) & ".jpg"
'Ora
salvo il file JPG
ImgBMP.Save(FileJPG, System.Drawing.Imaging.ImageFormat.Jpeg)
'Distruggo lo spazzio di memoria occupato in precedenza,
Dealloco la memoria dell'oggetto ImgBTMP
ImgBMP.Dispose()
End
Sub
By ImaginSystems & Queen Gin