以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp) --  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2) ----  如何给图片增加满屏水印  (http://foxtable.net/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度