单选列表项

要使用单选列表项,首先得定义一个单选列表组,定义单选列表组的语法是:

AddRadioGroup(ParentID, ID)
AddRadioGroup(ParentID, ID, Text)

ParentID 父容器的ID,如果是顶层对象,设置为""即可。
ID 分组ID。
Text 可选参数,用于指定分组标题。

增加单选列表项的语法是:

Add(ID, Text)
Add(ID, Text, Checked)

ID 列表项ID。
Text 单选列表项的文本内容
Checked 逻辑型,可选参数,单选列表项默认是否勾选。

单选列表项的属性有:

Value 字符型,勾选后传递给服务端的值,如果不设置,将传递ID值给服务端。
Enabld 逻辑型,设置为False,将无法勾选此列表项。

示例

HttpRequest事件代码:

Select Case e.Path
    Case "test.htm"
        Dim wb As New weui
        wb.AddForm("","form1","test.htm")
        With wb.AddRadioGroup("form1","rdg1","浏览器")
            .Add("bw1","Intenet Explorer")
            .Add("bw2","Google Chorme", True) '默认勾选
            .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

下图是在手机上的显示效果:


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