我只想浏览图片

如果将Uploader的AllowAdd属性设置为False,Uploader的文件上传功能将被关闭,成为一个单纯的图片浏览器。

HttpRequest事件代码:

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
'
关闭文件上传功能
                .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 With
       
e.WriteString(wb.Build) '生成网页
End
Select

下图是通过手机访问的效果:


本页地址:http://www.foxtable.com/mobilehelp/topics/0091.htm