Foxtable(狐表)用户栏目专家坐堂 → 如何给图片增加满屏水印


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

主题:如何给图片增加满屏水印

帅哥哟,离线,有人找我吗?
lxhmax
  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:405 积分:3868 威望:0 精华:0 注册:2012/8/2 19:04:00
如何给图片增加满屏水印  发帖心情 Post By:2020/3/27 14:46:00 [只看该作者]


下面这个是给图片增加一个水印,如果要给图片增加满屏的水印要怎么增加?

Dim file As String = "d:\123.jpg"
Dim txt As String = "我是水印文字"
Dim img As image = getImage(file)
Dim bmp  = new bitmap(img.Width, img.Height)
Dim g = graphics.fromimage(bmp)
g.DrawImage(img,0,0) ‘绘制原图片’
g.InterpolationMode = System.Drawing.Drawing2D.InterpolationMode.High
g.SmoothingMode = System.Drawing.Drawing2D.SmoothingMode.HighQuality
Dim fnt As new Font("微软雅黑", 60, FontStyle.Bold) ‘水印文字字体
Dim size = g.MeasureString(txt, fnt)
g.TranslateTransform((img.width-size.width)/2, img.Height - size.height - 50) '设置文字的绘制起点
g.RotateTransform(-45) '逆时针旋转45度
Dim semiTransBrush As new System.Drawing.SolidBrush(Color.FromArgb(120, 177, 171, 171)) '水印文字颜色,120是透明度,范围0~255
g.DrawString(txt, fnt, semiTransBrush, new PointF(0,0))
bmp.save("E:\问题\shuiyin.jpg",img.RawFormat)
bmp.Dispose
semiTransBrush.Dispose

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:46674 积分:236812 威望:0 精华:8 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/3/27 14:59:00 [只看该作者]

g.TranslateTransform((img.width-size.width)/2, img.Height - size.height+50) '设置文字的绘制起点
g.RotateTransform(-35) '逆时针旋转45度

 回到顶部