1.tabbar与addimage之间有一个很大的间隔
2.图片怎么样显示到边
Dim e As RequestEventArgs = args(0) '详情页面
Select Case e.Path
Case "details.htm"
Dim wb As New weui
With wb.AddTabBar("", "tb1", 1) '使用TabBar,增加4个按钮(注:页面可以增加,但不考虑)
.AddButton("bt1","返回","./images/a.jpg","http://www.foxtable.com")
.AddButton("bt2","记录","./images/b.jpg","http://www.foxtable.com")
.AddButton("bt3","设置","./images/c.jpg","http://www.foxtable.com")
.AddButton("bt4","我的","./images/d.jpg","/personal.htm")
End With
With wb.AddArticle("","ar1")
.AddImage("./images/001.jpg")
End With
wb.AddForm("","form1","details.htm")
With wb.AddInputGroup("form1","ipg1","TA的资料")
.AddInput("nianl","年龄","text")
With wb.AddButtonGroup("form1","btg1",False)
.Add("btn1", "111", "submit")
.Add("btn1", "222", "submit")
End With
End With
e.WriteString(wb.Build) '在客户端,生成网页
End Select
此主题相关图片如下：qq图片20170322093807333.png
加好友 
发短信
Post By：2017/3/22 9:42:00 [只看该作者]
