主题：[求助]图片添加水印报错了

If e.DataCol.Name = "第二列" Then

    If e.OldValue Is Nothing AndAlso e.NewValue > "" Then

        Dim txt As String =  e.DataRow("第一列")

        

        Dim img As image = getImage(ProjectPath & "Attachments\" & e.NewValue)

        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)

        Dim semiTransBrush As new System.Drawing.SolidBrush(Color.FromArgb(120, 177, 171, 171))

        g.DrawString(txt, fnt, semiTransBrush, new PointF(0,0))

        bmp.save(ProjectPath & "Attachments\" & e.NewValue,img.RawFormat)

        bmp.Dispose

        semiTransBrush.Dispose

    End If

End