Case "camera.htm"
Dim wb As new weui
wb.AppendHTML("<script type='text/javascript' src='/" & path & "/js/common.js'></script>", True)
wb.AddForm("","form1","submit.htm")
With wb.AddInputGroup("form1","ipg1","测试")
.AddInput("姓名","姓名","Text")
.AddInput("年龄","年龄","number")
.AddUploader("up1","照片",True) 'True表示允许上传多个文件
End With
wb.InsertHTML("form1", "<div id='imgs'></div>")
With wb.AddButtonGroup("form1","btg1",True)
.Add("btn1", "拍照", "button").Attribute = """
End With
With wb.AddButtonGroup("form1","btg2",True)
.Add("btn1", "提交")
End With
wb.AppendHTML("<script type='text/javascript' src='/" & path & "/js/camera.js'></script>")
e.WriteString(wb.Build)
加好友 
发短信
Post By：2018/12/12 15:20:00 [只看该作者]
