- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- web界面问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=177932)
-- 发布时间：2022/6/10 16:14:00
-- web界面问题
老师，请教一下，手机端这样的界面用什么控件来做
此主题相关图片如下：qq截图20220610161325.jpg
-- 发布时间：2022/6/10 16:16:00
--
列表类的都可以：
http://www.foxtable.com/mobilehelp/topics/0076.htm
http://www.foxtable.com/mobilehelp/topics/0078.htm
http://www.foxtable.com/mobilehelp/topics/0085.htm
-- 发布时间：2022/6/10 17:57:00
--
这种有没简化的办法：
wb.InsertHTML("<style>.weui_panel {margin-top:0px;}</style>")
wb.InsertHTML("<style>.weui_media_box {padding:initial;height:40px;}</style>")
wb.InsertHTML("<style>.weui_media_box.weui_media_appmsg .weui_media_hd {width:30px;height:30px;}</style>")
wb.InsertHTML("<style>.weui_media_box.weui_media_text .weui_media_title {font-size:14px;margin-bottom:0px}</style>")
wb.InsertHTML("<style>.weui_media_box.weui_media_appmsg {padding-left:20px;padding-right:20px;}</style>")
wb.InsertHTML("<style>.weui_media_bd {padding-left:20px;padding-right:20px;}</style>")
-- 发布时间：2022/6/11 8:52:00
--
wb.InsertHTML("<style>.weui_panel {margin-top:0px;} .weui_media_box {padding:initial;height:40px;}</style>")
或者放到一个css文件里，直接引用文件
-- 发布时间：2022/6/13 12:18:00
--
老师，界面基本完成了，想实现点击上一周（显示上一周的排行），下一周（显示下一周的排行），怎么实现？按照分页显示没转换过来
此主题相关图片如下：11.jpg
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:代码.txt |
-- 发布时间：2022/6/13 13:33:00
--
Dim page As Integer = 0 \'默认page为0,显示第一页
Dim pageRows As Integer = 7 \'显示7天
If e.GetValues.ContainsKey("page") Then \'如果地址中有page参数
Integer.TryParse(e.GetValues("page"), page) \'提取page参数
End If
Dim StartRow As Integer = page * pageRows + 1 \'此页第一行
Dim EndRow As Integer = (page + 1) * pageRows \'此页最后一行
Dim d As Date = Date.Today.adddays(page * 7) \'获取今天的日期
Dim y As Integer = d.Year \'获取该年的年份
Dim m As Integer = d.Month \'获取该月的月份
Dim n As Integer = Date.DaysInMonth(y,m) \'判断一个月的天数
Dim dm1 As New Date(y, m, 1) \'获取该月的最后一天
Dim dm2 As New Date(y, m, Date.DaysInMonth(y,m)) \'获取该月的最后一天
Dim w As Integer = d.DayOfWeek \'算出今天是星期几
Dim dw1 As Date = d.AddDays(-w) \'获取本周的第一天
Dim dw2 As Date = d.AddDays(6 - w) \'获取本周的最后一天