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的第一个参数为缩略图，第二个参数为原图
.AddImage("./images/001s.jpg","./images/001.jpg")
End With
End With
e.WriteString(wb.Build) '生成网页
End Select
使用以上代码浏览图片时，需要1张缩略图和1张原图
但使用下面的代码上传图片时，要么只能上传原图，要么只能上传缩略图：
Select Case e.Path
Case "upload.htm"
Dim wb As New weui
wb.AddForm("","form1","receive.htm")
With wb.AddInputGroup("form1","ipg1","文件上传")
With .AddUploader("up128","照片",True)
.AllowDelete = True '允许删除
.Incremental = True '允许重复选择文件或连续拍照
.ScaleWidth = 400 '自动压缩图片宽度为400个像素,高度等比例压缩
End With
End With
With wb.AddButtonGroup("form1","btg1",True)
.Add("btn1", "确定", "button").Attribute= "" '调用js函数上传
End With
wb.AddToast("","tst1", "正在上传",1)
wb.AddToast("","tst2", "上传成功",0)
wb.AddToast("","tst3", "上传失败",0).Icon= "warn"
wb.AppendHTML("<script src='./lib/ajaxform.js'></script>") '引入脚本文件
e.WriteString(wb.Build) '生成网页
Case "receive.htm"
For Each key As String In e.Files.Keys
For Each fln As String In e.Files(key)
e.SaveFile(key,fln,"d:\web\uploadfiles\" & fln) '保存接收到的文件
Next
Next
e.WriteString("OK")
End Select
那么，请问能否同时上传缩略图和原图？
或者，有什么方法可以在浏览图片时先打开缩略图，查看大图时才打开原图？
加好友 
发短信
Post By：2019/3/17 19:06:00 [只看该作者]
