ايران ويج

صفحه‌ها: 1 2

همین کار را توی ویژوال بیسیک 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 در میاره

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

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

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

کد: 
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)

موفق باشي

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

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

صفحه‌ها: 1 2

omidgold

nokhodsiah2001

ajlajlajl

coloory