主题：AddActionSheet的BUG吗？

Dim fl As String = "d:\web\" & e.path
If filesys.FileExists(fl)
Dim idx As Integer = fl.LastIndexOf(".")
Dim ext As String = fl.SubString(idx)
Select Case ext
Case ".jpg",".gif",".png",".bmp",".wmf",".js",".css" ,".html",".htm",".zip",".rar"
e.WriteFile(fl)
Return '这里必须返回
End Select
End If
Select Case e.Path
Case "test.htm"
Dim wb As New WeUI
With wb.AddButtonGroup("","btg",True)
.Add("btn1","单击显示上拉菜单").Attribute = """
End With
With wb.AddActionSheet("","s1")
.Add("menu1", "菜单项目1", "http://www.foxtable.com/")
.Add("menu2", "菜单项目2")
.Add("menu3", "菜单项目3").Attribute = ""
.Add("menu4","取消","",True)
End With
e.WriteString(wb.Build)
End Select

文件发上来测试

我只是原样复制了帮助中的代码，没有过任何改动，狐爸。

之前用的是小米手机的自带浏览器，换了个QQ浏览器，正常了~！呃……。

 我测试没问题。你这样测试 http://www.foxtable.com/mobilehelp/scr/0244.htm

 

我用手机实际测试，在小米的浏览器下，确实是有问题的，换了个手机版的QQ浏览器，就是OK的。

UC浏览器也可以！