主题：[求助]手机开发，页面背景颜色

1、参考 http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=101097&authorid=0&page=4&star=1

2、参考 https://www.baidu.com/baidu?wd=%E6%8B%BE%E8%89%B2%E5%99%A8

测试代码，代码写到最前面去。

        Dim wb As New weui
        With wb.AddListGroup("page1", "g1","")
            wb.InsertHTML("<style>")
            wb.InsertHTML("#header {")
            wb.InsertHTML("background-color:black;")
            wb.InsertHTML("color:white;")
            wb.InsertHTML("text-align:center;")
            wb.InsertHTML("padding:15px;")
            wb.InsertHTML("</style>")
            wb.InsertHTML("","<div id=""header"">")
            wb.InsertHTML("","<h3>考勤管理</h3>")
            wb.InsertHTML("</div>")
        End With
        With wb.AddTabBar("", "tb1", 0)
            .AddPage("page1","考勤","./images/jiabanjilu.jpg")
            .AddPage("page2","查询","./images/jiankangzhengming.jpg")
            .AddPage("page3","设置","./images/shezhi.jpg")
            .AddPage("page4","服务","./images/wodetubiao.jpg")
        End With
        '为第一个页面增加内容
        With wb.AddArticle("page1","pg1")
            .AddTitle("h2 align='center' style='margin-top:25px;color:Blue'","考勤管理")
           
        End With
       
        '为第二个页面增加内容
        With wb.AddArticle("page2","pg2")
            .AddTitle("h2 align='center' style='margin-top:25px;color:Blue'","请销假查询")
            With wb.AddListGroup("page2", "g2","")
                .Add("ls4","科室未审", "查询", "qingjiachaxun.htm", "./images/kaoqingchaxun.jpg")
                .Add("ls4","领导未批", "查询", "qxjsqshenpi.htm", "./images/kaoqingchaxun.jpg")
                .Add("ls4","科室未销", "查询", "xjkszhengming.htm", "./images/kaoqingchaxun.jpg")
            End With
        End With
        '为第三个页面增加内容
        With wb.AddArticle("page3","pg3")
            .AddTitle("h2 align='center' style='margin-top:25px;color:Blue'","系统设置")
            With wb.AddListGroup("page3", "g3","")
                .Add("ls7","修改密码", "修改", "xiugaimm.htm", "./images/xiugaimm.jpg")
                .Add("ls8","退出系统", "退出", "exit.htm", "./images/tuichuxitong.jpg")
            End With
        End With
       
        '为第四个页面增加内容
        With wb.AddArticle("page4","pg4")
            .UseGallery = True
            .AddTitle("h2","本系统由XXXXXXXXXXXXXXXX张春光开发,联系电话:13807363451")
            .AddTitle("h2","系统说明")
            .AddTitle("h2","本办公系统分为电脑版和手机版.电脑版大部分已经完成,手机版已完成考勤管理和从业人员体检部分,其它功能还在开发中,敬请期待!随时恭听大家的任何意见和建议.谢谢!")
            .AddImage("./images/zhangcg.jpg")
        End With
        e.WriteString(wb.Build)