- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 页面代码 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=97980)
-- 发布时间：2017/3/22 9:42:00
-- 页面代码
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
-- 发布时间：2017/3/22 10:50:00
--
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")
.Attribute = "style=\'height:20px\'"
End With
-- 发布时间：2017/3/22 10:58:00
--
图片到边怎么处理？
With wb.AddArticle("","ar1")
.AddImage("./images/001.jpg")
.Attribute = "style=\'padding-top:0px\'"
.Attribute = "style=\'padding-bottom:0px\'"
.Attribute = "style=\'padding-right:0px\'"
.Attribute = "style=\'padding-left:0px\'" ’只有这个生效了
End With
[此贴子已经被作者于2017/3/22 11:08:22编辑过]
-- 发布时间：2017/3/22 11:08:00
--
With wb.AddArticle("","ar1")
.AddImage("./test.jpg")
.Attribute = "style=\'padding:0;\'"
End With