以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  如何设置移动开发中高亮显示的色值，目前手机上颜色很浅  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=102853)
--  作者：playmal
--  发布时间：2017/6/26 21:18:00
--  如何设置移动开发中高亮显示的色值，目前手机上颜色很浅
如题
--  作者：有点蓝
--  发布时间：2017/6/26 22:01:00
--  
Dim fl As String = "d:\\web\\" & e.path
If filesys.FileExists(fl)
    Dim idx As Integer = fl.LastIndexOf(".")
    Dim ext As String  = fl.SubString(idx)
    Select Case ext
        Case ".jpg",".gif",".png",".bmp",".wmf",".js",".css" ,".html",".htm",".zip",".rar"
            e.WriteFile(fl)
            Return \'这里必须返回
    End Select
End If
Select Case e.Path
    Case "table.htm"
        Dim wb As New WeUI
        wb.AppendHTML("<style>.fox_table tr.sel,.fox_table tr.alt,.fox_table td.sel{background-color:blue;color:#282828}</style>")
        With wb.AddTable("","Table1")
            .head.AddRow("部门","姓名","年龄","电话","地址") \'表头
            .body.AddRow("技术部","张三","36","110","中国北京") \'数据
            .body.AddRow("技术部","李四","38","110","中国上海")
            .body.AddRow("技术部","王五","39","110","中国深圳")
            .body.AddRow("生产部","赵六","39","110","中国深圳")
            .body.AddRow("生产部","刘七","39","110","中国深圳")
        End With
        e.WriteString(wb.Build)
End Select