- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]文字换图标 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=121080)
-- 发布时间：2018/6/28 18:10:00
-- [求助]文字换图标
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
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("时间")
.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("./images/button2.png","http://www.foxtable.com")
.AddFoot("./images/button3.png","http://www.foxtable.com")
我知道不是用AddFoot来实现,以上只是举例；
在指南里找不到有类似的，请问用什么实现？
效果图如下：
此主题相关图片如下：1530179824(1).png
-- 发布时间：2018/6/28 18:14:00
--
比如
.AddFoot("<b>文字</b>来源")
.AddFoot("时间<img src=\'/images/button1.png\'/>")
.AddFoot("|其他<lable style=\'color:red\'>信息</label>","http://www.foxtable.com")
-- 发布时间：2018/6/28 18:55:00
--
原来是这样...
明白，谢谢