|
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.AddTabBar("page2", "tb2", 1)
.AddPage("cpage1","微信","./images/button.png")
.AddPage("cpage2","通讯录","./images/msg.png")
.AddPage("cpage3","发现","./images/article.png")
.AddButton("cbt1","我","./images/cell.png","http://www.foxtable.com")
End With
'为第一个页面增加内容
wb.AddForm("cpage1","form1","test.htm")
With wb.AddInputGroup("form1","ipg1")
.AddInput("xm","户名","text")
.AddInput("mm","密码","password")
End With
With wb.AddButtonGroup("form1","btg1",True)
.Add("btn1", "确定", "submit")
End With
e.WriteString(wb.Build)
End Select
|
加好友 
发短信
Post By：2018/7/18 14:46:00 [只看该作者]
