这是infinitescroll函数 ：
Dim e As RequestEventArgs = args(0)
Dim wb As New weui
wb.AppendHTML("<link rel='stylesheet' href='./weui/exweui.css'/>", True)
wb.AppendHTML("<script src='./weui/exweui.js' ></script>", True)
Dim drs As List(Of DataRow) = DataTables("聊天数据").SQLSelect("", 8, "[_Identify]")
With ExWeUI.WebUI.AddExInfiniteScroll("pr01", "pullcallback", 0, 8)
Dim wb2 As New weui '用于生成默认列表
With wb2.AddPanelGroup("", "pg1", "")
For Each dr As DataRow In drs
.Add( "用户名: " & dr("用户名"), "时间: " & dr("时间") & ", 聊天内容: " & dr("聊天内容"), "./images/button.png")
Next
End With
.Content = wb2.BuildHtml("pg1") '设置默认显示的列表
wb.InsertHTML(.BuildHtml)
End With
wb.InsertHTML(ExWeUI.WebUI.AddBackTop("bt01").BuildHtml)
wb.AppendHTML("<script>initExWeUI();</script>")
e.WriteString(wb.Build)
这是pullcallback函数：
Dim e As RequestEventArgs = args(0)
Dim wb As New weui
Dim json As String = e.PlainText
Dim jo2 As JObject = JObject.parse(json)
Dim drs As List(Of DataRow) = DataTables("聊天数据").SQLSelect("[_Identify] > " & jo2("max").ToString , 5 , "[_Identify]")
Dim jo As New JObject
jo("page") = CInt(jo2("page")) + 1 '模拟页数+1
jo("max") = CStr(drs(drs.Count - 1)("_Identify")) '模拟返回最大编号
If CInt(jo("page")) >= 3 Then'
jo("done") = True
Else
With wb.AddPanelGroup("", "pg1" & jo("page").ToString, "")
For Each dr As DataRow In drs
.Add( "用户名: " & dr("用户名"), "时间: " & dr("时间") & ", 聊天内容: " & dr("聊天内容"), "./images/button.png")
Next
End With
jo("html") = wb.BuildHtml("pg1" & jo("page").ToString)
End If
System.Threading.Thread.Sleep(500) '模拟费时的加载
e.WriteString(jo.ToString)
现在打开鼠标滚动会这样报错
此主题相关图片如下：qq截图20230525214628.png
[此贴子已经被作者于2023/5/25 21:49:09编辑过]
加好友 
发短信
Post By：2023/5/25 21:20:00 [只看该作者]
