列表输入框
和文本输入框一样，列表输入框也必须添加在输入框组中。
在输入框组增加一个列表输入框的语法为：
AddSelect(ID, Label, Values)
| ID | 输入框ID。 |
| Label | 在输入框左侧显示的标签内容 |
| Values | 列表项目，用符号"|"隔开，例如"大专|本科|硕士|博士"。 打开网页后，默认会选择第一个值，如果要将其他位置的值作为默认值，可以将其用方括号括起来，例如"大专|[本科]|硕士|博士"，打开网页后，会自动选择本科。 |
列表输入框有以下属性：
| Post | 逻辑型，提示表单数据时是否包括此输入框的值，默认为True。 |
| Required | 逻辑型，是否必须输入内容，目前基于iOS的多数浏览器暂不支持这个属性。 |
示例
将HttpRequest事件代码设置为：
Select Case
e.Path
Case "test.htm"
Dim
wb As New
weui
wb.AddForm("","form1","test.htm")
With wb.AddInputGroup("form1","ipg1","列表项目")
.AddSelect("os","操作系统","iOS|Windows|Andriod")
.AddSelect("bw","浏览器","Chorme|[Edge]|Firefox|Internet
Explorer")
End With
With
wb.AddButtonGroup("form1","btg1",True)
.Add("btn1",
"确定", "submit")
End With
e.WriteString(wb.Build)
'生成网页
End
Select
下图是通过iPhone访问时的截屏: