ExWeUI的列表 list组件，当列表项增加脚注的语法使用AddFoot(Text, Href)时，也就是增加href属性时，生成的网页会乱 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

ExWeUI的列表 list组件，当列表项增加脚注的语法使用AddFoot(Text, Href)时，也就是增加href属性时，生成的网页会乱，修正一下。如图
图片点击可在新窗口打开查看此主题相关图片如下：政务微信截图_16678250509730.png

Select Case e.Path

Case "testlist"

Dim wb As New weui

wb.AppendHTML("<link rel='stylesheet' href='./weui/exweui.css'/>",True)

wb.AppendHTML("<script src='./weui/exweui.js' ></script>",True)

With ExWeUI.WebUI.AddListGroup("","lst01",1)

For i As Integer = 1 To 4

With .AddList("Foxtable数据库应用开发宝典数据管理","images/1.jpg")

With .LeftFooter

.AddFoot("￥49.00").Attribute = "style='color:red;font-size:15px'"

.AddFoot("￥99.00").Attribute = "style='font-size:12px;text-decoration: line-through;'"

End With

.RightFooter.AddFoot("加入购物车","http://www.baidu.com").Attribute = " style='color:blue;'"

End With

wb.InsertHTML(.BuildHtml)

End With

wb.AppendHTML("<script>initExWeUI();</script>")

e.WriteString(wb.Build)

End Select

帮助中是这样的。

列表项增加脚注的语法是：

AddFoot(Text,)
AddFoot(Text, Href)

Text	脚注内容
Href 是帮助错了吗？	可选参数，单击脚注要跳转到的目标URL。

使用Panel时如果Add和AddFoot同时设置href属性（如红色标识部分），同样会出现格式错乱的问题。

Panel主要用于图文组合列表显示。

一个例子

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"，"http://www.foxtable.com") '带子链接

                .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

主题：ExWeUI的列表 list组件，当列表项增加脚注的语法使用AddFoot(Text, Href)时，也就是增加href属性时，生成的网页会乱