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
|