使用Uploader
Uploader用于上传文件，和其他数据输入组件一样，Uploader需要放在输入框分组中。
定义一个Uploader的语法是：
AddUploader(ID, Label, Multiple)
| ID | 组件ID |
| Text | 组件标题 |
| Multiple | 逻辑型，可选参数，手否允许选择多个文件上传。 |
上传组件可以浏览图片，通过AddImage添加要浏览的图片，语法：
AddImage(Image)
AddImage(Thumbnail, Image)
| Thumbnail | 缩略图文件。 |
| Image | 图片文件。 |
示例
在运行这个例子之前，请先复制几个图片到"d:\web\images目录"，文件名分别是"001.jpg"、"002.jpg"和"003.jpg"。
HttpRequest事件代码：
Select
Case e.Path
Case "test.htm"
Dim
wb As New
weui
wb.AddForm("","form1","test.htm")
With wb.AddInputGroup("form1","ipg1","文件上传")
'文件上传
.AddUploader("up1","")
End With
With
wb.AddInputGroup("form1","ipg22","文件上传")
'带图片浏览的文件上传
With .AddUploader("up2","图片",True)
'True表示允许一次上传多个文件
.AddImage("./images/001.jpg")
.AddImage("./images/002.jpg")
.AddImage("./images/003.jpg")
End With
End
With
With
wb.AddButtonGroup("form1","btg1",True)
.Add("btn1",
"确定",
"submit")
End With
e.WriteString(wb.Build)
'生成网页
End Select
下图是在iPhone上的显示效果：
单击上图中的“+”按钮，可以拍照上传，或选择现有的照片上传：
