以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  麻烦看一下是什么问题?  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=56009)

--  作者:jinzhengbe
--  发布时间:2014/8/27 17:36:00
--  麻烦看一下是什么问题?

问题出处 

 

图片上传窗口

 

问题1

按1次 下一步, 说是找不到 img的值 按两次会把水印印到图片上

 

问题2

印到图片上的 水印都是一样的, 和cn_name 不对应,麻烦看看是咋回事,

 

问题3

字体大小问题,因为图片的大小不同,所以(试验中发现,有的字体大,有的字体小)

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:ecs.foxdb

 

希望能得到解决方案,非常感谢狐表公司的所有工作人员的亲切指导!!!


--  作者:有点甜
--  发布时间:2014/8/27 17:56:00
--  

For Each File As String In FileSys.GetFiles("C:\\图片\\")
    Dim s As String = FileSys.GetName(File)
    Dim img As Image = getimage(file)
    Dim g As Graphics = Graphics.FromImage(img)
    Dim fnt As New Font("宋体",20)
    Dim sz As Object = g.MeasureString(s, fnt)
    g.DrawString(s,fnt,Brushes.Green, img.Width - sz.Width - 10, Img.Height - sz.Height - 10)
    img.Save(file)
    g.Dispose()
Next