PDA

View Full Version : چرخاندن عکس



shahrdar
دوشنبه 03 دی 1386, 05:38 صبح
من از rotateflip استفاده کردم ولی فقط درجه های خاص داره

برای مثال میخوام picturebox1 رو برابر با عکس picturebox2 با 45 درجه چرخش کنم
کسی میتونه کمکم کنه؟
جلو جلو ممنون

shahrdar
دوشنبه 03 دی 1386, 19:19 عصر
'سایز عکسی که می چرخانیم
Dim Im As New Bitmap(30, 30)
Dim Graph As Graphics = Graphics.FromImage(Im)
Dim matrix As New Drawing2D.Matrix
'i مقداری که میخوایم بگردونیم (به درجه)
'Point مرکز دوران
matrix.RotateAt(i, New Point(15, 15))
Graph.Transform = matrix
Graph.DrawImageUnscaled(PictureBox4.Image, 0, 0)
'خروجی
Pic.Image = Im
Pic.Refresh()