以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  打开页面的时候，能这样加水印吗？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=109133)
--  作者：zhangjian222200
--  发布时间：2017/11/4 23:24:00
--  打开页面的时候，能这样加水印吗？
会员情况a，照片a写上水印a
会员情况b，照片b写上水印b
--  作者：有点甜
--  发布时间：2017/11/5 22:26:00
--  

 你想问怎么样给图片加水印，处理后保存？

 

 截图说明你要做的效果，说明这样做的目的。
--  作者：zhangjian222200
--  发布时间：2017/11/6 11:09:00
--  
效果1：就是在图片的下方写上余约10个黑体的汉字，不需要保存，可以？
效果2：也不需要保存，比如写：身份认证通过等等，如下图:

图片点击可在新窗口打开查看此主题相关图片如下：qq图片2017110611024111.png
图片点击可在新窗口打开查看

[此贴子已经被作者于2017/11/6 11:10:22编辑过]
--  作者：有点甜
--  发布时间：2017/11/6 11:40:00
--  

 加入一层div即可

 

Select Case e.Path
    Case "test.htm",""
        Dim wb As New WeUI
        With wb.AddArticle("","ar1")
            .AddTitle("h1","大标题")
            .AddTitle("h2","章标题")
            .AddContent("Lorem ipsum dolor sit amet, consectetur adipisicing elit, sed do eiusmod tempor incididunt ut labore et dolore magna aliqua. Ut enim ad minim veniam, quis nostrud exercitation ullamco laboris nisi ut aliquip ex ea commodo consequat. Duis aute")
            .AddImage("./images/001.jpg")
            .AddTitle("h3","1.2节标题")
            .AddContent("Foxtable将Excel?Access?Foxpro?VB以及易表的优势融合在一起,无论是数据录入?查询?统计,还是报表生成,都前所未有的强大和易用,普通用户无需编写任何代码,即可轻松完成复杂的数据管理工作,真正做到拿来即用.")
            .AddImage("./images/002.jpg")
        End With
        wb.InsertHTML("<div style=""color: red;position: absolute;z-index: 100;filter: alpha(opacity=100);-moz-opacity: 1;opacity: 1;font-size: 159px; top: 0px;left: 0px;width: 100%;height: 100%;"">aaabbbccceeffgg</div>")
       
        e.WriteString(wb.Build) \'生成网页
End Select