专家坐堂-关于WeUI中网页的排版Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  关于WeUI中网页的排版  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=103242)

--  作者：客家阿哥
--  发布时间：2017/7/3 22:52:00
--  关于WeUI中网页的排版

Select Case e.Path
Case "fwxxfind.htm"
Dim wb As New WeUI
wb.InsertHTML("<img width=\'100%\' src=\'images/home.jpg\'/>")
wb.AddForm("","form1","fwxxfind.htm")

With wb.AddPanelGroup("","pg3","<label style=\'color:#FF2D2D;font-size:20px\'>"&"房屋信息查询"&"</label>" )

Dim dr As List(of DataRow) = DataTables("房屋信息").SQLSelect("过期 = False","","发布时间 DESC")

Dim lstp As New List(of String)
Dim tp As Integer

Dim cis As Integer = (dr.count - 1)
If cis < 5 Then

Dim fblx(cis) As String
Dim hxjg(cis) As String
Dim fwmj(cis) As String
Dim lxsj(cis) As String
\'Dim wzdz(cis) As String
Dim fbsj(cis) As Date
Dim bz(cis) As String
For i As Integer = 0 To cis
fblx(i)=dr(i)("发布类型")
hxjg(i)=dr(i)("户型结构")
fwmj(i)=dr(i)("房屋面积")
lxsj(i)=dr(i)("联系手机")
fbsj(i)=dr(i)("发布时间")
bz(i)=dr(i)("备注")
lstp = dr(i).Lines("图片")
tp = lstp.Count-1

With .Add("pn2","<label style=\'color:blue;font-size:18px;font-weight:bold\'>【"& fblx(i) &"】</label>","<label style=\'color:#000000;font-size:18px;line-height:150%\'>" & "户型结构 : "& hxjg(i) &"<br />"&"房屋面积 : "& fwmj(i) &"<br/> "&"联系手机 : "& lxsj(i) &"<br/>"&"备注说明 : "& bz(i) &"</label>")
.AddFoot("<label style=\'color:#0066CC;font-size:16px\'>"&"发布时间:"&fbsj(i)&"</label>")
End With

With wb.AddInputGroup("",""& i &"","照片")
With .AddUploader(""& i &"","",True)
.AllowAdd = False \'关闭文件上传功能
For tp1 As Integer = 0 To tp
.AddImage("./uploadfiles/"& lstp(tp1)&"")
Next
End With
End With

Next

Else
End If
wb.InsertHTML("<img width=\'100%\' src=\' images/erweima.jpg \'/>")
e.WriteString(wb.Build) \'生成网页
End With

此主题相关图片如下：qq图片20170703223608.png

[此贴子已经被作者于2017/7/3 22:58:29编辑过]

--  作者：客家阿哥
--  发布时间：2017/7/3 22:53:00
--
而我想要的结果是这样的

此主题相关图片如下：qq图片20170703223608 - 副本.png

--  作者：客家阿哥
--  发布时间：2017/7/3 23:27:00
--
  With wb.AddPanelGroup("","pg2","文字组合列表")
            .Add("pn1","标题一",txt) \'普通列表
            .Add("pn1","标题二",txt,"","http://www.foxtable.com") \'超链接
            With .Add("pn2","标题三",txt) \'带有子链接

  With wb.AddInputGroup("form1","ipg1","客户资料")
            .AddInput("姓名","姓名","text").value = "舒淇"
            .AddInput("地点","地点","text").Value = "蒙古草原"
            .AddInput("日期","日期","date").value = #10/12/2012#
            With .AddUploader("up1","",True)
                .AllowAdd = False \'关闭文件上传功能
                .AddImage("./images/001.jpg")
                .AddImage("./images/002.jpg")
                .AddImage("./images/003.jpg")
                .AddImage("./images/004.jpg")
                .AddImage("./images/005.jpg")
                .AddImage("./images/006.jpg")
                .AddImage("./images/007.jpg")
                .AddImage("./images/008.jpg")
                .AddImage("./images/009.jpg")
                .AddImage("./images/010.jpg")
                .AddImage("./images/011.jpg")
                .AddImage("./images/012.jpg")
            End With
        End Wit
                .AddFoot("文字来源")
                .AddFoot("时间")
                .AddFoot("|其他信息","http://www.foxtable.com")
            End With
            .GroupFoot = "查看更多" \'底部链接
            .GroupHref = "http://www.foxtable.com/"
        End With

===================================
不能镶嵌使用吗？

--  作者：有点蓝
--  发布时间：2017/7/3 23:32:00
--
测试了一下，不能放到AddPanelGroup里面，可以这样：一个AddPanelGroup对应一个AddInputGroup

Select Case e.Path
Case "test.htm"
Dim wb As New WeUI
Dim wb2 As New WeUI
Dim txt As String = "由各种物质组成的巨型球状天体,叫做星球.星球有一定的形状,有自己的运行轨道."
With wb.AddPanelGroup("","pg1","")
.Add("pn1","标题一",txt,"./images/button.png","http://www.foxtable.com") \'超链接
End With
With wb.AddInputGroup("","ppp1","照片")
With .AddUploader("up1","",True)
.AllowAdd = False \'关闭文件上传功能
\'For tp1 As Integer = 0 To tp
.AddImage("./images/001.jpg")
\'Next
End With
End With
With wb.AddPanelGroup("","pg2","")
.Add("pn2","标题二",txt,"","http://www.foxtable.com") \'超链接
End With

With wb.AddInputGroup("","ppp2","照片")
With .AddUploader("up2","",True)
.AllowAdd = False \'关闭文件上传功能
\'For tp1 As Integer = 0 To tp
.AddImage("./images/002.jpg")
\'Next
End With
End With
e.WriteString(wb.Build) \'生成网页
End Select

--  作者：客家阿哥
--  发布时间：2017/7/4 0:05:00
--
谢谢，基本能达到效果！

--  作者：liufucan
--  发布时间：2017/7/20 18:44:00
--
备注字段和多文件字段无法实现翻页吗？

--  作者：有点甜
--  发布时间：2017/7/20 19:37:00
--

以下是引用liufucan在2017/7/20 18:44:00的发言：
备注字段和多文件字段无法实现翻页吗？

具体你的问题？尽量上传图片或例子说明。