以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  怎样加宽两行之间的行距  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=135839)
--  作者：zhaohj611718
--  发布时间：2019/6/4 12:24:00
--  怎样加宽两行之间的行距
 With wb.AddPanelGroup("","发社团" & dr("_Identify"),dr("发团社"))
                    With .Add("线路" & dr("_Identify"),dr("线路名称") & dr("天数"),"门市价: 成人 "  & dr("门市价_成人") & "  儿童 "  & dr("门市价_儿童") & " 学生价 "  & dr("门市价_学生价") & " 老人 "  & dr("门市价_老人") & " " )
                        \'"ydxcclxz.htm?id=" & dr("线路编号")
                        .Badge = "热销中"
                        .AddFoot(Format(dr("最近发团日期"), "m"))
                        .AddFoot("发团人数:" & dr("发团人数_目前剩余") & "/" & dr("发团人数_总人数"))
                       
                       .AddFoot("    备注:" & dr("备注"))

                        \'  .AddFoot("方向:" & dr("方向"))
                        \'   .AddFoot("其他信息","http://www.foxtable.com")
                        
                        If FileSys.FileExists("D:/web/uploadfiles/" & dr("_Identify") & "." & dr.SQLGetValue("文件名")) AndAlso CRCCheckFile("D:/web/uploadfiles/" &  dr("_Identify") & "." & dr.SQLGetValue("文件名")) = dr.SQLGetValue("CRC值") Then \'如果本地存在同名文件且CRC校验值相同
                            .AddFoot("路线介绍","http://101.200.213.20:8080/uploadfiles/" & dr("_Identify") & "." & dr.SQLGetValue("文件名"))
                        Else \'否则从数据库提取文件
                            dr.SQLLoadFile("路线介绍","D:/web/uploadfiles/" & dr("_Identify") & "." & dr.SQLGetValue("文件名"))
                            .AddFoot("路线介绍","http://101.200.213.20:8080/uploadfiles/" & dr("_Identify") & "." & dr.SQLGetValue("文件名"))
                        End If
                        .AddFoot("预定行程","ydxcclxz.htm?id=" & dr("线路编号"))
                        
                        
                        
                        \'.AddFoot("备注:" & dr("备注"))
                    End With
                    
                End With
--  作者：zhaohj611718
--  发布时间：2019/6/4 12:27:00
--  
帮忙看看
--  作者：zhaohj611718
--  发布时间：2019/6/4 12:30:00
--  
 With wb.AddPanelGroup("","发社团" & dr("_Identify"),dr("发团社"))
                    With .Add("线路" & dr("_Identify"),dr("线路名称") & dr("天数"),"门市价: 成人 "  & dr("门市价_成人") & "  儿童 "  & dr("门市价_儿童") & " 学生价 "  & dr("门市价_学生价") & " 老人 "  & dr("门市价_老人") & " " )
                        \'"ydxcclxz.htm?id=" & dr("线路编号")
                        .Badge = "热销中"
                        .AddFoot(Format(dr("最近发团日期"), "m"))
                        .AddFoot("发团人数:" & dr("发团人数_目前剩余") & "/" & dr("发团人数_总人数"))
                       
                       .AddFoot("    备注:" & dr("备注"))         加宽与上一行的距离 并且另起一行

                        \'  .AddFoot("方向:" & dr("方向"))
                        \'   .AddFoot("其他信息","http://www.foxtable.com")
                        
                        If FileSys.FileExists("D:/web/uploadfiles/" & dr("_Identify") & "." & dr.SQLGetValue("文件名")) AndAlso CRCCheckFile("D:/web/uploadfiles/" &  dr("_Identify") & "." & dr.SQLGetValue("文件名")) = dr.SQLGetValue("CRC值") Then \'如果本地存在同名文件且CRC校验值相同
                            .AddFoot("路线介绍","http://101.200.213.20:8080/uploadfiles/" & dr("_Identify") & "." & dr.SQLGetValue("文件名"))
                        Else \'否则从数据库提取文件
                            dr.SQLLoadFile("路线介绍","D:/web/uploadfiles/" & dr("_Identify") & "." & dr.SQLGetValue("文件名"))
                            .AddFoot("路线介绍","http://101.200.213.20:8080/uploadfiles/" & dr("_Identify") & "." & dr.SQLGetValue("文件名"))
                        End If
                        .AddFoot("预定行程","ydxcclxz.htm?id=" & dr("线路编号"))
                        
                        
                        
                        \'.AddFoot("备注:" & dr("备注"))
                    End With
                    
                End With
--  作者：有点甜
--  发布时间：2019/6/4 13:23:00
--  

参考

 

Select Case e.Path
    Case "test.htm", ""
        Dim wb As New weui
        Dim txt As String = "由各种物质组成的巨型球状天体,叫做星球.星球有一定的形状,有自己的运行轨道."
        With wb.AddPanelGroup("","pg1","图文组合列表")
            .Add("pn1","标题一",txt,"./images/button.png","http://www.foxtable.com") \'超链接
            With .Add("pn2","标题二",txt,"./images/search.png") \'带子链接
                .AddFoot("文字来源")
                .AddFoot("时间")
                .AddFoot("|其他信息")
                .AddFoot("<div id=\'test\'>其他信息</div>")
            End With
        End With
wb.InsertHTML("<script>test.parentNode.setAttribute(\'style\', \'position: absolute;top: 100px\'); </script>")
        e.WriteString(wb.Build) \'生成网页
End Select