再谈按钮类型
现在我们有必要回头看看按钮的类型(Type)，我们知道添加按钮的语法是：
Add(ID, Text)
Add(ID, Text, Type)
Add(ID, Text, Type, Href)
| ID | 按钮ID |
| Text | 按钮标题 |
| Type | 可选参数，字符型，用于指定按钮类型，可用值有"submit"、"reset"、"button" |
| Href | 可选参数，字符型，指定单击按钮之后跳转的目标网页的URL |
按钮的类型由第三个参数决定，默认就是"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
这是在手机上的访问效果，您可以分别单击这些按钮，看看有什么不同：