 加好友  发短信
等级：超级版主
帖子：13837
积分：69650
威望：0
精华：0
注册：2016/11/1 14:42:00
|
 Post By：2017/6/15 15:06:00 [只看该作者]
Select Case e.Path
Case "test.htm" '首页
Dim wb As New WeUI
wb.AddPageTitle("","pageheader","WeUI","微信网页设计样式库")
With wb.AddGrid("","g1")
.Add("c2","Cell", "./images/cell.png", "http://www.foxtable.com")
.Add("c3","Toast", "./images/toast.png", "http://www.foxtable.com")
.Add("c4","Dialog", "./images/dialog.png", "http://www.foxtable.com")
.Add("c5","Progress", "./images/progress.png", "http://www.foxtable.com")
.Add("c6","Msg", "./images/msg.png", "http://www.foxtable.com")
.Add("c7","Article", "./images/article.png", "http://www.foxtable.com")
.Add("c8","ActionSheet", "./images/actionSheet.png", "http://www.foxtable.com")
.Add("c9","Icons", "./images/icons.png", "http://www.foxtable.com")
.Add("c10","Panel", "./images/panel.png", "http://www.foxtable.com")
.Add("c11","Tab", "./images/tab.png", "http://www.foxtable.com")
.Add("c12","SearchBar", "./images/search.png", "http://www.foxtable.com")
End With
wb.AppendHTML("<style>.weui_grid:before{border-bottom: 0px solid #000000;border-right: 0px solid #000000;}</style>")
'wb.AppendHTML("<script src='./lib/test.js'></script>") '引入脚本文件
e.WriteString(wb.Build) '生成网页
End Select
[此贴子已经被作者于2017/6/15 15:06:41编辑过]
|
|
