以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  网页图片加载问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=174926)
--  作者：yifan3429
--  发布时间：2022/2/11 17:47:00
--  网页图片加载问题

http://yifan9108.oicp.net:35368/test2.htm

Select Case e.Path
    Case "test2.htm"
        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",4)
            For Each r As DataRow In DataTables("图库").DataRows
                With .AddList(r("文件名"),"http://yifan9108.oicp.net/city-pic$/pic/" & r("文件名"))
                   End With
            Next
            wb.InsertHTML(.BuildHtml)
        End With
        wb.AppendHTML("<script>initExWeUI();</script>")
        e.WriteString(wb.Build)
End Select

 

怎样到底了显示提示 已经到底了

每次加载9张，目前每次是一起加载的，就会出现拥堵，只显示名称，图片显示跟不上。
--  作者：有点蓝
--  发布时间：2022/2/12 8:49:00
--  
例子有分页加载的用法 ，参考一下：http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=94825
--  作者：yifan3429
--  发布时间：2022/2/12 19:47:00
--  
怎样到底了显示提示 已经到底了
--  作者：有点蓝
--  发布时间：2022/2/13 20:19:00
--  
        With ExWeUI.WebUI.AddListGroup("","lst01",4)
            For Each r As DataRow In DataTables("图库").DataRows
                With .AddList(r("文件名"),"http://yifan9108.oicp.net/city-pic$/pic/" & r("文件名"))
                   End With
            Next
            wb.InsertHTML(.BuildHtml)
        End With
wb.InsertHTML("<h3 align=\'center\' style=\'margin-top:5px\'>已经到底了</h3>")