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

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)&"")

End With

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编辑过]

而我想要的结果是这样的

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

  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

===================================

不能镶嵌使用吗？

测试了一下，不能放到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

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

e.WriteString(wb.Build) '生成网页

End Select

谢谢，基本能达到效果！

备注字段和多文件字段无法实现翻页吗？

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

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

主题：关于WeUI中网页的排版