PDA

View Full Version : مبتدی: چرخش تصویر



earse+erse
پنج شنبه 06 اسفند 1388, 14:23 عصر
می خواستم بدونم چه جوری تو وی بی 9 تصویر رو بچر خونم؟
من تو این زبان مبتدیم!

با تشکر

amin_iman82
پنج شنبه 06 اسفند 1388, 15:08 عصر
این کمکتون میکنه.

ricky22
پنج شنبه 06 اسفند 1388, 15:15 عصر
کار این کد اینه که عکس مورد نظرتون رو Rotate ( چرخش ) میکنه .
اگه خواستید زاویه رو هم تغییر بدید توی اعدادی که داخل کد هست ، دست ببرید .

کد:
Dim Graphic As Graphics
Graphic = Me.CreateGraphics
'---------------------------
Dim DestPoint As Point() = {New Point(100, 0), New Point(260, 50), New Point(100, 200)}
'DestPoint = Destination Point
'----------------------------
'Adrese Aks Mored Nazare Khodetoon Ro Be Jaye ("c:\Your_Image.jpg") Bezarid .
Dim NewImage As Image = Image.FromFile("C:\Your_Image.jpg")
'-------------------------------------------------
Graphic.DrawImage(NewImage, DestPoint)

__________________

amin_iman82
پنج شنبه 06 اسفند 1388, 15:20 عصر
اینم یه کد کامل تر و ساده تر
فقط یک PictureBox روی فرم بذار.

برای چرخش به حالتهای مختلف ، پارامتر تابع RotateFlip رو عوض کن.
مسیر فایل رو هم یادت نره تغییر بدی.



Dim img As System.Drawing.Image
img = System.Drawing.Bitmap.FromFile("c:\Untitled.bmp")
img.RotateFlip(RotateFlipType.Rotate90FlipX)

PictureBox1.Image = img

Netsky
پنج شنبه 06 اسفند 1388, 15:32 عصر
سلام .
با تشکر از دوستانی که جواب دادند .
دوست عزیز قبل از این تاپیک ایجاد کنید یه جستجو میکردید .
برنامه چرخش تصویر در 16 حالت (http://barnamenevis.org/forum/showpost.php?p=887538&postcount=56)
موفق باشید ...........

earse+erse
شنبه 22 اسفند 1388, 12:54 عصر
دست همه درد نکنه

ولی من می خواستم مثلا با زاویه 23 درجه تصویر رو به سمت چپ بچرخونم

mostafa_shaeri_tj
دوشنبه 30 فروردین 1389, 00:18 صبح
سلام. دستتون بابت این کد درد نکنه.

اما من خواستم این کد رو واسه یه چیزی مثل کیلومتر سنج یا ساعت و... اینها استفاده کنم که متاسفانه مشکل بزرگی داره و اونم اینه که وقتی تصویر میچرخه کل مختصات left و top هم تغییر میکنه.


میخواستم سوال کنم چکار باید کرد تا از این کد برای چرخوندن عقربه ی ساعت استفاده کرد بدون اینکه left عکس تغییر کنه؟