主题：网页图片加载问题

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张，目前每次是一起加载的，就会出现拥堵，只显示名称，图片显示跟不上。

例子有分页加载的用法 ，参考一下：http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=94825

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

        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