Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]图片旋转问题


  共有4202人关注过本帖树形打印复制链接

主题：[求助]图片旋转问题
帅哥哟，离线，有人找我吗？
pcxjxjhkw
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1791 积分：12764 威望：0 精华：1 注册：2013/7/18 15:51:00 		[求助]图片旋转问题  发帖心情 Post By：2015/3/16 9:24:00 [只看该作者]

如何将图片旋转指定角度？谢谢。
如：旋转1度。
 回到顶部
帅哥哟，离线，有人找我吗？
Bin
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00 		  发帖心情 Post By：2015/3/16 9:28:00 [只看该作者]


 回到顶部
帅哥哟，离线，有人找我吗？
pcxjxjhkw
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1791 积分：12764 威望：0 精华：1 注册：2013/7/18 15:51:00 		  发帖心情 Post By：2015/3/16 9:30:00 [只看该作者]

这个实例也是我做的，是旋转90，180，270度，
我现在想实现，旋转任意角度。
 回到顶部
帅哥哟，离线，有人找我吗？
Bin
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00 		  发帖心情 Post By：2015/3/16 9:35:00 [只看该作者]


 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2015/3/16 10:35:00 [只看该作者]

 呃，弄错了对象......汗.....

 

Dim bmpSource As Image = getimage("d:\test.jpg")
Dim bmpSrc As new Bitmap(bmpSource.Width, bmpSource.Height)
Dim g = Graphics.FromImage(bmpSrc)

Dim w As Integer = bmpSource.Width
Dim h As Integer = bmpSource.Height

g.TranslateTransform(w/2, h/2)
g.RotateTransform(20)
g.TranslateTransform(-w/2, -h/2)
g.DrawImage(bmpSource, 0, 0)

bmpSrc.Save("d:\test2.jpg")

g.Dispose()
bmpSrc.Dispose
 回到顶部
帅哥哟，离线，有人找我吗？
pcxjxjhkw
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1791 积分：12764 威望：0 精华：1 注册：2013/7/18 15:51:00 		  发帖心情 Post By：2015/3/16 15:14:00 [只看该作者]

甜老师，按你的方法，存在的一个问题，旋转后图片的四角被截了，不能完整显示。

 回到顶部
帅哥哟，离线，有人找我吗？
pcxjxjhkw
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1791 积分：12764 威望：0 精华：1 注册：2013/7/18 15:51:00 		  发帖心情 Post By：2015/3/16 15:29:00 [只看该作者]

甜老师，我在网上找到如下代码，如何转换成狐表代码？  或者封成一个内部函数。谢谢
     /// <summary>
        /// 任意角度旋转
        /// </summary>
        /// <param name="bmp">原始图Bitmap</param>
        /// <param name="angle">旋转角度</param>
        /// <param name="bkColor">背景色</param>
        /// <returns>输出Bitmap</returns>
        public static Bitmap KiRotate(Bitmap bmp, float angle, Color bkColor)
        {
            int w = bmp.Width + 2;
            int h = bmp.Height + 2;

            PixelFormat pf;

            if (bkColor == Color.Transparent)
            {
                pf = PixelFormat.Format32bppArgb;
            }
            else
            {
                pf = bmp.PixelFormat;
            }

            Bitmap tmp = new Bitmap(w, h, pf);
            Graphics g = Graphics.FromImage(tmp);
            g.Clear(bkColor);
            g.DrawImageUnscaled(bmp, 1, 1);
            g.Dispose();
            GraphicsPath path = new GraphicsPath();
            path.AddRectangle(new RectangleF(0f, 0f, w, h));
            Matrix mtrx = new Matrix();
            mtrx.Rotate(angle);
            RectangleF rct = path.GetBounds(mtrx);

            Bitmap dst = new Bitmap((int)rct.Width, (int)rct.Height, pf);
            g = Graphics.FromImage(dst);
            g.Clear(bkColor);
            g.TranslateTransform(-rct.X, -rct.Y);
            g.RotateTransform(angle);
            g.InterpolationMode = InterpolationMode.HighQualityBilinear;
            g.DrawImageUnscaled(tmp, 0, 0);
            g.Dispose();
            tmp.Dispose();
            return dst;
   }
[此贴子已经被作者于2015/3/16 15:30:02编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2015/3/16 15:35:00 [只看该作者]

Dim bmpSource As Image = getimage("d:\test.jpg")
Dim w As Integer = bmpSource.Width
Dim h As Integer = bmpSource.Height

Dim angle As Double = -20
Dim a As Double = angle Mod 360


Dim radian As Double = a * Math.PI / 180.0
Dim cos As Double = Math.Cos(radian)
Dim sin As Double = Math.Sin(radian)

Dim newW As Integer = Math.Max(Math.Abs(w * cos - h * sin), Math.Abs(w * cos + h * sin))
Dim newH As Integer = Math.Max(Math.Abs(w * sin - h * cos), Math.Abs(w * sin + h * cos))

Dim bmpSrc As new Bitmap(newW, newH)
Dim g = Graphics.FromImage(bmpSrc)

g.TranslateTransform(newW/2, newH/2)
g.RotateTransform(angle)
g.TranslateTransform(-newW/2, -newH/2)
Dim x As Integer = (newW-w)/2
Dim y As Integer = (newH-h)/2
g.DrawImage(bmpSource, x, y, w, h)

bmpSrc.Save("d:\test2.jpg")

g.Dispose()
bmpSrc.Dispose

 
 回到顶部
帅哥哟，离线，有人找我吗？
pcxjxjhkw
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1791 积分：12764 威望：0 精华：1 注册：2013/7/18 15:51:00 		  发帖心情 Post By：2015/3/16 15:47:00 [只看该作者]

甜老师，又出现新问题，执行下面的代码时，图片框的图片显示越来越小。
Dim pic As WinForm.PictureBox = e.Form.Controls("图片编辑框")

'Dim bmpSource As Image = getimage(pic.ImageFile)
Dim bmpSource As Image = pic.Image
MessageBox.Show(pic.ImageFile)
Dim w As Integer = bmpSource.Width
Dim h As Integer = bmpSource.Height
Dim angle As Double = 20
Dim a As Double = angle Mod 360

Dim radian As Double = a * Math.PI / 180.0
Dim cos As Double = Math.Cos(radian)
Dim sin As Double = Math.Sin(radian)
Dim newW As Integer = Math.Max(Math.Abs(w * cos - h * sin), Math.Abs(w * cos + h * sin))
Dim newH As Integer = Math.Max(Math.Abs(w * sin - h * cos), Math.Abs(w * sin + h * cos))
Dim bmpSrc As new Bitmap(newW, newH)
Dim g = Graphics.FromImage(bmpSrc)
g.TranslateTransform(newW/2, newH/2)
g.RotateTransform(angle)
g.TranslateTransform(-newW/2, -newH/2)
Dim x As Integer = (newW-w)/2
Dim y As Integer = (newH-h)/2
g.DrawImage(bmpSource, x, y, w, h)
'bmpSrc.Save("d:\test.jpg")
g.Dispose()
'bmpSrc.Dispose
pic.Image = bmpSrc
 回到顶部
帅哥哟，离线，有人找我吗？
pcxjxjhkw
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1791 积分：12764 威望：0 精华：1 注册：2013/7/18 15:51:00 		  发帖心情 Post By：2015/3/16 15:49:00 [只看该作者]

另：如何定义颜色？
dim bkColo as ???
 回到顶部
总数 16 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.12500 秒, 4 次数据查询