http://www.foxtable.com/mobilehelp/scr/0081.htm
按上面指南中的代码:
Dim fl As String = "d:\web\" & e.path
If filesys.FileExists(fl)
Dim idx As Integer = fl.LastIndexOf(".")
Dim ext As String = fl.SubString(idx)
Select Case ext
Case ".jpg",".gif",".png",".bmp",".wmf",".js",".css" ,".html",".htm",".zip",".rar"
e.WriteFile(fl)
Return '这里必须返回
End Select
End If
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
'为第一个页面增加内容
wb.AddForm("page1","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
'为第二个页面增加内容
With wb.AddPanelGroup("page2","pg1","图文组合列表")
.Add("pn1","标题一",txt,"./images/button.png","http://www.foxtable.com")
With .Add("pn2","标题二",txt,"./images/search.png")
.AddFoot("文字来源")
.AddFoot("时间")
.AddFoot("|其他信息","http://www.foxtable.com")
End With
.GroupFoot = "查看更多"
.GroupHref = "http://www.foxtable.com/"
End With
'为第三个页面增加内容
With wb.AddArticle("page3","ar1")
.AddTitle("h1","发现")
.AddTitle("h2","章标题")
.AddTitle("h3","1.1节标题")
.AddContent(txt)
.AddImage("./images/001.jpg")
.AddTitle("h3","1.2节标题")
.AddContent(txt)
.AddImage("./images/002.jpg")
End With
e.WriteString(wb.Build)
End Select
浏览器输入地址:http://192.168.1.199/TEST.HTM
打开页面后,如下图:
此主题相关图片如下:1529230234(1).png
TabBar显示从左到右是:微信、通讯录、发现、我
而第1页显示的,侧是“微信”这个页下的内容...
如果要显示“通讯录”这个页下的内容,侧需要点击TabBar上的“通讯录”,点击后如下图:
此主题相关图片如下:1529230549(1).png
那么,如果要实现
一打开网页地址:http://192.168.1.199/TEST.HTM
就
TabBar显示从左到右是:微信、通讯录、发现、我
第1页显示是“通讯录”这个页下的内容...
如下图:
此主题相关图片如下:1529230549(1).png
请问,如何实现?