- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- AddSelect提示问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=97751)
-- 发布时间：2017/3/17 19:50:00
-- AddSelect提示问题
此主题相关图片如下：qq图片20170317193807.png
问题见图上，代码如下：参照移动开发指南在后面加上
Dim e As RequestEventArgs = args(0) \'注册第1页,注册
Select Case e.Path
Case "register.htm"
If e.PostValues.Count = 0 Then
Dim wb As New weui
wb.AddTopTips("","toptip1","") \'用于显示动态错误提示
wb.AddForm("","form1","register.htm").Attribute=""
With wb.AddInputGroup("form1","ipg1","快速注册")
With .AddInputCell("ic1") \'通过InputCell增加输入框(1表示突出显示,2表示红色警示图标)
.AddLabel("lsj","手机",0) \'增加标签(0显示在左边)
.AddInput("isj","text",1).PlaceHolder= "请输入手机号" \'增加输入框(0靠左显示,1居中显示,2靠右显示)
End With
With .AddInputCell("ic2")
.AddLabel("lyz","验证",0)
.AddInput("iyz","text",1).PlaceHolder= "请输入验证码"
.AddVcodeButton("vyz","获取验证码",2) \'0靠左显示,1居中显示,2靠右显示
End With
With .AddInputCell("ic3")
.AddLabel("lmm","密码",0)
.AddInput("imm","text",1).PlaceHolder= "请输入密码"
End With
.AddSelect("sxb","性别","|男|女").Placeholder = "注册后，性别不可更改！" \'这样不行，提示Placeholder不是wselect成员，怎么办？
.AddSwitch("fuwuxieyi","同意协议").Value = "是"
With wb.AddButtonGroup("form1","btg1",True)
.Add("btn1", "点此注册", "submit")
.Add("btn2", "服务协议", "","/protocol.htm").Kind = 1
End With
End With
wb.AppendHTML("<script src=\'./lib/ajaxform_register.js\'></script>") \'引入脚本文件
e.WriteString(wb.Build)
End If
End Select
-- 发布时间：2017/3/17 20:27:00
--
列表不支持这种用法，可以作为选项的一部分，如
.AddSelect("sxb","性别","注册后，性别不可更改！|男|女")
验证的时候判断是否选择的“男|女”