以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- [求助]固定位置 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=120505) |
-- 作者:OKK -- 发布时间:2018/6/17 18:25:00 -- [求助]固定位置 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 打开页面后,如下图: TabBar显示从左到右是:微信、通讯录、发现、我 而第1页显示的,侧是“微信”这个页下的内容... 如果要显示“通讯录”这个页下的内容,侧需要点击TabBar上的“通讯录”,点击后如下图: 那么,如果要实现 一打开网页地址:http://192.168.1.199/TEST.HTM 就 TabBar显示从左到右是:微信、通讯录、发现、我 第1页显示是“通讯录”这个页下的内容... 如下图: 请问,如何实现? |
-- 作者:有点甜 -- 发布时间:2018/6/17 20:07:00 -- 参考
http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=115517&skin=0
|
-- 作者:OKK -- 发布时间:2018/6/17 20:32:00 -- 好,谢谢 |