Foxtable(狐表)用户栏目专家坐堂 → [求助]手机开发,页面背景颜色


  共有3049人关注过本帖树形打印复制链接

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

帅哥哟,离线,有人找我吗?
zcgmxf
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1653 积分:14702 威望:0 精华:0 注册:2014/6/6 8:42:00
[求助]手机开发,页面背景颜色  发帖心情 Post By:2018/1/29 10:33:00 [只看该作者]

老师好!有两个问题请教:
1、手机不用微信是否可以获取地理位置(我想通过Foxtable调用用于打卡)?
2、如何设置如图所示“微信(12)”的背景颜色?

谢谢!
图片点击可在新窗口打开查看此主题相关图片如下:screenshot_20180129-102812.png
图片点击可在新窗口打开查看
[此贴子已经被作者于2018/1/29 10:34:37编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
zhangjian222200
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1553 积分:11003 威望:0 精华:0 注册:2016/9/12 11:18:00
  发帖心情 Post By:2018/1/29 10:39:00 [只看该作者]

1.可以的,看我的帖子
http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=101097&page=4&star=6
2.不可以,我也问过相同的问题

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/1/29 10:46:00 [只看该作者]


 回到顶部
帅哥哟,离线,有人找我吗?
zcgmxf
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1653 积分:14702 威望:0 精华:0 注册:2014/6/6 8:42:00
  发帖心情 Post By:2018/1/29 16:20:00 [只看该作者]

老师,用下面的代码得到了下图所示的黑色部分,位于底端,如何把黑色部分放到上端?谢谢!
wb.InsertHTML("<html>")
            wb.InsertHTML("<head>")
            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("</head>")
            wb.InsertHTML("<body>")
            wb.InsertHTML("<div id=""header"">")
            wb.InsertHTML("<h3>考勤管理</h3>")
            wb.InsertHTML("</div>")
            wb.InsertHTML("</body>")
            wb.InsertHTML("</html>")


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

[此贴子已经被作者于2018/1/29 16:23:46编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/1/29 16:32:00 [只看该作者]

请贴出完整的测试代码。

 回到顶部
帅哥哟,离线,有人找我吗?
zcgmxf
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1653 积分:14702 威望:0 精华:0 注册:2014/6/6 8:42:00
  发帖心情 Post By:2018/1/30 6:36:00 [只看该作者]

Dim dr As DataRow = DataTables("乡镇体检人员").SQLFind("姓名 = '" & DecryptText(e.Cookies("zxygxm"),"121212121","121212121") & "'")
If dr Is Nothing Then
    '增加三个页面,一个按钮
    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'","考勤管理")
        With wb.AddListGroup("page1", "g1","")
            wb.InsertHTML("<html>")
            wb.InsertHTML("<head>")
            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("</head>")
            wb.InsertHTML("<body>")
            wb.InsertHTML("<div id=""header"">")
            wb.InsertHTML("<h3>考勤管理</h3>")
            wb.InsertHTML("</div>")
            wb.InsertHTML("</body>")
            wb.InsertHTML("</html>")
        End With
    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)
Else
    With wb.AddTabBar("", "tb2", 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'","体检登记")
        With wb.AddListGroup("page1", "g1","")
            .Add("ls1","体检登记", "登记", "upload.htm", "./images/jiankangzhengming.jpg")
            .Add("ls2","体检名单", "统计", "zizhutijiantongji.htm", "./images/zizhutijiandj.jpg")
        End With
    End With
    
    '为第二个页面增加内容
    With wb.AddArticle("page2","pg2")
        .AddTitle("h2 align='center' style='margin-top:25px;color:Blue'","体检结果记录")
        With wb.AddListGroup("page2", "g2","")
            .Add("ls1","采样登记", "采样", "zizhutijiancycx.htm","./images/zizhutijiancy.jpg")
            .Add("ls2","放射检查", "放射", "zizhutijianfscx.htm","./images/zizhutijianfs.jpg")
            .Add("ls3","内科外科", "内外", "zizhutijiannwkcx.htm","./images/zizhutijiannwk.jpg")
            .Add("ls4","检验结果", "检验", "zizhutijianjycx.htm","./images/zizhutijianjy.jpg")
        End With
    End With
    '为第三个页面增加内容
    With wb.AddArticle("page3","pg3")
        With wb.AddListGroup("page3", "g3","体检查询")
            .Add("ls7","新浪主页", "", "qxjsp", "./images/zizhutijiannwk.jpg")
            .Add("ls8","网易主页", "163.com", "qxjsp", "./images/tuichuxitong.jpg")
        End With
    End With
    '为第四个页面增加内容    
    With wb.AddArticle("page4","pg4")
        .AddTitle("h2 align='center' style='margin-top:25px;color:Blue'","系统设置")
        With wb.AddListGroup("page4", "g4","")
            .Add("ls7","修改密码", "修改", "xiugaimm.htm", "./images/xiugaimm.jpg")
            .Add("ls8","退出系统", "退出", "exit.htm", "./images/tuichuxitong.jpg")
        End With
    End With
    e.WriteString(wb.Build)
End If

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/1/30 8:53:00 [只看该作者]

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

 

        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)


 回到顶部
帅哥哟,离线,有人找我吗?
zcgmxf
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1653 积分:14702 威望:0 精华:0 注册:2014/6/6 8:42:00
  发帖心情 Post By:2018/7/14 8:50:00 [只看该作者]

老师,如何在 “考勤管理” 前面 加上一个图标 “<” 或 “x“  点击图标返回首页,这里假如 首页为 “test.htm " 

我已经做到 添加图标 打开网页了,但是不知道如何显示web images 中的图片 并且放到 考勤管理 的前面。

Dim e As RequestEventArgs = args(0)
Dim wb As New weui
With wb.AddListGroup("page1", "g1","")
    wb.InsertHTML("</body>")
    wb.InsertHTML("</html>")
    wb.InsertHTML("<style>")
    wb.InsertHTML("#header {")
    wb.InsertHTML("background-color:black;")
    wb.InsertHTML("color:white;")
    wb.InsertHTML("text-align:left;")
    wb.InsertHTML("padding:15px;")
    wb.InsertHTML("</style>")
    wb.InsertHTML("","<div id=""header"">")
    wb.InsertHTML("<a href='www.foxtable.com'>")
    wb.InsertHTML("<img border='1' src='/i/jiankangzhengming.jpg'/>")
    wb.InsertHTML("</a>")
    wb.InsertHTML("","<h3><考勤管理</h3>")
    wb.InsertHTML("</div>")
    wb.InsertHTML("</body>")
    wb.InsertHTML("</html>")
End With
[此贴子已经被作者于2018/7/14 9:17:16编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110592 积分:562856 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2018/7/14 9:43:00 [只看该作者]

.AddTitle("h2 align='center' style='margin-top:25px;color:Blue'","<a onclick='alert(""点击了&lt;"")'>&lt;</a>考勤管理")
[此贴子已经被作者于2018/7/14 9:43:37编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
zcgmxf
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1653 积分:14702 威望:0 精华:0 注册:2014/6/6 8:42:00
  发帖心情 Post By:2018/7/14 10:09:00 [只看该作者]

老师,这个好像不行。我是想要和 微信 顶端 那个效果。

    wb.InsertHTML("<img border='1' src='/i/jiankangzhengming.jpg' /<h2><考勤管理 </h2>")

上面的代码 可以打开连接,但是文字也可以打开,并且不知道 引用图片 设置字体颜色。

 回到顶部
总数 11 1 2 下一页