使用ActionSheet
ActionSheet用于显示一个从底部弹出的菜单,一般用于响应用户单击页面的动作。
一个例子
Select
Case e.Path
Case "test.htm"
Dim
wb As
New WeUI
With
wb.AddButtonGroup("","btg",True)
.Add("btn1","单击显示上拉菜单").Attribute
= "onclick=""show('s1')"""
End
With
With
wb.AddActionSheet("","s1")
.Add("menu1",
"菜单项目1",
"http://www.foxtable.com/")
.Add("menu2",
"菜单项目2")
.Add("menu3",
"菜单项目3").Attribute
= "onclick='alert(""你单击了我"")'"
.Add("menu4","取消","",True)
End
With
e.WriteString(wb.Build)
End
Select
通过手机访问,会显示一个按钮,点击这个按钮,底部会弹出一个菜单:
AddActionSheet
AddActionSheet用于增加ActionSheet,语法:
ParentID | 父容器的ID,如果是顶层对象,设置为""即可。 |
ID | ActionSheet的ID。 |
Add
Add用于在ActionSheet中增加菜单项,语法:
Add(ID, Text)
Add(ID, Text, Href)
Add(ID, Text, Href, Separator)
ID | 菜单项的ID。 |
Text | 菜单项的文本内容。 |
Href | 可选参数,单击菜单项后要跳转到的目标URL。 |
Separator | 可选参数,逻辑型,是否在此菜单项之前显示一个分割条。 |