定义按钮
在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
现在通过手机访问,可以看到下图所示的网页: