给图片加文字水印
 
  Dim img As Image = Image.FromFile(FileName)
  Dim g = Graphics.FromImage(img)
  Dim MyFont = New Font("微软雅黑", Y)
  Dim MyBrush As New SolidBrush(Color.White)
  g.CompositingQuality = System.Drawing.Drawing2D.CompositingQuality.GammaCorrected
  g.DrawString(“水印文字”, MyFont, MyBrush, X, Y)

文字定位之前可以使用       Dim siF As SizeF = g.MeasureString(Me.TextBox7.Text, MyFont4)  先确定文字的尺寸，再计算文字的位置

给图片加图片水印

    Private Sub DrawImageWH(ByVal imgDest  as Bitmap, ByVal logoFileName As String, ByVal logoLeft As Integer, ByVal logoTop As Integer, ByVal logoOpacity As Single, ByVal W As Integer, ByVal H As Integer)
        logoImg = Image.FromFile(logoFileName)
        NewLogo = ImgReSize(logoImg.Clone, W, H)'根据需要调整Logo水印的尺寸

        Dim g As Graphics = Graphics.FromImage(imgDest)
        Dim matrixArray()() As Single = {
              New Single() {1, 0, 0, 0, 0},
              New Single() {0, 1, 0, 0, 0},
              New Single() {0, 0, 1, 0, 0},
              New Single() {0, 0, 0, logoOpacity, 0},
              New Single() {0, 0, 0, 0, 1}}
        Dim cMatrix As New Imaging.ColorMatrix(matrixArray)
        Dim imgAttr As New Imaging.ImageAttributes()
        imgAttr.SetColorMatrix(cMatrix, Imaging.ColorMatrixFlag.Default, Imaging.ColorAdjustType.Bitmap)
        Dim recDest As New Rectangle(logoLeft, logoTop, NewLogo.Width, NewLogo.Height)
        g.DrawImage(NewLogo, recDest, 0, 0, NewLogo.Width, NewLogo.Height, GraphicsUnit.Pixel, imgAttr)
        g.Dispose()
        PictureBox1.Image = imgDest
    End Sub

分享到： QQ空间 新浪微博 腾讯微博 微信 更多

发表评论 - 不要忘了输入验证码哦！
作者：	用户：  密码：   注册？ 验证：  防止恶意留言请输入问题答案：3*4=?
评论： 禁止表情 禁止UBB 禁止图片 识别链接 识别关键字	表  情