以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  求助：自动增加Panel内容  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=116210)
--  作者：yifan3429
--  发布时间：2018/3/21 11:45:00
--  求助：自动增加Panel内容
With wb.AddPanelGroup("","pg2","文字组合列表")
            .Add("pn1","标题一",txt) 
            .Add("pn1","标题二",txt,"","http://www.foxtable.com").Badge="新"
            With .Add("pn2","标题三",txt) 
                .Badge = "New"
                .AddFoot("文字来源")
                .AddFoot("时间")
                .AddFoot("|其他信息","http://www.foxtable.com")
            End With
        End With
        e.WriteString(wb.Build) \'生成网页
需要 根据表的行  自动增加

类似下面的做法
For Each dr As DataRow In DataTables("网页表").Select("版面 = \'轻奢系列\'") 
    .Add(dr("名称"),dr("标题"), dr("图标"), dr("网页链接"))
Next
[此贴子已经被作者于2018/3/21 11:45:53编辑过]
--  作者：有点甜
--  发布时间：2018/3/21 13:22:00
--  

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=116211&skin=0

 
--  作者：yifan3429
--  发布时间：2018/3/21 14:46:00
--  
http://www.foxtable.com/mobilehelp/
我是要这种版面
和2楼不一样
--  作者：有点甜
--  发布时间：2018/3/21 15:44:00
--  
和2楼一样的思路处理，不会做上传实例说明。
--  作者：yifan3429
--  发布时间：2018/3/21 16:59:00
--  
搞定
可以增加折叠功能吗
 wb.AddPageTitle("","pageheader100","产品目录","艾迪尔品牌木作")
                With wb.AddGrid("","g1")
                    With wb.AddPanelGroup("","pg1","轻奢系列")
                        For Each dr As DataRow In DataTables("网页表").Select("版面 = \'轻奢系列\'")
                            .Add(dr("名称"),dr("标题"),dr("推荐理由"), "./images/zd/" & dr("图标"), dr("网页链接"))
                        Next
                    End With
                    With wb.AddPanelGroup("","pg2","古典系列")
                        For Each dr As DataRow In DataTables("网页表").Select("版面 = \'古典系列\'")
                            .Add(dr("名称"),dr("标题"),dr("推荐理由"), "./images/zd/" & dr("图标"), dr("网页链接"))
                        Next
                    End With
                    With wb.AddPanelGroup("","pg3","经典系列")
                        For Each dr As DataRow In DataTables("网页表").Select("版面 = \'经典系列\'")
                            .Add(dr("名称"),dr("标题"),dr("推荐理由"), "./images/zd/" & dr("图标"), dr("网页链接"))
                        Next
                    End With
                End With
                e.WriteString(wb.Build) 
--  作者：有点甜
--  发布时间：2018/3/21 19:28:00
--  

参考代码

 

Select Case e.Path
    Case "test.htm", ""
        Dim wb As New WeUI
        Dim txt As String = "由各种物质组成的巨型球状天体,叫做星球.星球有一定的形状,有自己的运行轨道."
        With wb.AddPanelGroup("","pg1","图文组合列表")
            .Attribute = "onclick=""if(this.childNodes[3].style.display != \'none\') {this.childNodes[3].style.display = \'none\'} else {this.childNodes[3].style.display = \'block\'}"""
            .Add("pn1","标题一",txt,"./images/button.png","http://www.foxtable.com") \'超链接
            With .Add("pn2","标题二",txt,"./images/search.png") \'带子链接
                .AddFoot("文字来源")
                .AddFoot("时间")
                .AddFoot("|其他信息","http://www.foxtable.com")
            End With
        End With
        With wb.AddPanelGroup("","pg2","文字组合列表")
            .Add("pn1","标题一",txt) \'普通列表
            .Add("pn1","标题 二",txt,"","http://www.foxtable.com") \'超链接
            With .Add("pn2","标题三",txt) \'带有子链接
                .AddFoot("文字来源")
                .AddFoot("时间")
                .AddFoot("|其他信息","http://www.foxtable.com")
            End With
            .GroupFoot = "查看更多" \'底部链接
            .GroupHref = "http://www.foxtable.com/"
        End With
        e.WriteString(wb.Build) \'生成网页
End Select
--  作者：yifan3429
--  发布时间：2018/3/21 21:27:00
--  
 With wb.AddTabBar("", "tb1", 0)
                    .AddPage("page1","轻奢","./images/button.png")
                    .AddPage("page2","古典","./images/msg.png")
                    .AddPage("page3","经典","./images/article.png")
                    .AddButton("bt1","我","./images/cell.png","www.idilcasa.com")
                End With
                
                怎么和下面的页面互动关联呢
                
                wb.AddPageTitle("","pageheader100","产品目录","艾迪尔品牌木作")
                With wb.AddGrid("","g1")
                    With wb.AddPanelGroup("","pg1","轻奢系列")

.Attribute = "onclick=""if(this.childNodes[3].style.display != \'none\') {this.childNodes[3].style.display = \'none\'} else {this.childNodes[3].style.display = \'block\'}"""

能搞成打开默认是收缩的吗

                        For Each dr As DataRow In DataTables("网页表").Select("版面 = \'轻奢系列\'")
                            .Add(dr("名称"),dr("标题"),dr("推荐理由"), "./images/zd/" & dr("图标"), dr("网页链接"))
                        Next
                    End With
                    With wb.AddPanelGroup("","pg2","古典系列")
                        For Each dr As DataRow In DataTables("网页表").Select("版面 = \'古典系列\'")
                            .Add(dr("名称"),dr("标题"),dr("推荐理由"), "./images/zd/" & dr("图标"), dr("网页链接"))
                        Next
                    End With
                    With wb.AddPanelGroup("","pg3","经典系列")
                        For Each dr As DataRow In DataTables("网页表").Select("版面 = \'经典系列\'")
                            .Add(dr("名称"),dr("标题"),dr("推荐理由"), "./images/zd/" & dr("图标"), dr("网页链接"))
                        Next
                    End With
                    With wb.AddPanelGroup("","pg4","优秀文章")
                        For Each dr As DataRow In DataTables("网页表").Select("版面 = \'优秀文章\'")
                            .Add(dr("名称"),dr("标题"),dr("推荐理由"), "./images/zd/" & dr("图标"), dr("网页链接"))
                        Next
                    End With
                End With
                e.WriteString(wb.Build)
[此贴子已经被作者于2018/3/21 21:33:26编辑过]
--  作者：有点甜
--  发布时间：2018/3/21 22:38:00
--  

加上红色代码

 

wb.AppendHTML("<script>pg1.childNodes[3].style.display = \'none\';</script>")
--  作者：yifan3429
--  发布时间：2018/3/22 14:24:00
--  
不能收缩

wb.AddPageTitle("","pageheader100","企业日志","艾迪尔国际家居")
                With wb.AddGrid("","g1")
                    
                    With wb.AddPanelGroup("","pg1","木作事业部")
                        wb.AppendHTML("<script>pg1.childNodes[3].style.display = \'none\';</script>")
                        .Attribute = """
                        For Each dr As DataRow In DataTables("工作日报").sqlSelect("[部门] = \'木作事业部\'", "", "日期 Desc")
                            With wb.AddPreview("","pv" & dr("_Identify"),"职员",dr("姓名")&":"&dr("岗位"))
                                .AddItem("今日达成",dr("今日达成"))
                                .AddItem("明日计划",dr("明日计划"))
                                .AddItem("营业收入",dr("营业收入"))
                            End With
                        Next
                        
                    End With
                    
                    With wb.AddPanelGroup("","pg11","营销部")
                        wb.AppendHTML("<script>pg11.childNodes[3].style.display = \'none\';</script>")
                        .Attribute = """
                        For Each dr As DataRow In DataTables("工作日报").sqlSelect("[部门] = \'营销部\'", "", "日期 Desc")
                            With wb.AddPreview("","pv" & dr("_Identify"),"职员",dr("姓名")&":"&dr("岗位"))
                                .AddItem("今日达成",dr("今日达成"))
                                .AddItem("明日计划",dr("明日计划"))
                                .AddItem("营业收入",dr("营业收入"))
                            End With
                        Next
                        With wb.AddPanelGroup("","pg12","营销一部")
                            wb.AppendHTML("<script>pg12.childNodes[3].style.display = \'none\';</script>")
                            .Attribute = """
                            For Each dr As DataRow In DataTables("工作日报").sqlSelect("[部门] = \'营销一部\'", "", "日期 Desc")
                                With wb.AddPreview("","pv" & dr("_Identify"),"职员",dr("姓名")&":"&dr("岗位"))
                                    .AddItem("今日达成",dr("今日达成"))
                                    .AddItem("明日计划",dr("明日计划"))
                                    .AddItem("营业收入",dr("营业收入"))
                                End With
                            Next
                        End With
                        With wb.AddPanelGroup("","pg13","营销二部")
                            wb.AppendHTML("<script>pg13.childNodes[3].style.display = \'none\';</script>")
                            .Attribute = """
                            For Each dr As DataRow In DataTables("工作日报").sqlSelect("[部门] = \'营销二部\'", "", "日期 Desc")
                                With wb.AddPreview("","pv" & dr("_Identify"),"职员",dr("姓名")&":"&dr("岗位"))
                                    .AddItem("今日达成",dr("今日达成"))
                                    .AddItem("明日计划",dr("明日计划"))
                                    .AddItem("营业收入",dr("营业收入"))
                                End With
                            Next
                        End With
                        With wb.AddPanelGroup("","pg14","营销三部")
                            wb.AppendHTML("<script>pg14.childNodes[3].style.display = \'none\';</script>")
                            .Attribute = """
                            For Each dr As DataRow In DataTables("工作日报").sqlSelect("[部门] = \'营销三部\'", "", "日期 Desc")
                                With wb.AddPreview("","pv" & dr("_Identify"),"职员",dr("姓名")&":"&dr("岗位"))
                                    .AddItem("今日达成",dr("今日达成"))
                                    .AddItem("明日计划",dr("明日计划"))
                                    .AddItem("营业收入",dr("营业收入"))
                                End With
                            Next
                        End With
                    End With
--  作者：yifan3429
--  发布时间：2018/3/22 14:25:00
--  
这段会收缩         
wb.AddPageTitle("","pageheader100","产品目录","艾迪尔品牌木作")
                With wb.AddGrid("","g1")
                    With wb.AddPanelGroup("","pg1","轻奢系列")
                        wb.AppendHTML("<script>pg1.childNodes[3].style.display = \'none\';</script>")
                        .Attribute = """
                        For Each dr As DataRow In DataTables("网页表").Select("版面 = \'轻奢系列\'")
                            .Add(dr("名称"),dr("标题"),dr("推荐理由"), "./images/zd/" & dr("图标"), dr("网页链接"))
                        Next
                    End With
                    
                    With wb.AddPanelGroup("","pg2","古典系列")
                        wb.AppendHTML("<script>pg2.childNodes[3].style.display = \'none\';</script>")
                        .Attribute = """
                        For Each dr As DataRow In DataTables("网页表").Select("版面 = \'古典系列\'")
                            .Add(dr("名称"),dr("标题"),dr("推荐理由"), "./images/zd/" & dr("图标"), dr("网页链接"))
                        Next
                    End With
                    With wb.AddPanelGroup("","pg3","经典系列")
                        wb.AppendHTML("<script>pg3.childNodes[3].style.display = \'none\';</script>")
                        .Attribute = """
                        For Each dr As DataRow In DataTables("网页表").Select("版面 = \'经典系列\'")
                            .Add(dr("名称"),dr("标题"),dr("推荐理由"), "./images/zd/" & dr("图标"), dr("网页链接"))
                        Next
                    End With
                    With wb.AddPanelGroup("","pg4","优秀文章")
                        wb.AppendHTML("<script>pg4.childNodes[3].style.display = \'none\';</script>")
                        .Attribute = """
                        For Each dr As DataRow In DataTables("网页表").Select("版面 = \'优秀文章\'")
                            .Add(dr("名称"),dr("标题"),dr("推荐理由"), "./images/zd/" & dr("图标"), dr("网页链接"))
                        Next
                    End With
                End With
                e.WriteString(wb.Build)