给用户一个提示
如果表单包括文件上传组件Uploader,那么有必要在提交表单的过程中,给用户一个提示,避免用户失去耐心:
知识准备
用户单击确定按钮提交表单的时候,会触发表单的onsubmit事件,我们可以在这个事件中显示一个toast,提示用户正在上传文件,例如:
wb.AddForm("","form1","test.htm").attribute= "onsubmit=""show('t1')"""
表示定义了一个表单,提交这个表单的时候,会显示名为t1的toast,不仅可以给用户一个提示,还可以避免用户再次单击确定按钮,重复提交数据。
HttpRequest事件代码:
Select
Case e.Path
Case "test.htm"
Dim
wb As New
weui
wb.AddToast("","t1",
"正在上传",1)
'定义提示
wb.AddForm("","form1","test.htm").attribute=
"onsubmit=""show('t1')"""
With
wb.AddInputGroup("form1","ipg1","客户资料")
.AddInput("姓名","姓名","Text").value
= "舒淇"
.AddInput("年龄","年龄","number").Value
= "28"
.AddInput("日期","日期","date").value
= #10/12/2012#
With .AddUploader("up1","照片",True)
.AddImage("./images/shuqi1.jpg")
.AddImage("./images/shuqi2.jpg")
End With
End
With
With
wb.AddButtonGroup("form1","btg1",True)
.Add("btn1",
"确定",
"submit")
End With
e.WriteString(wb.Build)
'生成网页
End Select