Foxtable(狐表)用户栏目专家坐堂 → [求助]文字换图标


  共有2161人关注过本帖树形打印复制链接

主题:[求助]文字换图标

美女呀,离线,留言给我吧!
OKK
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:407 积分:4268 威望:0 精华:0 注册:2016/11/22 19:30:00
[求助]文字换图标  发帖心情 Post By: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







以上代码,把文字换成小图标:
.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
图片点击可在新窗口打开查看


 回到顶部
美女呀,离线,留言给我吧!
OKK
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:407 积分:4268 威望:0 精华:0 注册:2016/11/22 19:30:00
  发帖心情 Post By:2018/6/28 18:55:00 [显示全部帖子]

原来是这样...
明白,谢谢图片点击可在新窗口打开查看

 回到顶部