Dim e As RequestEventArgs = args(0)
Dim wb As New weui
With ExWeUI.WebUI.AddPullRefresh("pr01","pullcallback2",0,5) '添加下拉刷新组件
.scrollid= "in01" '指定嵌套的滚动组件的ID
Dim html As String = "" '用于记录滚动加载组件的html代码
With ExWeUI.WebUI.AddExInfiniteScroll("in01","testcallback",0,8) '添加滚动加载组件
Dim wb2 As New weui '用于生成默认列表
With wb2.AddPanelGroup("","pg1","")
Dim txt As String = "由各种物质组成的巨型球状天体,叫做星球.星球有一定的形状,有自己的运行轨道."
'For i As Integer = 1 To 10
'.Add("pn1" & i,"标题" & i,txt,"./images/button.png","http://www.foxtable.com")
'Next
With wb2.AddPreview("pg1","pv2","付款金额","￥3400")
.AddItem("项目1","内容1")
.AddItem("项目2","内容2")
.AddItem("项目3", "电动打蛋机")
.Addbutton("辅助操作", "http://www.foxtable.com", 0)
.Addbutton("操作", "", 1, "")
End With
End With
.Content = wb2.BuildHtml("pg1") '设置默认显示的列表
html = .BuildHtml
End With
.Content = html '滚动加载组件html代码作为下拉刷新组件内部内容
wb.InsertHTML(.BuildHtml)
End With
e.WriteString(wb.Build)
加好友 
发短信
Post By：2022/1/4 18:04:00 [只看该作者]
