[求助]图片添加水印报错了 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

我在BeforeAttachFile里写这段代码，结果报错了

        Dim file As String = e.FileName
        Dim txt As String = e.DataRow("第一列")
        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)
        Dim semiTransBrush As new System.Drawing.SolidBrush(Color.FromArgb(120, 177, 171, 171))
        g.DrawString(txt, fnt, semiTransBrush, new PointF(0,0))
        bmp.Dispose
        semiTransBrush.Dispose
        e.FileName=e.DataRow("第一列")
        e.SubFolder = e.DataRow("第三列")

[此贴子已经被作者于2019/10/25 20:09:00编辑过]

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