我这里用chrome浏览器，不过系统是xp，浏览器版本 49.0.2623.112，更新时间：2016年04月08日，估计是浏览器不更新造成的，因为针对xp不升级了
代码：（我电脑上，只要页面大于屏幕高度，tabbar就回到界面以外）
Dim e As RequestEventArgs = args(0) '首页
Select Case e.Path
Case "index.htm"
Dim wb As New weui
With wb.AddTabBar("", "tb1", 1) '使用TabBar,增加4个按钮(注:页面可以增加,但不考虑)
.AddButton("bt1","首页","./images/a.png","http://www.foxtable.com")
.AddButton("bt2","记录","./images/b.png","http://www.foxtable.com")
.AddButton("bt3","设置","./images/c.png","http://www.foxtable.com")
.AddButton("bt4","我的","./images/d.png","/personal.htm")
.Attribute = "style='height:55px'"
End With
For i As Integer = 1 To 5
With wb.AddArticle("","ar" & i)
.AddImage("./images/00" & i & ".jpg")
.Attribute = "style='padding:0.5em;'"
End With
wb.AddForm("","form" & i,"test.htm")
With wb.AddInputGroup("form" & i,"ipg" & i)
.AddInput("xm" & i,"年龄","text")
.AddInput("pw" & i,"城市","text")
End With
With wb.AddButtonGroup("form" & i,"btg" & i,False)
.Add("btn1" & i, "查看TA的资料", "submit")
End With
Next
'With wb.AddButtonGroup("form1","btg4", False) '总是键值相同,暂屏蔽处理
'.Add("btns", "上一位").Kind = 1
'.Add("btnx", "下一位").Kind = 1
'End With
e.WriteString(wb.Build) '生成网页
End Select
[此贴子已经被作者于2017/4/4 20:13:07编辑过]
加好友 
发短信
Post By：2017/4/3 15:58:00 [只看该作者]
