تغییر سایز و فرمت عکس

[omidgold]

همین کار را توی ویژوال بیسیک 2008 چجوری میشه کرد
منظورم تغییر سایزه فقط

---

با کد زیر میتونید سایز عکس را تغییر بدین
کد را توی یک ماژول بز[ارید و از هر جای برنامه که خواستید فراخوانی کنید.

کد:

Public Function ResizePicture(ByVal picIn As Drawing.Image, ByVal Height As Integer, ByVal Width As Integer) As Drawing.Image
Dim picOut As Drawing.Image
Dim imgTemp As New Drawing.Bitmap(picIn, Width, Height)
picOut = imgTemp
Return picOut
End Function

مثلاً

کد:

PictureBox2.Image = ResizePicture(Image.FromFile("c:\image.jpg"), 150, 110)

عکس توی درایو c را به اندازه با ارتفاع 150 و عرض 110 در میاره

[nokhodsiah2001]

سلام دوست عزيز

براي تغيير اندازه كه دوستان فرمودند

اين هم براي تغيير فرمت

کد:

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

حالا براي تغيير يك كليد رو فرمت بذار و كد مقابل رو بر اساس نياز تعريف كن

کد:

'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)

موفق باشي

[ajlajlajl]

اینجا انجمن vb6 نه .net

[coloory]

سلام
دوستان من توی پیکچر باکس یه تصویر رو نمایش میدم ولی چون تصویر خیلی بزرگ هست از کادر میزنه بیرون و قسمتهایی از عکس که از کادر خارج شده دیده نمیشه
ممنون میشم راهنمایی کنید
موفق باشید