复选列表项
要使用复选列表项,首先得定义一个复选列表组,定义复选列表组的语法是:
AddCheckGroup(ParentID, ID)
AddCheckGroup(ParentID, ID, Text)
ParentID | 父容器的ID,如果是顶层对象,设置为""即可。 |
ID | 分组ID。 |
Text | 可选参数,用于指定分组标题。 |
增加复选列表项的语法是:
Add(ID, Text)
Add(ID, Text, Checked)
ID | 列表项ID。 |
Text | 复选列表项的文本内容。 |
Checked | 逻辑型,可选参数,复选列表项默认是否勾选。 |
复选列表项的属性有:
Value | 字符型,勾选后传递给服务端的值,如果不设置,将传递"on"值给服务端。 |
Enabld | 逻辑型,设置为False,将无法勾选此列表项。 |
示例
HttpRequest事件代码:
Select
Case e.Path
Case
"test.htm"
Dim
wb As New
weui
wb.AddForm("","form1","test.htm")
With wb.AddCheckGroup("form1","rdg1","浏览器")
.Add("bw1","Intenet
Explorer", True)
'默认勾选
.Add("bw2","Google
Chorme")
.Add("bm3","FireFox")
.Add("bm4","Safari").Enabled
= False '此项不可选
End With
With
wb.AddButtonGroup("form1","btg1",True)
.Add("btn1",
"确定",
"submit")
End With
e.WriteString(wb.Build)
'生成网页
End
Select
下图是在手机上的显示效果: