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

做项目的时候。另存图片，并且在图片上克上水印，（水印的内容就是图片的名称）可以实现么？

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") 

如果我想用 cn_name做为水印的话下面的代码对么？

好像不对啊

还有想问一下，用原来的代码后 图片上显示 的 a2 ,a3 是什么意思啊？

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(s)
    Dim fnt As New Font("宋体",16)
    Dim msg As String = c
    g.DrawString(msg,fnt,Brushes.Red,10,10)
    img.Save(s)
    g.Dispose()
Next

感谢啊！！！！

在问一个问题啊？

坐标原点可以从右下角开始么？

点(Point)

一个点(Point)表示一个位置，定义一个点的语法是：

Dim 变量名 As New Point(x, y)

X表示点的水平坐标位置，y表示点的垂直位置，单位为像素，坐标原点为左上角。

区域()