以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]微信中的表格能否加入图形字典?  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=111166)
--  作者：sqare
--  发布时间：2017/12/16 12:52:00
--  [求助]微信中的表格能否加入图形字典?
微信中的表格能否加入图形字典?如果能,如何添加?
--  作者：有点蓝
--  发布时间：2017/12/16 14:32:00
--  
手工创建表格，类似:http://www.foxtable.com/mobilehelp/scr/0068.htm

Select Case e.Path
    Case "table.htm"
        Dim wb As New WeUI
        wb.AppendHTML("<style>.mark{background-color:red; color:white;}</style>", True) \'添加样式
        With wb.AddTable("","Table1")
            .head.AddRow("部门","姓名","年龄","电话","地址")
            .body.AddRow("技术部","张三","36","110","中国北京") \'整行增加
            With .body.AddRow() 
                .AddCell("技术部") \'逐个单元格增加
                .AddCell("李四<img src = \'图片.jpg\' width=50 height=50>") 
                .AddCells("38","110") \'用AddCells可以一次添加多个单元格
                .AddCell("中国上海")
            End With
            .body.AddRow("技术部","王五","39","110","中国深圳") \'整行增加
        End With
        e.WriteString(wb.Build)
End Select
--  作者：sqare
--  发布时间：2017/12/16 16:35:00
--  
多谢了!!!!