定义按钮
在WeUI定义按钮之前，首先要定义一个按钮分组，定义按钮分组的语法为：
AddButtonGroup(ParentID, ID)
AddButtonGroup(ParentID, ID, Vertical)
| ParentID | 父容器的ID,如果是顶层对象，设置为""即可 |
| ID | 按钮分组ID |
| Vertical | 可选参数，逻辑型，按钮是否垂直排列，默认为True。 |
添加按钮的语法为：
Add(ID, Text)
Add(ID, Text, Type)
Add(ID, Text, Type, Href)
| ID | 按钮ID |
| Text | 按钮标题 |
| Type | 可选参数，字符型，用于指定按钮类型，可用值有"submit"、"reset"、"button" |
| Href | 可选参数，字符型，指定单击按钮之后跳转的目标网页的URL |
按钮有两个属性，分别为：
| Kind | 用于设置按钮的颜色，默认为0，表示绿色，1表示灰色，2表示红色 |
| Value | 用于设置按钮的值， |
示例
将HttpRequest事件代码设置为：
Select
Case e.Path
Case "test.htm"
Dim wb
As New
weui
wb.AddForm("","form1","test.htm")
With wb.AddButtonGroup("form1","btg1",True)
'垂直排列
.Add("btn1",
"按钮")
.Add("btn4",
"按钮",
"reset")
.Add("btn5",
"按钮",
"", "http://www.foxtable.com")
'单击这个按钮可以打开foxtable主页
End With
With wb.AddButtonGroup("form1","btg2",
False)
'水平排列
.Add("btn6",
"按钮")
.Add("btn7",
"按钮").Kind
= 2
End With
With wb.AddButtonGroup("form1","btg3",
False)
.Add("btn8",
"按钮").Kind
= 0
.Add("btn9",
"按钮").Kind
= 1
End
With
e.WriteString(wb.Build)
'生成网页
End
Select
现在通过手机访问，可以看到下图所示的网页：