http://www.foxtable.com/mobilehelp/scr/0078.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.AddPanelGroup("","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
End With
With wb.AddPanelGroup("","pg2","文字组合列表")
.Add("pn1","标题一",txt) '普通列表
.Add("pn1","标题 二",txt,"","http://www.foxtable.com") '超链接
With .Add("pn2","标题三",txt) '带有子链接
.AddFoot("文字来源")
.AddFoot("时间")
.AddFoot("|其他信息","http://www.foxtable.com")
End With
.GroupFoot = "查看更多" '底部链接
.GroupHref = "http://www.foxtable.com/"
End With
e.WriteString(wb.Build) '生成网页
End Select
以上代码，把文字换成小图标：
.AddFoot("文字来源")
.AddFoot("时间")
.AddFoot("|其他信息","http://www.foxtable.com")
例如：
.AddFoot("./images/button1.png","http://www.foxtable.com")
.AddFoot("./images/button2.png","http://www.foxtable.com")
.AddFoot("./images/button3.png","http://www.foxtable.com")
我知道不是用AddFoot来实现,以上只是举例；
在指南里找不到有类似的，请问用什么实现？
效果图如下：
此主题相关图片如下：1530179824(1).png
加好友 
发短信
Post By：2018/6/28 18:10:00 [只看该作者]
