PDA

View Full Version : سوال: کمک در مورد دور و نزدیک کدن روی عکس



oliya24
دوشنبه 17 آبان 1389, 11:04 صبح
دوستان ما این بحث رو تو یه تاپیک فرستادیم کسی به ما جواب درست نداد ممکنه یه نمونه کد

در این مورد برام بفرستید

به خدا گیر کرد م وفوریه اگه ممکنه در مورد دور و نزدیک کردن روی عکس به ما کمک کنید

متشکرم

ali_najari
دوشنبه 17 آبان 1389, 12:00 عصر
دوست عزیز شما باید از تابع Resize استفاده کنید یا اینکه سایز PictureBox رو تغییر بدید

من تابع Resize رو برات میزارم که خروجی اون یک Image هست

البته ورودی هاش هم Image هست و سازی که میخواید عکس رو تغییر بدهید



Private Function resizeImage(ByVal imgToResize As Image, ByVal size As Size) As Image

Dim sourceWidth As Integer = imgToResize.Width
Dim sourceHeight As Integer = imgToResize.Height
Dim nPercent As Single = 0
Dim nPercentW As Single = 0
Dim nPercentH As Single = 0
nPercentW = (CSng(size.Width) / CSng(sourceWidth))
nPercentH = (CSng(size.Height) / CSng(sourceHeight))

If nPercentH < nPercentW Then
nPercent = nPercentH
Else
nPercent = nPercentW
End If

Dim destWidth As Integer = CInt(Math.Truncate(sourceWidth * nPercent))
Dim destHeight As Integer = CInt(Math.Truncate(sourceHeight * nPercent))
Dim b As Bitmap = New Bitmap(destWidth, destHeight)
Dim g As Graphics = Graphics.FromImage(DirectCast(b, Image))
g.DrawImage(imgToResize, 0, 0, destWidth, destHeight)
g.Dispose()
Return DirectCast(b, Image)
End Function

Saman_12
دوشنبه 17 آبان 1389, 14:50 عصر
اگه منظور شما تغییر سایز تصاویر هستش که این کد راحت ترین راه ممکن هست :

Dim Bmp As New Bitmap(OldImag, New Size(W_Size, H_Size))

ali_najari
دوشنبه 17 آبان 1389, 17:15 عصر
اگه منظور شما تغییر سایز تصاویر هستش که این کد راحت ترین راه ممکن هست :

Dim Bmp As New Bitmap(OldImag, New Size(W_Size, H_Size))

دوست عزیز من اون کدی رو که گذاشتم عکس رو بر اساس اون Scale میکنه و سایز عکس رو به نسبت طول و عرض تغییر میده