主题：可不可以引用文件名做为图片的水印啊？

 可以。参考这一章，你想画什么都可以。

 

http://www.foxtable.com/help/topics/1482.htm

 

 参考代码

 

Dim img As Image = getimage("d:\test.jpg")
Dim g As Graphics = Graphics.FromImage(img)
Dim fnt As New Font("宋体",16)
Dim msg As String = "I Like Foxtable"
g.DrawString(msg,fnt,Brushes.Red,10,10)
img.Save("d:\test3.jpg")
g.Dispose()

For Each File As String In FileSys.GetFiles("C:\图片\")
    Dim f As Io.FileInfo =  FileSys.GetFileInfo(File)
    Dim r As Row = Tables("商品").AddNew
    r("ppp") = f.name
   
    Dim d As String = Tables("商品").Current("bh")
    Dim bh As String = Format(D,"MMddhhmm")
    Dim s As String = Tables("商品").Current("cn_name")
    Dim b As String = Tables("商品").Current("leaderid")
    Dim c As String = Tables("商品").Current("name2")
    Dim oo As String = Tables("商品").Current("length")
   
   
    Dim img As Image = getimage(file)
    Dim g As Graphics = Graphics.FromImage(img)
    Dim fnt As New Font("宋体",16)
    Dim msg As String = c
    g.DrawString(msg,fnt,Brushes.Red,10,10)
    img.Save(file)
    g.Dispose()
Next

无语

 

For Each File As String In FileSys.GetFiles("C:\图片\")
    Dim f As Io.FileInfo =  FileSys.GetFileInfo(File)
    Dim r As Row = Tables("商品").AddNew
    r("ppp") = f.name
   
    Dim d As String = Tables("商品").Current("bh")
    Dim bh As String = Format(D,"MMddhhmm")
    Dim s As String = Tables("商品").Current("cn_name")
    Dim b As String = Tables("商品").Current("leaderid")
    Dim c As String = Tables("商品").Current("name2")
    Dim oo As String = Tables("商品").Current("length")
   
   
    Dim img As Image = getimage(file)
    Dim g As Graphics = Graphics.FromImage(img)
    Dim fnt As New Font("宋体",16)
    Dim msg As String = s
    g.DrawString(msg,fnt,Brushes.Red,10,10)
    img.Save(file)
    g.Dispose()
Next

 

    g.DrawString(msg,fnt,Brushes.Red, img.Width - 10, Img.Height - 10)