以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  使用Panel时如果Add和AddFoot同时设置href属性(如红色标识部分),同样会出现格式错乱的问题。  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=183616)

--  作者:百灵
--  发布时间:2022/11/9 12:02:00
--  使用Panel时如果Add和AddFoot同时设置href属性(如红色标识部分),同样会出现格式错乱的问题。

使用Panel时如果Add和AddFoot同时设置href属性(如红色标识部分),同样会出现格式错乱的问题。建议修正。


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


--  作者:有点蓝
--  发布时间:2022/11/9 12:11:00
--  
因为出现了a标签的嵌套,这个不好改。避免使用这种用法