' OriginalImage must already exit
Dim clonedImage As New Bitmap(OriginalImage.Width, OriginalImage.Height, OriginalImage.PixelFormat)
dim CenterPoint as PointF = new pointF(clonedImage.size.width/2,clonedimage.size.height/2)
dim WhereToDraw as new Rectangle(0,0,clonedimage.width,clonedimage.height)
dim Degrees as Single = 90.0F
dim m as New Drawing2D.Matrix
dim m.RotateAt(Degrees, CenterPoint)
dim g as Graphics = Grahpics.FromImage(clonedImage)
g.Transform = m
g.DrawImage(clonedImage,WheretoDraw)
g.Dispose
clonedimage.dispose
That works for me.
|