Select Case e.Path
Case "test.htm"
Dim wb As New WeUI
wb.Title = "test"
wb.AddForm("","form1","valid.htm")
Dim rdg As ExWeUI.ExRadioGroup = ExWeUI.WebUI.AddRadioGroup("","rdg1","是否实名举报")
rdg.add("rd1","实名举报")
rdg.add("rd2","匿名举报",True).enabled = True
wb.InsertHTML("form1",rdg.BuildHtml)
With wb.AddInputGroup("form1","ipg1","")
With .AddInputCell("ic3") '通过InputCell增加输入框
.AddLabel("ljbr","举报人",0) '增加标签,0显示在左边
.AddInput("jbr","text",1).PlaceHolder = "请输入真实姓名" '增加输入框,1表示显示在中间
End With
With .AddInputCell("ic4") '通过InputCell增加输入框
.AddLabel("lsj","联系电话",0) '增加标签,0显示在左边
.AddInput("sjh","text",1).PlaceHolder = "请输入联系电话" '增加输入框,1表示显示在中间
.AddVcodeButton("vyz","获取验证码",2).Attribute=""
End With
With .AddInputCell("ic5") '通过InputCell增加输入框
.AddLabel("lyzm","验证码",0) '增加标签,0显示在左边
.AddInput("yzm","text",1).PlaceHolder = "请输入短信中的验证码" '增加输入框,1表示显示在中间
End With
End With
Dim rdg1 As ExWeUI.ExRadioGroup = ExWeUI.WebUI.AddRadioGroup("","rdg2","是否申请奖励")
rdg1.add("rd11","申请奖励")
rdg1.add("rd21","不申请奖励",True).enabled = True
wb.InsertHTML("form1",rdg1.BuildHtml)
Dim bt As String ="根据《奖励办法(试行)》对符合条件的线索进行奖励,点击获取《奖励办法(试行)》详情.注:领取奖励需要实名"
With wb.AddInputGroup("form1","ipg222","申请奖励须知")
With .AddTextArea("bz1",3)
.Readonly=True
.Value= bt
End With
End With
With wb.AddButtonGroup("form1","btg1",True)
.Add("btn1", "确定", "submit")
End With
e.WriteString(wb.Build) '生成网页
End Select
加好友 
发短信
Post By：2021/5/23 21:15:00 [显示全部帖子]
