Case "test.htm"
Dim wb1 As New weui
wb1.AddToptips("","toptip1","请输入11位手机号码")
wb1.AddToptips("","toptip2","你已是我们的会员")
'wb1.AddToptips("","toptip3","登录名称已存在")
wb1.AddForm("","form1","valid.htm").Attribute=""
With wb1.AddInputGroup("form1","ipg1","会员注册")
With .AddInputCell("ic1") '通过InputCell增加输入框
.AddLabel("lxm","姓名:",0) '增加标签,0显示在左边
.AddInput("xm","text",1).Value = "张张" '.Required = True '增加输入框,1表示显示在中间
End With
With .AddInputCell("ic2") '通过InputCell增加输入框
.AddLabel("lmm","密码:",0) '增加标签,0显示在左边
.AddInput("mm","text",1)'.Required = True '增加输入框,1表示显示在中间
End With
With .AddInputCell("ic3") '通过InputCell增加输入框
.AddLabel("lsj","手机",0) '增加标签,0显示在左边
.AddInput("sjh","text",1).Required = True'增加输入框,1表示显示在中间
.AddVcodeButton("vyz","获取验证码",2).Attribute=""
End With
With .AddInputCell("ic4") '通过InputCell增加输入框
.AddLabel("lyzm","验证码:",0) '增加标签,0显示在左边
.AddInput("yzm","text",1).Required = True '增加输入框,1表示显示在中间
End With
With wb1.AddButtonGroup("form1","btg1",True)
.Add("btn1", "确定", "submit")
End With
End With
wb1.AppendHTML("<script src='./lib/test.js'></script>") '引入脚本文件
e.WriteString(wb1.Build) '生成网页