以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp) --  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2) ----  请蓝老师指点AddPanelGroup套AddPreview的问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=174157)

--  作者：liufucan --  发布时间：2022/1/4 18:04:00 --  请蓝老师指点AddPanelGroup套AddPreview的问题 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)

--  作者：有点蓝 --  发布时间：2022/1/4 20:20:00 --   他们都是互相独立的，无法互相嵌套

--  作者：liufucan --  发布时间：2022/1/4 20:26:00 --   那我的目标怎么实现呢，不要AddPanelGroup，有多个AddPreview，怎么改代码呢

--  作者：有点蓝 --  发布时间：2022/1/4 20:37:00 --   用page：http://www.foxtable.com/mobilehelp/topics/0109.htm，放到一个page里