再谈按钮类型

现在我们有必要回头看看按钮的类型(Type)，我们知道添加按钮的语法是：

Add(ID, Text)
Add(ID, Text, Type)
Add(ID, Text, Type, Href)

按钮的类型由第三个参数决定，默认就是"submit"。

一般来说提交按钮的type参数设置为"submit"或者不设置；重置按钮的type参数设置为"reset"；超链接按钮不要设置type参数，设置href参数即可；自定义按钮(单击执行代码)的type参数设置为"button"。

例如：

Select Case e.Path
    Case "test.htm"
        If e.PostValues.Count = 0 Then
            Dim wb As New weui
            wb.AddForm("","form1","test.htm")
            With wb.AddInputGroup("form1","ipg1","登录")
                .AddInput("姓名","户名","text")
                .AddInput("密码","密码","password")
            End With
            With wb.AddButtonGroup("form1","btngrp1",False)
                .Add("btn1", "确定", "submit") '提交
                .Add("btn2", "重置", "reset") '重置
                With .Add("btn3", "自定义", "button") '自定义按钮
                    .Attribute = "onclick=""confirm('你喜欢foxtable吗?')"""
                End With
                .Add("btn4", "主页", "", "http://www.foxtable.com") '超链接
            End With
            e.WriteString(wb.Build)
        Else
            Dim sb As New StringBuilder
            sb.AppendLine("<meta name='viewport' content='width=device-width,initial-scale=1,user-scalable=0'>")
            sb.AppendLine("接收到的数据有:<br/><br/>")
            For Each key As String In e.PostValues.Keys
                sb.AppendLine(key & ":" & e.PostValues(key) & "<br/>")
            Next
            e.WriteString(sb.ToString)
        End If
End Select

这是在手机上的访问效果，您可以分别单击这些按钮，看看有什么不同：