逻辑开关

逻辑开关(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

现在通过手机访问,可以看到下图所示的网页:


本页地址:http://www.foxtable.com/mobilehelp/topics/0049.htm