Case "upload.htm"
Dim wb As new WeUI
wb.AddForm("","form1","accept.htm")
wb.InsertHTML("form1","<div class='weui_cell weui_cell_warn'><div class='weui_cell'><div class='weui_cell_bd weui_cell_primary'>")
wb.InsertHTML("form1","<div class='weui_uploader'><div class='weui_uploader_hd weui_cell'><div class='weui_cell_bd weui_cell_primary'>文件上传</div></div>")
wb.InsertHTML("form1","<div class='weui_uploader_bd'><div class='weui_uploader_input_wrp'>")
wb.InsertHTML("form1","<input class='weui_uploader_input' name='up1' id='up1' Type='file' accept='video/mp4' multiple=''></div></div></div></div></div></div>")
With wb.AddButtonGroup("form1","btg1",False)
.Add("btn1", "提交", "submit")
.Add("btn1", "取消", "button","index.htm")
End With
e.WriteString(wb.Build)
2个问题
1、没有那么属性,表单提交会忽略
2、控件必须属于form的子标签
[此贴子已经被作者于2018/3/9 16:14:02编辑过]