تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
تحويل ال bmp إلى امتدادات صور آخرى
#1
كاتب الموضوع : AhmedEssawy

في القسم العام :


كود :
Imports System.IO.Path
Imports System.Drawing.Imaging
وفي الكود Function :


كود :
Public Function ConvertBMP(ByVal BMPFullPath As String, _
ByVal imgFormat As ImageFormat) As Boolean
Dim bAns As Boolean
Dim sNewFile As String
Try
'bitmap class in system.drawing.imaging
Dim objBmp As New Bitmap(BMPFullPath)
'below 2 functions in system.io.path
sNewFile = GetDirectoryName(BMPFullPath)
sNewFile &= GetFileNameWithoutExtension(BMPFullPath)
sNewFile &= "." & imgFormat.ToString
objBmp.Save(sNewFile, imgFormat)
bAns = True 'return true on success
Catch
bAns = False 'return false on error
End Try
Return bAns
End Function
'USAGE
'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)
}}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  طريقة تحويل صفحة في ملف Excel إلى DataSet RaggiTech 0 806 17-10-12, 10:09 PM
آخر رد: RaggiTech
  طريقة تحويل الصور الملونه الي صور ابيض واسود RaggiTech 0 863 17-10-12, 08:43 PM
آخر رد: RaggiTech
  مثال - تحويل التاريخ من ميلادي الى هجري وبالعكس في الفيجول دوت نت 2008 RaggiTech 0 1,205 17-10-12, 08:34 PM
آخر رد: RaggiTech
  كيفية تحويل DataTable إلى Object List RaggiTech 0 446 17-10-12, 07:27 PM
آخر رد: RaggiTech
  كيفية تحويل التاريخ من هجري إلى ميلادي - VB.net RaggiTech 0 1,876 17-10-12, 05:17 PM
آخر رد: RaggiTech
  تحويل ملف الورد الي Rtf- Html- Txt- Xml RaggiTech 0 379 17-10-12, 05:05 PM
آخر رد: RaggiTech

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم