主题：亮度不够

比如

Select Case e.Path
    Case "test.htm",""
        Dim wb As New weui
        With wb.AddTable("","Table1")
            .Highlight = 0  '关闭高亮显示功能
            .RowHead = 1
            .head.AddRow("","部门","姓名","年龄","电话","地址")
            .body.AddRow("1","技术部","张三","36","110","中国北京")
            .body.AddRow("2","技术部","李四","38","110","中国上海")
            .body.AddRow("3","技术部","王五","39","110","中国深圳")
            .body.AddRow("4","生产部","赵六","39","110","中国深圳")
            .body.AddRow("5","生产部","刘七","39","110","中国深圳")
        End With
        wb.InsertHTML("<style>.fox_table tr.sel, .fox_table tr.alt, .fox_table td.sel{    background-color: red;}</style>")
        e.WriteString(wb.Build)
End Select

你没有用到weui？

http://www.foxtable.com/mobilehelp/scr/0011.htm