以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  请蓝老师指点AddPanelGroup套AddPreview的问题  (http://foxtable.net/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里