以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  如何给图片增加满屏水印  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=147931)

--  作者:lxhmax
--  发布时间: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

--  作者:有点蓝
--  发布时间:2020/3/27 14:59:00
--  
g.TranslateTransform((img.width-size.width)/2, img.Height - size.height+50) \'设置文字的绘制起点
g.RotateTransform(-35) \'逆时针旋转45度