Select Case e.Path
Case "test.htm"
Dim wb As New WeUI
Dim txt As String = "由各种物质组成的巨型球状天体,叫做星球.星球有一定的形状,有自己的运行轨道."
'增加三个页面,一个按钮
With wb.AddTabBar("", "tb1", 1)
.AddPage("page1", "微信", "./images/button.png")
.AddPage("page2", "通讯录", "./images/msg.png")
.AddPage("page3", "发现", "./images/article.png")
.AddButton("bt1", "我", "./images/cell.png", "http://www.foxtable.com")
End With
'为第一个页面增加内容
With wb.AddButtonGroup("page1", "btg1")
.Add("btn1", "按钮1", "button").Attribute = "onclick=""hide('page12');hide('page13');show('page11')"""
.Add("btn2", "按钮2", "button").Attribute = "onclick=""hide('page11');hide('page13');show('page12')"""
.Add("btn3", "按钮3", "button").Attribute = "onclick=""hide('page11');hide('page12');show('page13')"""
End With
wb.AddPage("page1", "page11")
wb.AddPage("page1", "page12", False)
wb.AddPage("page1", "page13", False)
With wb.AddButtonGroup("page11", "btg2")
.Add("btn22", "这是第一页，点击显示第二页", "button").Attribute = "onclick=""hide('page11');hide('page13');show('page12')"""
End With
With wb.AddButtonGroup("page12", "btg3")
.Add("btn32", "这是第二页，点击显示第三页", "button").Attribute = "onclick=""hide('page11');hide('page12');show('page13')"""
End With
With wb.AddButtonGroup("page13", "btg4")
.Add("btn42", "这是第三页，点击显示第一页", "button").Attribute = "onclick=""hide('page12');hide('page13');show('page11')"""
End With
e.WriteString(wb.Build)
End Select
加好友 
发短信
Post By：2024/7/15 20:11:00 [显示全部帖子]
