Подскажите кто знает, как из PictureBox сохранить рисунок в файл в формате *.gif или *.jpg ?
Если использовать оператор SavePicture , то файл сохраняется только в формате *.bmp
Заранее спасибо.
CreateBitmapFromPicture(Picture1.Picture).SaveToJpeg "c:\output.jpg", 80
CreateBitmapFromPicture(Picture1.Picture).Save "c:\output.gif", "image/gif"
Imports System.IO.Path
Imports System.Drawing.Imaging
Public Function ConvertBMP(ByVal BMPFullPath As String, ByVal imgFormat As ImageFormat) As Boolean
Dim bAns As Boolean
Dim sNewFile As String
Try
'Класс bitmap из system.drawing.imaging
Dim objBmp As New Bitmap(BMPFullPath)
'Две функции из пространства system.io.path
sNewFile = GetDirectoryName(BMPFullPath)
sNewFile &= GetFileNameWithoutExtension(BMPFullPath)
sNewFile &= "." & imgFormat.ToString
objBmp.Save(sNewFile, imgFormat)
bAns = True 'Возвратить true если операция прошла успешно
Catch
bAns = False 'Возвратить false если произошла ошибка
End Try
Return bAns
End Function
'ИСПОЛЬЗОВАНИЕ
'ConvertBMP("C:\test.bmp", ImageFormat.Jpeg)
'ConvertBMP("C:\test.bmp", ImageFormat.Emf)
'ConvertBMP("C:\test.bmp", ImageFormat.Exif)
'ConvertBMP("C:\test.bmp", ImageFormat.Gif)
'ConvertBMP("C:\test.bmp", ImageFormat.Icon)
'ConvertBMP("C:\test.bmp", ImageFormat.MemoryBmp)
'ConvertBMP("C:\test.bmp", ImageFormat.Png)
'ConvertBMP("C:\test.bmp", ImageFormat.Tiff)
'ConvertBMP("C:\test.bmp", ImageFormat.Wmf)
KPEATOP писал(а):Подскажите кто знает, как из PictureBox сохранить рисунок в файл в формате *.gif или *.jpg ?
Если использовать оператор SavePicture , то файл сохраняется только в формате *.bmp
Заранее спасибо.
Сейчас этот форум просматривают: AhrefsBot, The trick, Yandex-бот и гости: 19