以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  ExWeUI的列表 list组件，当列表项增加脚注的语法使用AddFoot(Text, Href)时，也就是增加href属性时，生成的网页会乱  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=183503)
--  作者：百灵
--  发布时间：2022/11/7 20:50:00
--  ExWeUI的列表 list组件，当列表项增加脚注的语法使用AddFoot(Text, Href)时，也就是增加href属性时，生成的网页会乱

ExWeUI的列表 list组件，当列表项增加脚注的语法使用AddFoot(Text, Href)时，也就是增加href属性时，生成的网页会乱，修正一下。如图
图片点击可在新窗口打开查看此主题相关图片如下：政务微信截图_16678250509730.png
图片点击可在新窗口打开查看
--  作者：有点蓝
--  发布时间：2022/11/7 21:52:00
--  
贴出组件完整代码看看，href属性设置了什么内容？这里不能再添加a标签
--  作者：百灵
--  发布时间：2022/11/7 22:28:00
--  
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  
            Next  
            wb.InsertHTML(.BuildHtml)  
        End With  
        wb.AppendHTML("<script>initExWeUI();</script>")  
        e.WriteString(wb.Build)  
End Select
--  作者：百灵
--  发布时间：2022/11/7 22:29:00
--  

帮助中是这样的。

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

AddFoot(Text,)
AddFoot(Text, Href)

 Text  脚注内容
 Href

是帮助错了吗？		  可选参数，单击脚注要跳转到的目标URL。
--  作者：有点蓝
--  发布时间：2022/11/7 22:45:00
--  
是有问题，已反馈
--  作者：百灵
--  发布时间：2022/11/9 11:14:00
--  

使用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