主题：weui动态浏览图片五张只显示一张。

Dim dr As DataRow = DataTables("表1").DataRows(0)
Dim Multi As String = dr("单据图片")
Dim Values() As String
Values = Multi.split(vbcrlf)

Select Case e.Path
    Case "test.htm"
        Dim wb As New weui
        wb.AddForm("","form1","test.htm")
        With wb.AddInputGroup("form1","ipg1","客户资料")
            .AddInput("姓名","姓名","text").value = "舒淇"
            .AddInput("地点","地点","text").Value = "蒙古草原"
            .AddInput("日期","日期","date").value = #10/12/2012#
            With .AddUploader("up1","",True)
                .AllowAdd = False '关闭文件上传功能
                For Index As  Integer = 0 To Values.Length - 1
                   
                    .AddImage("./images/"&Values(Index))
                Next
               
               
            End With
        End With
        e.WriteString(wb.Build) '生成网页
End Select

<!--StartFragment -->
五张图片测试只显示一张