Dim e As RequestEventArgs = args(0)
Dim wb As New weui
wb.Title = "******"
With wb.AddTabBar("", "tb1",0)
.AddButton("bt1","首页","./images/a.png","/index.htm")
.AddButton("bt2","服务","./images/b.png","/my.htm")
.Addpage("bt3","当前","./images/c.png")
End With
wb.AddPageTitle("bt3","pageheader","123","456")
wb.InsertHTML("bt3","<iframe frameborder=""0"" width=""100%"" height=""35%"" src=""https://v.qq.com/iframe/player.html?vid=d0646uk16ai&tiny=0&auto=0"" allowfullscreen></iframe>") '页面上下滑动时,腾讯视频界面滑动,总是慢一会,整体感觉不大好
e.WriteString(wb.Build)