VBCoding Библиотека кодов Visual Basic .NET Мультимедиа Конвертирование bmp файла в другие форматы

Visual Basic .NET
Конвертирование bmp файла в другие форматы
Простая функция, позволяющая конвертировать bmp файлы в файлы другие графические форматы

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)

Источник: http://www.vbnet.ru/ 

 

Добавить комментарий


Защитный код
Обновить

 
VBCoding Библиотека кодов Visual Basic .NET Мультимедиа Конвертирование bmp файла в другие форматы  
Powered by Exponenta -