逻辑开关
逻辑开关(Switch)类似复选框(CheckBox),但视觉效果更好。
逻辑开关必须添加在输入框组中。
在输入框组中添加逻辑开关的语法是:
AddSwtich(ID, Label)
AddSwtich(ID, Label, Checked)
ID | 开关ID。 |
Label | 在开关左侧显示的标签内容 |
Checked | 逻辑型,可选参数,开关默认是否处于开启状态。 |
开关的属性有:
Value | 字符型,开关开启后提交端到服务端的值,如果不设置,将传递"on"值给服务端。 |
Post | 逻辑型,提示表单数据时是否包括此开发的值,默认为True。 |
Enabld | 逻辑型,设置为False,将无法改变开关状态。 |
示例
将HttpRequest事件代码设置为:
Select
Case e.Path
Case "test.htm"
Dim
wb As New
weui
wb.AddForm("","form1","test.htm")
With wb.AddInputGroup("form1","ipg1","增加客户")
.AddInput("xm","姓名","text")
.AddInput("nl","年龄","number")
.AddSwitch("hy","会员",True)
.AddSwitch("vip","VIP客户")
End With
With
wb.AddButtonGroup("form1","btg1",True)
.Add("btn1",
"确定",
"submit")
End With
e.WriteString(wb.Build)
'生成网页
End
Select
现在通过手机访问,可以看到下图所示的网页: