定义按钮

在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

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


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