使用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 可选参数,逻辑型,是否在此菜单项之前显示一个分割条。


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