使用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，语法：

Add

Add用于在ActionSheet中增加菜单项，语法：

Add(ID, Text)
Add(ID, Text, Href)
Add(ID, Text, Href, Separator)